#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D E S   F I L A M E N T S   D E   L ' U N I V E R S  :                                          #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.CARB.D2.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20160109103311).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$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                  setParam            _____InverserZ                `GetParam $xrv/store_album$X inverser_Z`
$Z                                      # Parametre introduit le 20160206081802...                                                    #

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

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