#######################################################################################################################################
#                                                                                                                                     #
#         C O N V E R S I O N   D ' U N E   L I S T E   D E   P O I N T S   E N   U N   A L B U M                                     #
#         A V E C   M O D U L A T I O N   D E   L A   T A I L L E   D E S   P A V E S  :                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirk/.REFM.l1.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20220617102806).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SETParam            _____NormaliserX              $NEXIST

$Z                  SETParam            _____MinNormaliserX           0

$Z                  SETParam            _____MaxNormaliserX           1

$Z                  SETParam            _____NormaliserY              $NEXIST

$Z                  SETParam            _____MinNormaliserY           0

$Z                  SETParam            _____MaxNormaliserY           1

$Z                  SETParam            _____NormaliserZ              $EXIST

$Z                  SETParam            _____MinNormaliserZ           0

$Z                  SETParam            _____MaxNormaliserZ           1

$Z                  setParam            _____PaveMinimum              2

$Z                  setParam            _____PaveMaximum              20

$Z                  setParam            _____InverserZStructure       `GetParam $xrv/store_album$X inverser_Z`

$Z                  if        ($_____NormaliserX == $EXIST) then
$Z                            set       NoRmAlIsErX="$xrv/normalise.01$X mR=$_____MinNormaliserX MR=$_____MaxNormaliserX"
$Z                  else
$Z                            set       NoRmAlIsErX="$xrv/neutre$X"
$Z                  endif

$Z                  if        ($_____NormaliserY == $EXIST) then
$Z                            set       NoRmAlIsErY="$xrv/normalise.01$X mR=$_____MinNormaliserY MR=$_____MaxNormaliserY"
$Z                  else
$Z                            set       NoRmAlIsErY="$xrv/neutre$X"
$Z                  endif

$Z                  if        ($_____NormaliserZ == $EXIST) then
$Z                            set       NoRmAlIsErZ="$xrv/normalise.01$X mR=$_____MinNormaliserZ MR=$_____MaxNormaliserZ"
$Z                  else
$Z                            set       NoRmAlIsErZ="$xrv/neutre$X"
$Z                  endif

$Z                  setParam            _____ParamStoreAlbum          "$K_VIDE"

$Z                  $CA       $FLiStEP                                                                                            |     \
$Z                  $SE       -e 's/^.* X=\([^ ]*\) .*$/\1/'                                                                      |     \
$Z                  $NoRmAlIsErX        ne=0 fichier==                                                                                  \
$Z                                                                    >>! $FLiStEP$COORD_X
$Z                  $CA       $FLiStEP                                                                                            |     \
$Z                  $SE       -e 's/^.* Y=\([^ ]*\) .*$/\1/'                                                                      |     \
$Z                  $NoRmAlIsErY        ne=0 fichier==                                                                                  \
$Z                                                                    >>! $FLiStEP$COORD_Y
$Z                  $CA       $FLiStEP                                                                                            |     \
$Z                  $SE       -e 's/^.* Z=\([^ ]*\) .*$/\1/'                                                                      |     \
$Z                  $NoRmAlIsErZ        ne=0 fichier==                                                                                  \
$Z                                                                    >>! $FLiStEP$COORD_Z

$Z                  set       MoYeNnE_X=`$xrv/extrema.01$X ne=0 fichier=$FLiStEP$COORD_X moyenne_seule=VRAI`
$Z                  set       MoYeNnE_Y=`$xrv/extrema.01$X ne=0 fichier=$FLiStEP$COORD_Y moyenne_seule=VRAI`
$Z                  set       MoYeNnE_Z=`$xrv/extrema.01$X ne=0 fichier=$FLiStEP$COORD_Z moyenne_seule=VRAI`

$Z                  $xrv/distance.11$X  ne=0                                                                                            \
$Z                                      LISTE_X=$FLiStEP$COORD_X                                                                        \
$Z                                      LISTE_Y=$FLiStEP$COORD_Y                                                                        \
$Z                                      LISTE_Z=$FLiStEP$COORD_Z                                                                        \
$Z                                      X0=$MoYeNnE_X                                                                                   \
$Z                                      Y0=$MoYeNnE_Y                                                                                   \
$Z                                      Z0=$MoYeNnE_Z                                                                             |     \
$Z                  $xrv/GAUS.01$X      ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      esperance=0 ecart_type=`calcul 1/sqrt(2)`                                                 |     \
$Z                  $xrv/normalise.01$X ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      minimum=$_____PaveMinimum                                                                       \
$Z                                      maximum=$_____PaveMaximum                                                                       \
$Z                                      formater=VRAI entiers=VRAI                                                                      \
$Z                                                                    >>! $FLiStEP.distances

$Z                  setenvParam         _____ImageT1                  $xTV/NDIM.43

$Z                  $xrv/store_album$X                                                                                                  \
$Z                                      ne=0                                                                                            \
$Z                                      LISTE_X=$FLiStEP$COORD_X                                                                        \
$Z                                      LISTE_Y=$FLiStEP$COORD_Y                                                                        \
$Z                                      LISTE_Z=$FLiStEP$COORD_Z                                                                        \
$Z                                      inverser_Z=$_____InverserZStructure                                                             \
$Z                                      LISTE_NIVEAU=1                                                                                  \
$Z                                      tester_hors_bornes_naturelles=FAUX                                                              \
$Z                                      premiere=$cPremiere                                                                             \
$Z                                      epaississement_spherique=VRAI                                                                   \
$Z                                      LISTE_DEMI_PAVE_X=$FLiStEP.distances                                                            \
$Z                                      LISTE_DEMI_PAVE_Y=$FLiStEP.distances                                                            \
$Z                                      LISTE_DEMI_PAVE_Z=$FLiStEP.distances                                                            \
$Z                                      ChronometrerCommande=VRAI                                                                       \
$Z                                      R=$_____ImageT1.                                                                                \
$Z                                      Zmin=0 Zmax=`calcul $cDerniere-$cPremiere`                                                      \
$Z                                      $_____ParamStoreAlbum                                                                           \
$Z                                                                    $formatI