#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   A L B U M   D E   D E C O U P A G E  :                                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.STRX.E1.4.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20200608110458).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  set       _____Zoom=0.4

$Z                  set  _____Arguments="$K_VIDE"
$Z                  set  _____Arguments="$_____Arguments"" np=1 brume=FAUX"
$Z                  set  _____Arguments="$_____Arguments"" dpu=160 dpv=160"
$Z                  set  _____Arguments="$_____Arguments"" Lz=1000"
$Z                  set  _____Arguments="$_____Arguments"" emeni=FAUX"
$Z                  set  _____Arguments="$_____Arguments"" editer_extrema_hors=FAUX"
$Z                  set  _____Arguments="$_____Arguments"" chiffres=0"
$Z                  set  _____Arguments="$_____Arguments"" N_AU_CARRE=FAUX"
$Z                  set  _____Arguments="$_____Arguments"" lister_les_points=VRAI"
$Z                  set  _____Arguments="$_____Arguments"" lister_les_points_apres=VRAI"

$Z                  set       _____Redirection="$K_VIDE"
$Z                  set       _____Redirection="$_____Redirection >> $FLiStEP"

$Z                  set       _____RotationX=`calculNS -0.1+$pi`

$Z                  $xci/neutre$X                                                                                                       \
$Z                                      A=$xTV/PROJECTION$COORD_X                                                                       \
$Z                                      standard=FAUX                                                                                   \
$Z                                      R=$xTV/Fx                                                                                       \
$Z                                                                                                  $formatI

$Z                  $xci/neutre$X                                                                                                       \
$Z                                      A=$xTV/PROJECTION$COORD_Y                                                                       \
$Z                                      standard=FAUX                                                                                   \
$Z                                      R=$xTV/Fy                                                                                       \
$Z                                                                                                  $formatI

$Z                  $xci/neutre$X                                                                                                       \
$Z                                      A=$xTV/PROJECTION$COORD_Z                                                                       \
$Z                                      standard=FAUX                                                                                   \
$Z                                      R=$xTV/Fz                                                                                       \
$Z                                                                                                  $formatI

$Z                  set       _____imagesR=$_____ImagesR.0
$Z                  _____include(_____xiirs/.PROJ.V1.1._____U)

$Z                  set       _____Ppu=0.1
$Z                  set       _____Ppv=0.1
$Z                  set       _____Ppw=0.1

$Z                  set       _____Zoom=1.0

$Z                  setParam            _____DemiPave                 10
$Z                                      # Test introduit le 20200416180633 pour 'v $xiirv/$Fnota Debut_listG_STRX_Q1' en esperant     #
$Z                                      # que cela n'ait pas de consequences "retro-actives"...                                       #

$Z                  set       _____imageR=$xTV/PROK.KB

$Z                  SET       _____NormaliserX=$EXIST
$Z                  SET       _____MinNormaliserX=+0.05
$Z                  SET       _____MaxNormaliserX=+0.95
$Z                  SET       _____NormaliserY=$EXIST
$Z                  SET       _____MinNormaliserY=+0.05
$Z                  SET       _____MaxNormaliserY=+0.95
$Z                  SET       _____NormaliserZ=$EXIST
$Z                  SET       _____MinNormaliserZ=+0.05
$Z                  SET       _____MaxNormaliserZ=+0.95
$Z                  set       _____InverserZStructure=VRAI
$Z                  _____include(_____xiirv/.NDIM.43.1._____U)

$Z                  FilSTmpE            FLiStEP

$Z        execALB_F $cPremiere $cDerniere                                                                                               \
$Z                  $xci/and$X                                                                                                          \
$Z                                                A1=$_____ImageT1.%04d                                                                 \
$Z                                                A2=$_____ImageT2.%04d$ROUGE                                                           \
$Z                                                R=$_____ImageT2.%04d$ROUGE                                                            \
$Z                                                                                                                      $formatI

$Z        execALB_F $cPremiere $cDerniere                                                                                               \
$Z                  $xci/and$X                                                                                                          \
$Z                                                A1=$_____ImageT1.%04d                                                                 \
$Z                                                A2=$_____ImageT2.%04d$VERTE                                                           \
$Z                                                R=$_____ImageT2.%04d$VERTE                                                            \
$Z                                                                                                                      $formatI

$Z        execALB_F $cPremiere $cDerniere                                                                                               \
$Z                  $xci/and$X                                                                                                          \
$Z                                                A1=$_____ImageT1.%04d                                                                 \
$Z                                                A2=$_____ImageT2.%04d$BLEUE                                                           \
$Z                                                R=$_____ImageT2.%04d$BLEUE                                                            \
$Z                                                                                                                      $formatI