#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N E   V A R I E T E   C U B I Q U E  :                                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.CUBV.11.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20201213114031).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____MinX                     0.1
$Z                                      # Parametre introduit le 20201214134540...                                                    #

$Z                  setParam            _____MaxX                     0.9
$Z                                      # Parametre introduit le 20201214134540...                                                    #

$Z                  setParam            _____MinY                     0.1
$Z                                      # Parametre introduit le 20201214134540...                                                    #

$Z                  setParam            _____MaxY                     0.9
$Z                                      # Parametre introduit le 20201214134540...                                                    #

$Z                  setParam            _____MinZ                     0.1
$Z                                      # Parametre introduit le 20201214134540...                                                    #

$Z                  setParam            _____MaxZ                     0.9
$Z                                      # Parametre introduit le 20201214134540...                                                    #

$Z                  setParam            _____PCubique                 `GetParam $xrv/store_album$X epaississement_cubique`

$Z                  setParam            _____DemiPaveX                `GetParam $xrv/store_album$X demi_pave_X`

$Z                  setParam            _____DemiPaveY                `GetParam $xrv/store_album$X demi_pave_Y`

$Z                  setParam            _____DemiPaveZ                `GetParam $xrv/store_album$X demi_pave_Z`

$Z                  setParam            _____StoreAlbumPara           "$K_VIDE"

$Z                  FileTmpB            LiStEPoInTsN

$Z                  $CA                 $LiStEPoInTs$COORD_X                                                                      |     \
$Z                  $xrv/normalise.01$X ne=0 fichier== mR=$_____MinX MR=$_____MaxX                                                      \
$Z                                                                                                  >  $LiStEPoInTsN$COORD_X
$Z                  $CA                 $LiStEPoInTs$COORD_Y                                                                      |     \
$Z                  $xrv/normalise.01$X ne=0 fichier== mR=$_____MinY MR=$_____MaxY                                                      \
$Z                                                                                                  >  $LiStEPoInTsN$COORD_Y
$Z                  $CA                 $LiStEPoInTs$COORD_Z                                                                      |     \
$Z                  $xrv/normalise.01$X ne=0 fichier== mR=$_____MinZ MR=$_____MaxZ                                                      \
$Z                                                                                                  >  $LiStEPoInTsN$COORD_Z

$Z                  $xrv/store_album$X                                                                                                  \
$Z                                      ne=0                                                                                            \
$Z                                      LISTE_X=$LiStEPoInTsN$COORD_X                                                                   \
$Z                                      LISTE_Y=$LiStEPoInTsN$COORD_Y                                                                   \
$Z                                      LISTE_Z=$LiStEPoInTsN$COORD_Z                                                                   \
$Z                                      LISTE_NIVEAU=1                                                                                  \
$Z                                      epaississement_cubique=$_____PCubique                                                           \
$Z                                      LISTE_DEMI_PAVE_X=$_____DemiPaveX                                                               \
$Z                                      LISTE_DEMI_PAVE_Y=$_____DemiPaveY                                                               \
$Z                                      LISTE_DEMI_PAVE_Z=$_____DemiPaveZ                                                               \
$Z                                      tester_hors_bornes_naturelles=FAUX                                                              \
$Z                                      premiere=$cPremiere                                                                             \
$Z                                      $_____StoreAlbumPara                                                                            \
$Z                                      R=$_____ImageT1.                                                                                \
$Z                                      Zmin=0 Zmax=`calcul $cDerniere-$cPremiere`                                                      \
$Z                                                                                                                      $formatI

$Z                  FileTmpE            LiStEPoInTsN
$Z                  FileTmpE            LiStEPoInTs