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

$Z                  set                 P_=0.25
$Z                                      # Definition du "Pave" elementaire tel que son inverse (1/$P_) soit une puissance de 2        #
$Z                                      # et ce afin d'eviter des problemes d'arrondi lors de 'v $xiirf/.FRC2.11.6.$U _____DemiPave'. #

$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                 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)

$Z                  set                 _____LNiveaux=($K_VIDE)
$Z                                      # Introduit le 20231231124454 pour 'v $xiirf/.FRC2.11.1.$U _____LNiveaux'...                  #