#######################################################################################################################################
#                                                                                                                                     #
#         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 '$xiirs/.PROK.O3.3.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20200613112244).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SETParam            _____NTores                   16
$Z                                      # Parametre introduit le 20200618143757...                                                    #

$Z                  setParam            _____Rayon1D                  1.0
$Z                                      # Parametre introduit le 20200614104045...                                                    #

$Z                  setParam            _____Rayon1A                  1.0
$Z                                      # Parametre introduit le 20200614104045...                                                    #

$Z                  setParam            _____Rayon2D                  $_____Rayon1D
$Z                                      # Parametre introduit le 20200614104045...                                                    #

$Z                  setParam            _____Rayon2A                  0.1
$Z                                      # Parametre introduit le 20200614104045...                                                    #

$Z                  setParam            _____RotationXD               0
$Z                                      # Parametre introduit le 20200614104045...                                                    #

$Z                  setParam            _____RotationXA               0
$Z                                      # Parametre introduit le 20200614104045...                                                    #

$Z                  set                 aPremiere=1
$Z                  set                 aDerniere=$_____NTores

$Z                  set                 InTeRpOlAtIoN="p=$aPremiere d=$aDerniere lineaire=VRAI"

$Z                  set                 aListe=`$xci/nombres$X p=$aPremiere d=$aDerniere`

$Z                  set                 aRayon1=`$xci/valeurs_inte$X $InTeRpOlAtIoN vD=$_____Rayon1D vA=$_____Rayon1A`
$Z                  set                 aRayon2=`$xci/valeurs_inte$X $InTeRpOlAtIoN vD=$_____Rayon2D vA=$_____Rayon2A`

$Z                  set                 aRotationX=`$xci/valeurs_inte$X $InTeRpOlAtIoN vD=$_____RotationXD vA=$_____RotationXA`

$Z                  set                 index=1

$Z                  foreach             aNumero ($aListe)
$Z                                      set                 aArGuMeNtS="$K_VIDE"
$Z                                      set                 aArGuMeNtS="$aArGuMeNtS"" $_____ArgGSurface"
$Z                                      set                 aArGuMeNtS="$aArGuMeNtS"" PARAMETRE_R1=$aRayon1[$index]"
$Z                                      set                 aArGuMeNtS="$aArGuMeNtS"" PARAMETRE_R2=$aRayon2[$index]"
$Z                                      set                 aArGuMeNtS="$aArGuMeNtS"" ROTATION_OX=$aRotationX[$index]"
$Z                                      set                 aArGuMeNtS="$aArGuMeNtS"" transformer_projections=VRAI ZOOM=0.35"

$Z                                      $xrs/project2D.01$Z $_____GSurface                                                              \
$Z                                                          $xTV/TORE.$aNumero                                                          \
$Z                                                          "$aArGuMeNtS"                                                               \
$Z                                                          $COORD_X $COORD_Y $COORD_Z                                                  \
$Z                                                          FAUX $NEXIST
$Z                                      # Projection de la surface '$_____GSurface'.                                                  #

$Z                                      @                   index = $index + 1
$Z                  end

$Z                  if                  ($_____NTores <= 16) then
$Z                                      execXYZ             $xci/reduction_16$X                                                         \
$Z                                                                              standard=FAUX                                           \
$Z                                                                              A=$xTV/TORE.                                            \
$Z                                                                              premiere=$aPremiere derniere=$aDerniere pas=1           \
$Z                                                                              postfixe=%s                                             \
$Z                                                                              R=$xTV/PROJECTION%s                                     \
$Z                                                                                                                      $formatI
$Z                                      # Regroupement de l'ensemble des projections lorsqu'il y en a moins de 17...                  #
$Z                  else
$Z                                      execXYZ             $xci/reduction_64$X                                                         \
$Z                                                                              standard=FAUX                                           \
$Z                                                                              A=$xTV/TORE.                                            \
$Z                                                                              premiere=$aPremiere derniere=$aDerniere pas=1           \
$Z                                                                              postfixe=%s                                             \
$Z                                                                              R=$xTV/PROJECTION%s                                     \
$Z                                                                                                                      $formatI
$Z                                      # Regroupement de l'ensemble des projections lorsqu'il y en a plus de 16...                   #
$Z                  endif