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

$Z                  $xci/fract_2D.01$X                                                                                                  \
$Z                                      standard=FAUX                                                                                   \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/normalise.01$X                                                                                                 \
$Z                                      R=$xTV/FRACTAL.01                                                                               \
$Z                                                                                                                      $formatI

$Z                  $xci/fract_2D.01$X                                                                                                  \
$Z                                      standard=FAUX                                                                                   \
$Z                                      mX=0.02 mY=0.02                                                                                 \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/normalise.01$X                                                                                                 \
$Z                                      R=$xTV/FRACTAL.11                                                                               \
$Z                                                                                                                      $formatI
$Z                  $xci/scale$X                                                                                                        \
$Z                                      A=$xTV/FRACTAL.11                                                                               \
$Z                                      standard=FAUX                                                                                   \
$Z                                      a=0.2 b=0.2                                                                                     \
$Z                                      R=$xTV/FRACTAL.12                                                                               \
$Z                                                                                                                      $formatI

$Z                  $xci/init$X                                                                                                         \
$Z                                      niveau=$BLANC                                                                                   \
$Z                                      R=$xTV/TEXTURE                                                                                  \
$Z                                                                                                                      $formatI


$Z        set       Premier=1
$Z        set       Dernier=64
$Z        @         Inter1 = $Dernier / 16
$Z        @         Inter2 = $Inter1 + 1

$Z        set  ListeX=`$xci/valeurs_alea$X p=$Premier d=$Dernier inf=-0.8 sup=+0.8 graine=12`
$Z        set  ListeY=`$xci/valeurs_alea$X p=$Premier d=$Dernier inf=-0.6 sup=+0.6 graine=56`
$Z        set  ListeK1=`$xci/valeurs_alea$X p=$Premier d=$Inter1 inf=2 sup=6 graine=5555`
$Z        set  ListeK2=`$xci/valeurs_alea$X p=$Inter2 d=$Dernier inf=12 sup=40 graine=6666`
$Z        set  ListeK=`echo $ListeK1 $ListeK2`
$Z        set  ListeS=`$xci/valeurs_alea$X p=$Premier d=$Dernier inf=0.01 sup=0.04 graine=77`
$Z        set  ListeN=`$xci/nombres$X      p=$Premier d=$Dernier A="$K_VIDE"`

$Z        foreach   exponentielle ($ListeN)
$Z                  $xci/dist_exponen$X                                                                                                 \
$Z                                      standard=FAUX                                                                                   \
$Z                                      TRANSLATION_OX=$ListeX[$exponentielle]                                                          \
$Z                                      TRANSLATION_OY=$ListeY[$exponentielle]                                                          \
$Z                                      k=$ListeK[$exponentielle]                                                                       \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/substitue$X                                                                                                    \
$Z                                      standard=FAUX                                                                                   \
$Z                                      p=$xiP/abso.45                                                                                  \
$Z                                      lissage=VRAI                                                                                    \
$Z                                      passes=256                                                                                      \
$Z                                      substitution=L_SUBSTITUTION_ROUGE                                                               \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/complement$X                                                                                                   \
$Z                                      standard=FAUX                                                                                   \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/normalise.01$X                                                                                                 \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/scale$X                                                                                                        \
$Z                                      standard=FAUX                                                                                   \
$Z                                      a=$ListeS[$exponentielle]                                                                       \
$Z                                      extrema=FAUX                                                                                    \
$Z                                      R=$xTV/EXPON.$ListeN[$exponentielle]                                                            \
$Z                                                                                                                      $formatI
$Z        end

$Z                  $xci/accumule.01$X                                                                                                  \
$Z                                      A=$xTV/EXPON.                                                                                   \
$Z                                      standard=FAUX                                                                                   \
$Z                                      premiere=$Premier                                                                               \
$Z                                      derniere=$Dernier                                                                               \
$Z                                      attenuation=1.0                                                                                 \
$Z                                      maximum=FAUX                                                                                    \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/normalise.01$X                                                                                                 \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/scale$X                                                                                                        \
$Z                                      standard=FAUX                                                                                   \
$Z                                      a=0.20 b=0.0                                                                                    \
$Z                                      R=$xTV/EXPON                                                                                    \
$Z                                                                                                                      $formatI

