#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D E   P A Y S A G E S   M U L T I - F R A C T A L S  :                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.PAYT.D.11.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20040108145117).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SETParam            _____Interpoler               $NEXIST
$Z                                      # Introduit le 20040109113705.                                                                #

$Z                  setParam            _____Ty                       0.55

$Z                  setParam            _____Perspective              0

$Z                  SETParam            _____Neige                    $NEXIST
$Z                                      # Introduit le 20040110205630.                                                                #

$Z                  setParam            _____Palette                  $xiP/gris.A1
$Z                                      # Introduit le 20040110210033.                                                                #

$Z                  Pal

$Z                  $xci/fract_2D.01$X                                                                                                  \
$Z                                      graine=5555                                                                                     \
$Z                                      mX=0.2 mY=0.05                                                                                  \
$Z                                      standard=FAUX                                                                                   \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/substitue$X                                                                                                    \
$Z                                      standard=FAUX                                                                                   \
$Z                                      p=$xiP/gris.52                                                                                  \
$Z                                      lissage=VRAI                                                                                    \
$Z                                      passes=256                                                                                      \
$Z                                      substitution=L_SUBSTITUTION_ROUGE                                                               \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/acces$X                                                                                                        \
$Z                                      standard=FAUX                                                                                   \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/vraies_C$X                                                                                                     \
$Z                                      p=$xiP/nuages.02                                                                                \
$Z                                      RVB=VRAI                                                                                        \
$Z                                      R=$xT/NUAGES.01                                                                                 \
$Z                                                                                                  $formatI

$Z                  $xci/fract_2D.01$X                                                                                                  \
$Z                                      profondeur=1                                                                                    \
$Z                                      graine=1111                                                                                     \
$Z                                      standard=FAUX                                                                                   \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/normalise.01$X                                                                                                 \
$Z                                      R=$xT/FRACTAL.01                                                                                \
$Z                                                                                                  $formatI
$Z                  $xci/fract_2D.01$X                                                                                                  \
$Z                                      graine=3333                                                                                     \
$Z                                      standard=FAUX                                                                                   \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/normalise.01$X                                                                                                 \
$Z                                      R=$xT/FRACTAL.0N                                                                                \
$Z                                                                                                  $formatI

$Z                  if                  ($_____Interpoler == $NEXIST) then
$Z                                      $xci/multi_02.01$X                                                                              \
$Z                                                          A1=$xT/FRACTAL.01                                                           \
$Z                                                          A2=$xT/FRACTAL.0N                                                           \
$Z                                                          standard=FAUX                                                               \
$Z                                                          R=$xT/FRACTAL.02                                                            \
$Z                                                                                                                      $formatI
$Z                  else
$Z                                      $xci/interpole.02$X                                                                             \
$Z                                                          A1=$xT/FRACTAL.01                                                           \
$Z                                                          A2=$xT/FRACTAL.0N                                                           \
$Z                                                          P=$xT/FRACTAL.0N                                                            \
$Z                                                          standard=FAUX                                                               \
$Z                                                          R=$xT/FRACTAL.02                                                            \
$Z                                                                                                                      $formatI
$Z                  endif

$Z                  if                  ($_____Neige == $NEXIST) then
$Z                                      $xci/init$X                                                                                     \
$Z                                                          niveau=$BLANC                                                               \
$Z                                                          R=$xT/TEXTURE.01                                                            \
$Z                                                                                                                      $formatI
$Z                  else
$Z                                      $xci/acces$X                                                                                    \
$Z                                                          standard=FAUX                                                               \
$Z                                                          zero=FAUX                                                                   \
$Z                                                          A=$xT/FRACTAL.0N                                                            \
$Z                                                                                                                      $formatI  |     \
$Z                                      $xci/substitue$X                                                                                \
$Z                                                          p=$_____Palette                                                             \
$Z                                                          substitution=L_SUBSTITUTION_ROUGE                                           \
$Z                                                                                                                      $formatI  |     \
$Z                                      $xci/scale$X                                                                                    \
$Z                                                          a=0.5                                                                       \
$Z                                                          b=$GRIS_4                                                                   \
$Z                                                          R=$xT/TEXTURE.01                                                            \
$Z                                                                                                                      $formatI
$Z                  endif

$Z                  eval      `$xci/genere$X                                                                                          \\\
$Z                             commande='($xci/montagne.01$X                                                                          \\\
$Z                                                   A=$xT/FRACTAL.02                                                                 \\\
$Z                                                   standard=FAUX                                                                    \\\
$Z                                                   zero=FAUX                                                                        \\\
$Z                                                   T=$xT/TEXTURE.01                                                                 \\\
$Z                                                   Nminimum=0.4                                                                     \\\
$Z                                                   attenuation=0.20                                                                 \\\
$Z                                                   avion=FAUX                                                                       \\\
$Z                                                   fond=VRAI                                                                        \\\
$Z                                                   F=$xT/NUAGES.01%s                                                                \\\
$Z                                                   Ty=$_____Ty                                                                      \\\
$Z                                                   perspective=$_____Perspective                                                    \\\
$Z                                                   R=$_____ImagesR%s                                                                \\\
$Z                                                                                                  $formatI)'                        \\\
$Z                             en_tete=FAUX RVB=VRAI separateur=VRAI`

$Z                  $DELETE             $xT/NUAGES.01
$Z                  $DELETE             $xT/NUAGES.01.*
$Z                  $DELETE             $xT/FRACTAL.02
$Z                  $DELETE             $xT/TEXTURE.01
$Z                  $DELETE             $xT/FRACTAL.01
$Z                  $DELETE             $xT/FRACTAL.0N
$Z                  $DELETE             $xT/FRACTAL.02