#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N E   P A R T I T I O N   F R A C T A L E   E N   D E U X   Z O N E S  :                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.PAYS.F1.11.$U' :                                                                                         #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20150303093514).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Graine1                  `GetParam $xci/fract_2D.01$X graine`

$Z                  $xci/fract_2D.01$X                                                                                                  \
$Z                                      graine=$_____Graine1                                                                            \
$Z                                      R=$xTV/CHAMP                                                                                    \
$Z                                                                                                                      $formatI

$Z                  $xci/substitue$X                                                                                                    \
$Z                                      A=$xTV/CHAMP                                                                                    \
$Z                                      substitution=L_SUBSTITUTION_ROUGE                                                               \
$Z                                      p=$xiP/gris.02                                                                                  \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/substitue$X                                                                                                    \
$Z                                      substitution=L_SUBSTITUTION_ROUGE                                                               \
$Z                                      p=$xiP/gris.02                                                                                  \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/substitue$X                                                                                                    \
$Z                                      substitution=L_SUBSTITUTION_ROUGE                                                               \
$Z                                      p=$xiP/gris.02                                                                                  \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/substitue$X                                                                                                    \
$Z                                      substitution=L_SUBSTITUTION_ROUGE                                                               \
$Z                                      p=$xiP/gris.02                                                                                  \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/substitue$X                                                                                                    \
$Z                                      substitution=L_SUBSTITUTION_ROUGE                                                               \
$Z                                      p=$xiP/gris.02                                                                                  \
$Z                                      R=$xTV/PONDER                                                                                   \
$Z                                                                                                                      $formatI

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

$Z                  $xci/random.01$X                                                                                                    \
$Z                                      graine=2                                                                                        \
$Z                                      inf=$GRIS_4                                                                                     \
$Z                                      R=$xTV/RANDOM                                                                                   \
$Z                                                                                                                      $formatI
$Z                  $xci/vraies_C$X                                                                                                     \
$Z                                      A=$xTV/RANDOM                                                                                   \
$Z                                      p=$xiP/vert.01                                                                                  \
$Z                                      RVB=VRAI                                                                                        \
$Z                                      R=$xTV/RANDOM                                                                                   \
$Z                                                                                                                      $formatI
$Z                  $xci/scale$X                                                                                                        \
$Z                                      A=$xTV/RANDOM$VERTE                                                                             \
$Z                                      a=0.7                                                                                           \
$Z                                      R=$xTV/RANDOM$ROUGE                                                                             \
$Z                                                                                                                      $formatI
$Z                  $xci/scale$X                                                                                                        \
$Z                                      A=$xTV/RANDOM$VERTE                                                                             \
$Z                                      a=0.7                                                                                           \
$Z                                      R=$xTV/RANDOM$BLEUE                                                                             \
$Z                                                                                                                      $formatI

$Z        execRVB   $xci/interpole.02$X                                                                                                 \
$Z                                      A1=$xTV/BLANC                                                                                   \
$Z                                      A2=$xTV/RANDOM%s                                                                                \
$Z                                      P=$xTV/PONDER                                                                                   \
$Z                                      R=$xTV/TEXTURE%s                                                                                \
$Z                                                                                                                      $formatI