#######################################################################################################################################
# #
# 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 : #
# #
# #
# Author of '$xiirv/.NDIM.43.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20120805111459). #
# #
#######################################################################################################################################
$Z SETParam _____NormaliserX $NEXIST
$Z # Argument introduit le 20140203120734 pour 'v $xiirf/FRB3.i5.21'... #
$Z SETParam _____MinNormaliserX 0
$Z # Argument introduit le 20170322103418... #
$Z SETParam _____MaxNormaliserX 1
$Z # Argument introduit le 20170322103418... #
$Z SETParam _____NormaliserY $NEXIST
$Z # Argument introduit le 20140203120734 pour 'v $xiirf/FRB3.i5.21'... #
$Z SETParam _____MinNormaliserY 0
$Z # Argument introduit le 20170322103418... #
$Z SETParam _____MaxNormaliserY 1
$Z # Argument introduit le 20170322103418... #
$Z SETParam _____NormaliserZ $EXIST
$Z # Argument introduit le 20140203120734 pour 'v $xiirf/FRB3.i5.21'... #
$Z SETParam _____MinNormaliserZ 0
$Z # Argument introduit le 20170322103418... #
$Z SETParam _____MaxNormaliserZ 1
$Z # Argument introduit le 20170322103418... #
$Z setParam _____DemiPave 2
$Z setParam _____InverserZStructure `GetParam $xrv/store_album$X inverser_Z`
$Z # Argument introduit le 20120806144723 pour 'v $xiirf/FRB3.E4.2'... #
$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 # Argument introduit le 20191231153043... #
$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 setenvParam _____ImageT1 $xTV/NDIM.43
$Z # Test introduit le pour 'v $xiirv/$Fnota Debut_listG_STRX_51'... #
$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 demi_pave_X=$_____DemiPave \
$Z demi_pave_Y=$_____DemiPave \
$Z demi_pave_Z=$_____DemiPave \
$Z ChronometrerCommande=VRAI \
$Z R=$_____ImageT1. \
$Z Zmin=0 Zmax=`calcul $cDerniere-$cPremiere` \
$Z $_____ParamStoreAlbum \
$Z $formatI
$Z # L'edition du chronometrage a ete introduite le 20190115132834 car, en effet, des images #
$Z # telles 'v $xiirs/BKLN.E5.1' sont longues a calculer, en particulier a cause de cette #
$Z # operation ('v $xrv/store_album$K'). Par contre, on ne peut utiliser : #
$Z # #
$Z # Progression=VRAI #
$Z # #
$Z # car, en effet, {begin_album,end_album} (ou {begin_album_back,end_album_back}) ne sont #
$Z # pas utilisees dans 'v $xrv/store_album$K GENERATION_D_UN_ALBUM'... #