#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D E S   P S E U D O - P R O J E C T I O N S   D ' U N E                                               #
#         S U R F A C E   P E R T U R B E E   P A R    U N   C H A M P   F R A C T A L  :                                             #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.PROJ.V1.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20150611101138).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____FractalMailleX           0.25

$Z                  setParam            _____FractalMailleY           0.25

$Z                  setParam            _____Palette                  $xiP/gris.01
$Z                                      # Parametre introduit le 20191108094946...                                                    #

$Z                  setParam            _____Lissage                  VRAI
$Z                                      # Parametre introduit le 20191108094946...                                                    #

$Z                  setParam            _____Passes                   1
$Z                                      # Parametre introduit le 20191108094946...                                                    #

$Z                  setParam            _____Hauteur                  0.50
$Z                                      # La nullite de ce parametre donne une surface "parfaite" (c'est-a-dire non fractalisee...).  #

$Z                  setParam            _____Altitude                 1
$Z                                      # Parametre introduit le 20191016135330...                                                    #

$Z                  SETParam            _____PerturbationPositive     $EXIST

$Z                  setParam            _____GSurface                 $xrs/tore.11
$Z                                      # Parametre introduit le 20191016135330...                                                    #

$Z                  setParam            _____ArgGSurface              "$K_VIDE"
$Z                                      # Parametre introduit le 20191018112509...                                                    #

$Z                  $xci/fract_2D.01$X                                                                                                  \
$Z                                      standard=FAUX                                                                                   \
$Z                                      OX=0 EX=1.0 mX=$_____FractalMailleX                                                             \
$Z                                      OY=0 EY=1.0 mY=$_____FractalMailleY                                                             \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/normalise.01$X                                                                                                 \
$Z                                      R=$xTV/FRACTAL.1                                                                                \
$Z                                                                                                  $formatI

$Z                  if                  ($?_____Substituer == $EXIST) then
$Z                                      # Test introduit le 20191108094946...                                                         #
$Z                                      $xci/substitue$X                                                                                \
$Z                                                          A=$xTV/FRACTAL.1                                                            \
$Z                                                          standard=FAUX                                                               \
$Z                                                          p=$_____Palette                                                             \
$Z                                                          substitution=L_SUBSTITUTION_ROUGE                                           \
$Z                                                          lissage=$_____Lissage passes=$_____Passes                                   \
$Z                                                                                                                      $formatI  |     \
$Z                                      $xci/normalise.01$X                                                                             \
$Z                                                          R=$xTV/FRACTAL.1                                                            \
$Z                                                                                                                      $formatI
$Z                                      # Transformation eventuelle du champ fractal...                                               #
$Z                  else
$Z                  endif

$Z                  if                  ($_____PerturbationPositive == $EXIST) then
$Z                                      $xci/neutre$X                                                                                   \
$Z                                                          A=$xTV/FRACTAL.1                                                            \
$Z                                                          standard=FAUX                                                               \
$Z                                                          R=$xTV/FRACTAL.2                                                            \
$Z                                                                                                                      $formatI
$Z                  else
$Z                                      $xci/scale$X                                                                                    \
$Z                                                          A=$xTV/FRACTAL.1                                                            \
$Z                                                          standard=FAUX                                                               \
$Z                                                          a=2                                                                         \
$Z                                                          b=-1                                                                        \
$Z                                                          R=$xTV/FRACTAL.2                                                            \
$Z                                                                                                                      $formatI
$Z                  endif

$Z                  $xci/scale$X                                                                                                        \
$Z                                      A=$xTV/FRACTAL.2                                                                                \
$Z                                      standard=FAUX                                                                                   \
$Z                                      a=$_____Hauteur                                                                                 \
$Z                                      b=$_____Altitude                                                                                \
$Z                                      R=$xTV/FRACTAL                                                                                  \
$Z                                                                                                  $formatI
$Z                                      # Ainsi, le champ fractal contient horizontalement deux periodes le long de 'OX' a valeur     #
$Z                                      # dans [1,1+Hauteur] ou dans [1-Hauteur,1+Hauteur] suivant que '$_____PerturbationPositive'   #
$Z                                      # est '$EXIST' ou '$NEXIST' respectivement...                                                 #

$Z                  $xrs/project2D.01$Z                                                                                                 \
$Z                                      $_____GSurface$X                                                                                \
$Z                                      $xTV/PROJECTION                                                                                 \
$Z                                      "$_____ArgGSurface"                                                                             \
$Z                                      $COORD_X $COORD_Y $COORD_Z                                                                      \
$Z                                      "$K_VIDE"                                                                                       \
$Z                                      $NEXIST
$Z                                      # Projection du tore...                                                                       #

$Z                  $xci/multi_02.01$X                                                                                                  \
$Z                                      A1=$xTV/FRACTAL                                                                                 \
$Z                                      A2=$xTV/PROJECTION$COORD_X                                                                      \
$Z                                      standard=FAUX                                                                                   \
$Z                                      R=$xTV/Fx                                                                                       \
$Z                                                                                                  $formatI
$Z                  $xci/multi_02.01$X                                                                                                  \
$Z                                      A1=$xTV/FRACTAL                                                                                 \
$Z                                      A2=$xTV/PROJECTION$COORD_Y                                                                      \
$Z                                      standard=FAUX                                                                                   \
$Z                                      R=$xTV/Fy                                                                                       \
$Z                                                                                                  $formatI
$Z                  $xci/multi_02.01$X                                                                                                  \
$Z                                      A1=$xTV/FRACTAL                                                                                 \
$Z                                      A2=$xTV/PROJECTION$COORD_Z                                                                      \
$Z                                      standard=FAUX                                                                                   \
$Z                                      R=$xTV/Fz                                                                                       \
$Z                                                                                                  $formatI