#######################################################################################################################################
#                                                                                                                                     #
#         C O U R B E   D E   H I L B E R T   T R I D I M E N S I O N N E L L E  :                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.HILB.R8.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20230110111807).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____ESpherique               `GetParam $xrv/store_album$X epaississement_spherique`
$Z                                      # Parametres introduits le 20230119144041.                                                    #

$Z                  setParam            _____MinX                     0.2

$Z                  setParam            _____MaxX                     0.8

$Z                  setParam            _____MinY                     0.2

$Z                  setParam            _____MaxY                     0.8

$Z                  setParam            _____MinZ                     0.2

$Z                  setParam            _____MaxZ                     0.8

$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                  $CA                 $FLiStE_PoInTs                                                                            |     \
$Z                  $SE                 -e 's/^.*X=\([^ ]*\) .*$/\1/'                                                             |     \
$Z                  $xrv/normalise.01$X ne=0 fichier== mR=$_____MinX MR=$_____MaxX                                                      \
$Z                                                                                                            >  $FLiStE_PoInTs$COORD_X
$Z                  $CA                 $FLiStE_PoInTs                                                                            |     \
$Z                  $SE                 -e 's/^.*Y=\([^ ]*\) .*$/\1/'                                                             |     \
$Z                  $xrv/normalise.01$X ne=0 fichier== mR=$_____MinY MR=$_____MaxY                                                      \
$Z                                                                                                            >  $FLiStE_PoInTs$COORD_Y
$Z                  $CA                 $FLiStE_PoInTs                                                                            |     \
$Z                  $SE                 -e 's/^.*Z=\([^ ]*\) .*$/\1/'                                                             |     \
$Z                  $xrv/normalise.01$X ne=0 fichier== mR=$_____MinZ MR=$_____MaxZ                                                      \
$Z                                                                                                            >  $FLiStE_PoInTs$COORD_Z

$Z                  $xrv/store_album$X                                                                                                  \
$Z                                      ne=0                                                                                            \
$Z                                      LISTE_X=$FLiStE_PoInTs$COORD_X                                                                  \
$Z                                      LISTE_Y=$FLiStE_PoInTs$COORD_Y                                                                  \
$Z                                      LISTE_Z=$FLiStE_PoInTs$COORD_Z                                                                  \
$Z                                      LISTE_NIVEAU=1                                                                                  \
$Z                                      epaississement_spherique=$_____ESpherique                                                       \
$Z                                      demi_pave_X=$_____DemiPaveX                                                                     \
$Z                                      demi_pave_Y=$_____DemiPaveY                                                                     \
$Z                                      demi_pave_Z=$_____DemiPaveZ                                                                     \
$Z                                      tester_hors_bornes_naturelles=FAUX                                                              \
$Z                                      premiere=$cPremiere                                                                             \
$Z                                      ChronometrerCommande=VRAI                                                                       \
$Z                                      R=$_____ImageT1.                                                                                \
$Z                                      Zmin=0 Zmax=`calcul $cDerniere-$cPremiere`                                                      \
$Z                                                                                                                      $formatI