#######################################################################################################################################
#                                                                                                                                     #
#         P R E P A R A T I F S   D E   L A                                                                                           #
#         C O N S T R U C T I O N   D U   T R I A N G L E   D E   S I E R P I N S K I   A   L ' A I D E                               #
#         D E   " I T E R A T E D   F U N C T I O N   S E T " S  :                                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirk/.IFS2S.11.3.$U' :                                                                                         #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20050614094013).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        set                 NpointsX=`$CA $xTV/POINTS$COORD_X | $WCl`
$Z        set                 NpointsY=`$CA $xTV/POINTS$COORD_Y | $WCl`
$Z        set                 NpointsZ=`$CA $xTV/POINTS$COORD_Z | $WCl`

#20220615102722____:$Z        set       Npoints=`$xcg/MAX3.01$X x=$NpointsX y=$NpointsY z=$NpointsZ entier=VRAI signe="$K_VIDE"`      #
$Z        set                 Npoints=`$xcg/MIN3.01$X x=$NpointsX y=$NpointsY z=$NpointsZ entier=VRAI signe="$K_VIDE"`

$Z        $DELETE             $xTV/ELEMENT_M11
$Z        $DELETE             $xTV/ELEMENT_M12
$Z        $DELETE             $xTV/ELEMENT_M13

$Z        $DELETE             $xTV/ELEMENT_M21
$Z        $DELETE             $xTV/ELEMENT_M22
$Z        $DELETE             $xTV/ELEMENT_M23

$Z        $DELETE             $xTV/ELEMENT_M31
$Z        $DELETE             $xTV/ELEMENT_M32
$Z        $DELETE             $xTV/ELEMENT_M33

$Z        $DELETE             $xTV/TRANSLATION_OX
$Z        $DELETE             $xTV/TRANSLATION_OY
$Z        $DELETE             $xTV/TRANSLATION_OZ

$Z        $DELETE             $xTV/PROBABILITES

$Z        alias               genere    'set       VaLeUr=\!:1 ; set FiChIeR=\!:2                                                 ;    \\
$Z                                       echo      "$VaLeUr" >>! $FiChIeR                                                         ;    \\
$Z                                       unset     FiChIeR VaLeUr'