#######################################################################################################################################
#                                                                                                                                     #
#         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.71.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20231206094303).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

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

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

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


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

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

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


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

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

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


$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=3
$Z                  set                 _____DimensionY=3
$Z                  set                 _____DimensionZ=3