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

$Z                  setParam            _____DimensionX               4
$Z                  setParam            _____DimensionY               4
$Z                  setParam            _____DimensionZ               1

$Z                  set                 DiMeNsIoN=`$xcg/MAX3.01$X x=$_____DimensionX y=$_____DimensionY z=$_____DimensionZ`

$Z                  set                 ItErAtIoN=0
$Z                  @                   ItErAtIoNp1 = $ItErAtIoN + 1

$Z                  echo                "$_____ListX"                                                                             |     \
$Z                  $R                  "$K_BLANC" "$K_NL"                                                                              \
$Z                                                                    >  $LiStEPoInTs.$ItErAtIoN$COORD_X

$Z                  echo                "$_____ListY"                                                                             |     \
$Z                  $R                  "$K_BLANC" "$K_NL"                                                                              \
$Z                                                                    >  $LiStEPoInTs.$ItErAtIoN$COORD_Y

$Z                  echo                "$_____ListZ"                                                                             |     \
$Z                  $R                  "$K_BLANC" "$K_NL"                                                                              \
$Z                                                                    >  $LiStEPoInTs.$ItErAtIoN$COORD_Z

$Z                  echo                "$_____LNiveaux"                                                                          |     \
$Z                  $R                  "$K_BLANC" "$K_NL"                                                                              \
$Z                                                                    >  $LiStEPoInTs.$ItErAtIoN$NIVEAU

$Z                  set                 NPoInTs0X=`$CA $LiStEPoInTs.$ItErAtIoN$COORD_X | $WCl`
$Z                  set                 NPoInTs0Y=`$CA $LiStEPoInTs.$ItErAtIoN$COORD_Y | $WCl`
$Z                  set                 NPoInTs0Z=`$CA $LiStEPoInTs.$ItErAtIoN$COORD_Z | $WCl`

$Z                  IfBasic   (($NPoInTs0X != $NPoInTs0Y) || ($NPoInTs0Y != $NPoInTs0Z) || ($NPoInTs0Z != $NPoInTs0X)) ThenBasic
$Z                            EROR                "Les listes arguments {X,Y,Z} sont incoherentes."
$Z                  ElseBasic
$Z                  EndifBasic

$Z                  set                 NPoInTs0=`$xcg/MAX3.01$X x=$NPoInTs0X y=$NPoInTs0Y z=$NPoInTs0Z`
$Z                  set                 NPoInTs0m1=`calculINS $NPoInTs0-1`
$Z                  set                 NPoInTs0p1=`calculINS $NPoInTs0+1`

$Z                  $DELETE             $LiStEPoInTs.$ItErAtIoNp1.*   >& $nul

$Z                  $CA                 $LiStEPoInTs.$ItErAtIoN$COORD_X         $LiStEPoInTs.$ItErAtIoN$COORD_X                         \
$Z                                                                    >  $LiStEPoInTs.$ItErAtIoNp1$COORD_X

$Z                  $CA                 $LiStEPoInTs.$ItErAtIoN$COORD_Y         $LiStEPoInTs.$ItErAtIoN$COORD_Y                         \
$Z                                                                    >  $LiStEPoInTs.$ItErAtIoNp1$COORD_Y

$Z                  $CA                 $LiStEPoInTs.$ItErAtIoN$COORD_Z         $LiStEPoInTs.$ItErAtIoN$COORD_Z                         \
$Z                                                                    >  $LiStEPoInTs.$ItErAtIoNp1$COORD_Z

$Z                  $CA                 $LiStEPoInTs.$ItErAtIoN$NIVEAU          $LiStEPoInTs.$ItErAtIoN$NIVEAU                          \
$Z                                                                    >  $LiStEPoInTs.$ItErAtIoNp1$NIVEAU

$Z                  @                   ItErAtIoN = $ItErAtIoNp1
$Z                  @                   ItErAtIoNp1 = $ItErAtIoNp1 + 1

$Z                  set                 AlPhA_X=1
$Z                  set                 AlPhA_Y=1
$Z                  set                 AlPhA_Z=1

$Z                  set                 TrAnSlAtIoN_XYZ=0