#######################################################################################################################################
#                                                                                                                                     #
#         M O D U L E  :                                                                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.FRAC.3.11.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        Pal

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

$Z        $xci/acces$X                                                                                                                  \
$Z                            A=$xTV/SURFACE                                                                                            \
$Z                            standard=FAUX zero=FAUX                                                                                   \
$Z                                                                                                                      $formatI  |     \
$Z        $xci/vraies_C$X                                                                                                               \
$Z                            p=$xiP/nuages.02                                                                                          \
$Z                            RVB=VRAI                                                                                                  \
$Z                            R=$xTV/NUAGES                                                                                             \
$Z                                                                                                                      $formatI

$Z        $xci/acces$X                                                                                                                  \
$Z                            A=$xTV/SURFACE                                                                                            \
$Z                            standard=FAUX zero=FAUX                                                                                   \
$Z                                                                                                                      $formatI  |     \
$Z        $xci/vraies_C$X                                                                                                               \
$Z                            p=$xiP/altit.01$Fi                                                                                        \
$Z                            RVB=VRAI                                                                                                  \
$Z                            R=$xTV/COTES                                                                                              \
$Z                                                                                                                      $formatI

$Z        $xci/init$X                                                                                                                   \
$Z                            niveau=$BLANC                                                                                             \
$Z                                                                                                                      $formatI  |     \
$Z        $xci/montagne.01$X                                                                                                            \
$Z                            A=$xTV/SURFACE                                                                                            \
$Z                            standard=FAUX zero=FAUX                                                                                   \
$Z                            avion=VRAI                                                                                                \
$Z                                                                                                                      $formatI  |     \
$Z        $xci/vraies_C$X                                                                                                               \
$Z                            p=$xiP/montagnes.01                                                                                       \
$Z                            RVB=VRAI                                                                                                  \
$Z                            R=$xTV/MONTAGNES                                                                                          \
$Z                                                                                                                      $formatI

$Z        eval                `$xci/genere$X                                                                                          \\\
$Z                             commande='($xci/move$X                                                                                 \\\
$Z                                                   A=$xTV/NUAGES$%s                                                                 \\\
$Z                                                   xR=+0.66                                                                         \\\
$Z                                                                                                                      $formatI  |   \\\
$Z                                        $xci/move$X                                                                                 \\\
$Z                                                   xR=-0.66                                                                         \\\
$Z                                                   R=$xTV/NUAGES$%s                                                                 \\\
$Z                                                                                 $formatI)'                                         \\\
$Z                             en_tete=FAUX RVB=VRAI postfixes_RVB=FAUX separateur=VRAI`

$Z        eval                `$xci/genere$X                                                                                          \\\
$Z                             commande='($xci/move$X                                                                                 \\\
$Z                                                   A=$xTV/COTES$%s                                                                  \\\
$Z                                                   xR=+0.33                                                                         \\\
$Z                                                                                                                      $formatI  |   \\\
$Z                                        $xci/move$X                                                                                 \\\
$Z                                                   xR=-0.66                                                                         \\\
$Z                                                                                                                      $formatI  |   \\\
$Z                                        $xci/move$X                                                                                 \\\
$Z                                                   xR=+0.33                                                                         \\\
$Z                                                   R=$xTV/COTES$%s                                                                  \\\
$Z                                                                                 $formatI)'                                         \\\
$Z                             en_tete=FAUX RVB=VRAI postfixes_RVB=FAUX separateur=VRAI`

$Z        eval                `$xci/genere$X                                                                                          \\\
$Z                             commande='($xci/move$X                                                                                 \\\
$Z                                                   A=$xTV/MONTAGNES$%s                                                              \\\
$Z                                                   xR=-0.66                                                                         \\\
$Z                                                                                                                      $formatI  |   \\\
$Z                                        $xci/move$X                                                                                 \\\
$Z                                                   xR=+0.66                                                                         \\\
$Z                                                   R=$xTV/MONTAGNES$%s                                                              \\\
$Z                                                                                 $formatI)'                                         \\\
$Z                             en_tete=FAUX RVB=VRAI postfixes_RVB=FAUX separateur=VRAI`

$Z        eval                `$xci/genere$X                                                                                          \\\
$Z                             commande='($xci/cache$X                                                                                \\\
$Z                                                   A=$xTV/NUAGES$%s                                                                 \\\
$Z                                                   M=$xTV/COTES$%s                                                                  \\\
$Z                                                                                                                      $formatI  |   \\\
$Z                                        $xci/cache$X                                                                                \\\
$Z                                                   M=$xTV/MONTAGNES$%s                                                              \\\
$Z                                                   R=$_____images1$%s                                                               \\\
$Z                                                                                 $formatI)'                                         \\\
$Z                             en_tete=FAUX RVB=VRAI postfixes_RVB=FAUX separateur=VRAI`

$Z        $xci/acces$X                                                                                                                  \
$Z                            A=$xTV/SURFACE                                                                                            \
$Z                            standard=FAUX zero=FAUX                                                                                   \
$Z                                                                                                                      $formatI  |     \
$Z        $xci/substitue$X                                                                                                              \
$Z                            p=$xiP/plan.20                                                                                            \
$Z                            substitution=L_SUBSTITUTION_ROUGE                                                                         \
$Z                            R=$xTV/NIVEAUX.1                                                                                          \
$Z                                                                                                                      $formatI
$Z        $xci/dilate.01$X                                                                                                              \
$Z                            A=$xTV/NIVEAUX.1                                                                                          \
$Z                            points=25                                                                                                 \
$Z                            R=$xTV/NIVEAUX.2                                                                                          \
$Z                                                                                                                      $formatI
$Z        $xci/eor$X                                                                                                                    \
$Z                            A1=$xTV/NIVEAUX.1                                                                                         \
$Z                            A2=$xTV/NIVEAUX.2                                                                                         \
$Z                            R=$xTV/NIVEAUX.3                                                                                          \
$Z                                                                                                                      $formatI

$Z        eval                `$xci/genere$X                                                                                          \\\
$Z                             commande='($xci/cache$X                                                                                \\\
$Z                                                   A=$_____images1$%s                                                               \\\
$Z                                                   M=$xTV/NIVEAUX.3                                                                 \\\
$Z                                                   R=$_____images2$%s                                                               \\\
$Z                                                                                 $formatI)'                                         \\\
$Z                             en_tete=FAUX RVB=VRAI postfixes_RVB=FAUX separateur=VRAI`