$Z                  $xci/multi_02.01$X                                                                                                  \
$Z                                      standard=FAUX                                                                                   \
$Z                                      A1=$xTV/FRACTAL.12                                                                              \
$Z                                      A2=$xTV/EXPON                                                                                   \
$Z                                      R=$xTV/COTE.02                                                                                  \
$Z                                                                                                                      $formatI
$Z                  $xci/substitue$X                                                                                                    \
$Z                                      A=$xTV/COTE.02                                                                                  \
$Z                                      standard=FAUX                                                                                   \
$Z                                      p=$xiP/gris.65                                                                                  \
$Z                                      lissage=VRAI                                                                                    \
$Z                                      passes=256                                                                                      \
$Z                                      substitution=L_SUBSTITUTION_ROUGE                                                               \
$Z                                      R=$xTV/COTE.12                                                                                  \
$Z                                                                                                                      $formatI

$Z                  $xci/gauss$X                                                                                                        \
$Z                                      TRANSLATION_OX=+0.6 TRANSLATION_OY=-0.6                                                         \
$Z                                      c=12                                                                                            \
$Z                                      standard=FAUX                                                                                   \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/normalise.01$X                                                                                                 \
$Z                                      R=$xTV/PONDER.1                                                                                 \
$Z                                                                                                                      $formatI
$Z                  $xci/interpole.02$X                                                                                                 \
$Z                                      A1=$xTV/FRACTAL.01                                                                              \
$Z                                      A2=$xTV/COTE.12                                                                                 \
$Z                                      P=$xTV/PONDER.1                                                                                 \
$Z                                      standard=FAUX                                                                                   \
$Z                                      R=$xTV/COTE.13                                                                                  \
$Z                                                                                                                      $formatI

$Z                  $xci/gauss$X                                                                                                        \
$Z                                      TRANSLATION_OX=+0.1 TRANSLATION_OY=+0.25                                                        \
$Z                                      c=16                                                                                            \
$Z                                      standard=FAUX                                                                                   \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/substitue$X                                                                                                    \
$Z                                      standard=FAUX                                                                                   \
$Z                                      p=$xiP/gris.41                                                                                  \
$Z                                      lissage=VRAI                                                                                    \
$Z                                      passes=256                                                                                      \
$Z                                      substitution=L_SUBSTITUTION_ROUGE                                                               \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/normalise.01$X                                                                                                 \
$Z                                      R=$xTV/PONDER.2                                                                                 \
$Z                                                                                                                      $formatI
$Z                  $xci/substitue$X                                                                                                    \
$Z                                      A=$xTV/FRACTAL.01                                                                               \
$Z                                      standard=FAUX                                                                                   \
$Z                                      p=$xiP/abso.30                                                                                  \
$Z                                      lissage=VRAI                                                                                    \
$Z                                      passes=32                                                                                       \
$Z                                      substitution=L_SUBSTITUTION_ROUGE                                                               \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/scale$X                                                                                                        \
$Z                                      standard=FAUX                                                                                   \
$Z                                      a=0.02 b=-0.015                                                                                 \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/interpole.02$X                                                                                                 \
$Z                                      A2=$xTV/COTE.13                                                                                 \
$Z                                      P=$xTV/PONDER.2                                                                                 \
$Z                                      standard=FAUX                                                                                   \
$Z                                      R=$xTV/COTE.14                                                                                  \
$Z                                                                                                                      $formatI

$Z                  $xci/acces$X                                                                                                        \
$Z                                      A=$xTV/COTE.14                                                                                  \
$Z                                      standard=FAUX                                                                                   \
$Z                                      zero=FAUX                                                                                       \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/seuil$X                                                                                                        \
$Z                                      seuil=7                                                                                         \
$Z                                      R=$xTV/CONTINENT                                                                                \
$Z                                                                                                                      $formatI
$Z                  $xci/init$X                                                                                                         \
$Z                                      niveau=$GRIS_7                                                                                  \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/cache$X                                                                                                        \
$Z                                      M=$xTV/CONTINENT                                                                                \
$Z                                      R=$xTV/MER                                                                                      \
$Z                                                                                                                      $formatI