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

$Z                  $CA                 $LiStEPoInTs.$ItErAtIoN$COORD_X                                                           |     \
$Z                  $TAI                +$NPoInTs0p1                                                                                    \
$Z                                                                    >  $LiStEPoInTs.$ItErAtIoN.1$COORD_X

$Z                  $CA                 $LiStEPoInTs.$ItErAtIoN$COORD_Y                                                           |     \
$Z                  $TAI                +$NPoInTs0p1                                                                                    \
$Z                                                                    >  $LiStEPoInTs.$ItErAtIoN.1$COORD_Y

$Z                  $CA                 $LiStEPoInTs.$ItErAtIoN$COORD_Z                                                           |     \
$Z                  $TAI                +$NPoInTs0p1                                                                                    \
$Z                                                                    >  $LiStEPoInTs.$ItErAtIoN.1$COORD_Z

$Z                  $CA                 $LiStEPoInTs.$ItErAtIoN$NIVEAU                                                            |     \
$Z                  $TAI                +$NPoInTs0p1                                                                                    \
$Z                                                                    >  $LiStEPoInTs.$ItErAtIoN.1$NIVEAU

$Z                  set                 NPoInTsX=`$CA $LiStEPoInTs.$ItErAtIoN.1$COORD_X | $WCl`
$Z                  set                 NPoInTsY=`$CA $LiStEPoInTs.$ItErAtIoN.1$COORD_Y | $WCl`
$Z                  set                 NPoInTsZ=`$CA $LiStEPoInTs.$ItErAtIoN.1$COORD_Z | $WCl`
$Z                  set                 NPoInTsN=`$CA $LiStEPoInTs.$ItErAtIoN.1$NIVEAU | $WCl`

$Z                  set                 NPoInTs=`$xcg/MAX3.01$X x=$NPoInTsX y=$NPoInTsY z=$NPoInTsZ`