#######################################################################################################################################
#                                                                                                                                     #
#         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   2 )  :                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.FRC2.32.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20231109081602).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  set                 _____ListX=($_____ListX                           )
$Z                  set                 _____ListY=($_____ListY                           )
$Z                  set                 _____ListZ=($_____ListZ                           )

$Z                  set                 _____ListX=($_____ListX            +$B_           )
$Z                  set                 _____ListY=($_____ListY            +$C_           )
$Z                  set                 _____ListZ=($_____ListZ            +$A_           )

$Z                  set                 _____ListX=($_____ListX                           )
$Z                  set                 _____ListY=($_____ListY                           )
$Z                  set                 _____ListZ=($_____ListZ                           )

$Z                  set                 _____ListX=($_____ListX                           )
$Z                  set                 _____ListY=($_____ListY                           )
$Z                  set                 _____ListZ=($_____ListZ                           )


$Z                  set                 _____ListX=($_____ListX            +$B_           )
$Z                  set                 _____ListY=($_____ListY            +$D_           )
$Z                  set                 _____ListZ=($_____ListZ            +$B_           )

$Z                  set                 _____ListX=($_____ListX       +$A_ +$B_ +$C_ +$D_ )
$Z                  set                 _____ListY=($_____ListY       +$C_ +$C_ +$C_ +$C_ )
$Z                  set                 _____ListZ=($_____ListZ       +$B_ +$B_ +$B_ +$B_ )

$Z                  set                 _____ListX=($_____ListX            +$B_           )
$Z                  set                 _____ListY=($_____ListY            +$B_           )
$Z                  set                 _____ListZ=($_____ListZ            +$B_           )

$Z                  set                 _____ListX=($_____ListX            +$B_           )
$Z                  set                 _____ListY=($_____ListY            +$A_           )
$Z                  set                 _____ListZ=($_____ListZ            +$B_           )


$Z                  set                 _____ListX=($_____ListX                           )
$Z                  set                 _____ListY=($_____ListY                           )
$Z                  set                 _____ListZ=($_____ListZ                           )

$Z                  set                 _____ListX=($_____ListX            +$B_           )
$Z                  set                 _____ListY=($_____ListY            +$C_           )
$Z                  set                 _____ListZ=($_____ListZ            +$C_           )

$Z                  set                 _____ListX=($_____ListX                           )
$Z                  set                 _____ListY=($_____ListY                           )
$Z                  set                 _____ListZ=($_____ListZ                           )

$Z                  set                 _____ListX=($_____ListX                           )
$Z                  set                 _____ListY=($_____ListY                           )
$Z                  set                 _____ListZ=($_____ListZ                           )


$Z                  set                 _____ListX=($_____ListX                           )
$Z                  set                 _____ListY=($_____ListY                           )
$Z                  set                 _____ListZ=($_____ListZ                           )

$Z                  set                 _____ListX=($_____ListX            +$B_           )
$Z                  set                 _____ListY=($_____ListY            +$C_           )
$Z                  set                 _____ListZ=($_____ListZ            +$D_           )

$Z                  set                 _____ListX=($_____ListX                           )
$Z                  set                 _____ListY=($_____ListY                           )
$Z                  set                 _____ListZ=($_____ListZ                           )

$Z                  set                 _____ListX=($_____ListX                           )
$Z                  set                 _____ListY=($_____ListY                           )
$Z                  set                 _____ListZ=($_____ListZ                           )

$Z                  set                 NoMbReX=$#_____ListX
$Z                  set                 NoMbReY=$#_____ListY
$Z                  set                 NoMbReZ=$#_____ListZ
$Z                  set                 NoMbRe=`$xcg/MAX3.01$X x=$NoMbReX y=$NoMbReY z=$NoMbReZ`

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

$Z                  set                 _____DimensionX=4
$Z                  set                 _____DimensionY=4
$Z                  set                 _____DimensionZ=4