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

$Z                  set                 P_=`calculNS 1/5`

$Z                  set                 A_=0.0
$Z                  set                 B_=`calcul $A_+$P_`
$Z                  set                 C_=`calcul $B_+$P_`
$Z                  set                 D_=`calcul $C_+$P_`
$Z                  set                 E_=`calcul $D_+$P_`

$Z                  set                 Z_=0
$Z                                      # Il faut que 'Z' soit egal a 'Zmin' a cause de 'v $xrv/store_album$K Astore_point_valide',   #
$Z                                      # cette procedure elle-meme referencant 'v $xiiD/definit.1$DEF TEST_DANS_L_ALBUM' qui teste   #
$Z                                      # la coordonnee 'Z' par rapport a [Zmin,Zmax]...                                              #

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