#######################################################################################################################################
#                                                                                                                                     #
#         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.Z1.3.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20200608134707).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  set                 PaRaM1="PARAMETRE_R1=1.0"

$Z                  set                 PaRaM2="transformer_projections=VRAI ZOOM=0.5"

$Z                  $xrs/project2D.01$Z $_____GSurface                                                                                  \
$Z                                      $xTV/TORE.0001                                                                                  \
$Z                                      "$_____ArgGSurface  $PaRaM1 PARAMETRE_R2=0.1 $PaRaM2"                                           \
$Z                                      $COORD_X $COORD_Y $COORD_Z                                                                      \
$Z                                      FAUX $NEXIST
$Z                                      # Projection de la surface '$_____GSurface'.                                                  #
$Z                  $xrs/project2D.01$Z $_____GSurface                                                                                  \
$Z                                      $xTV/TORE.0002                                                                                  \
$Z                                      "$_____ArgGSurface  $PaRaM1 PARAMETRE_R2=0.2 $PaRaM2"                                           \
$Z                                      $COORD_X $COORD_Y $COORD_Z                                                                      \
$Z                                      FAUX $NEXIST
$Z                                      # Projection de la surface '$_____GSurface'.                                                  #
$Z                  $xrs/project2D.01$Z $_____GSurface                                                                                  \
$Z                                      $xTV/TORE.0003                                                                                  \
$Z                                      "$_____ArgGSurface  $PaRaM1 PARAMETRE_R2=0.3 $PaRaM2"                                           \
$Z                                      $COORD_X $COORD_Y $COORD_Z                                                                      \
$Z                                      FAUX $NEXIST
$Z                                      # Projection de la surface '$_____GSurface'.                                                  #
$Z                  $xrs/project2D.01$Z $_____GSurface                                                                                  \
$Z                                      $xTV/TORE.0004                                                                                  \
$Z                                      "$_____ArgGSurface  $PaRaM1 PARAMETRE_R2=0.4 $PaRaM2"                                           \
$Z                                      $COORD_X $COORD_Y $COORD_Z                                                                      \
$Z                                      FAUX $NEXIST
$Z                                      # Projection de la surface '$_____GSurface'.                                                  #

$Z                  execXYZ             $xci/reduction_04$X standard=FAUX                                                               \
$Z                                                          A=$xTV/TORE.                                                                \
$Z                                                          premiere=1 derniere=4 pas=1                                                 \
$Z                                                          postfixe=%s                                                                 \
$Z                                                          R=$xTV/PROJECTION%s                                                         \
$Z                                                                                                                      $formatI
$Z                                      # Regroupement des quatre projections...                                                      #