#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   F R A C T A L   " C A R R E "   ( V E R S I O N   1 )  :                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.FRC1.11.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20231105094009).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  set                 NoMbRe=9

$Z                  set                 ArGs="lineaire=VRAI entiers=VRAI vD=$GRIS_1 vA=$GRIS_8"
$Z                  set                 LiStEG=`$xci/valeurs_inte$X p=1 d=$NoMbRe $ArGs`

$Z                  set                 _____LNiveaux=($K_VIDE)

$Z                  set                 _____LNiveaux=($_____LNiveaux $NOIR)
$Z                  set                 _____LNiveaux=($_____LNiveaux $LiStEG[1])
$Z                  set                 _____LNiveaux=($_____LNiveaux $LiStEG[2])
$Z                  set                 _____LNiveaux=($_____LNiveaux $NOIR)

$Z                  set                 _____LNiveaux=($_____LNiveaux $LiStEG[3])
$Z                  set                 _____LNiveaux=($_____LNiveaux $NOIR)
$Z                  set                 _____LNiveaux=($_____LNiveaux $LiStEG[4])
$Z                  set                 _____LNiveaux=($_____LNiveaux $LiStEG[5])

$Z                  set                 _____LNiveaux=($_____LNiveaux $LiStEG[6])
$Z                  set                 _____LNiveaux=($_____LNiveaux $LiStEG[7])
$Z                  set                 _____LNiveaux=($_____LNiveaux $LiStEG[8])
$Z                  set                 _____LNiveaux=($_____LNiveaux $NOIR)

$Z                  set                 _____LNiveaux=($_____LNiveaux $NOIR)
$Z                  set                 _____LNiveaux=($_____LNiveaux $LiStEG[9])
$Z                  set                 _____LNiveaux=($_____LNiveaux $NOIR)
$Z                  set                 _____LNiveaux=($_____LNiveaux $NOIR)