#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D E   D E U X   M O T I F S   F R A C T A L S   D E   B A S E  :                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.STRW.43.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20141103184415).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Profondeur               4
$Z                                      # Parametre introduit le 20141104105829...                                                    #

$Z                  setParam            _____MailleX                  0.2

$Z                  setParam            _____MailleY                  0.2

$Z                  setParam            _____Graine1                  1789
$Z                                      # Parametre introduit le 20141104105829...                                                    #

$Z                  setParam            _____Graine2                  1947
$Z                                      # Parametre introduit le 20141104105829...                                                    #

$Z                  setParam            _____Palette                  $xiP/vert_orange

$Z                  setParam            _____Combinaison              $xci/maximum$X
$Z                                      # Parametre introduit le 20141105101756...                                                    #

$Z                  setParam            _____PCombinaison             "$K_VIDE"
$Z                                      # Parametre introduit le 20141105101756...                                                    #

$Z                  $xci/fract_2D.01$X                                                                                                  \
$Z                                      profondeur=$_____Profondeur                                                                     \
$Z                                      mx=$_____MailleX my=$_____MailleY                                                               \
$Z                                      graine=$_____Graine1                                                                            \
$Z                                                                                                            $formatI            |     \
$Z                  $xci/substitue$X                                                                                                    \
$Z                                      p=$xiP/dentscie.01                                                                              \
$Z                                      substitution=L_SUBSTITUTION_ROUGE                                                               \
$Z                                                                                                            $formatI            |     \
$Z                  $xci/multi_02.01$X                                                                                                  \
$Z                                      carre_image=VRAI                                                                                \
$Z                                                                                                            $formatI            |     \
$Z                  $xci/multi_02.01$X                                                                                                  \
$Z                                      carre_image=VRAI                                                                                \
$Z                                      R=$xTV/STRW.11.$_____Graine1                                                                    \
$Z                                                                                                            $formatI

$Z                  $xci/fract_2D.01$X                                                                                                  \
$Z                                      profondeur=$_____Profondeur                                                                     \
$Z                                      mx=$_____MailleX my=$_____MailleY                                                               \
$Z                                      graine=$_____Graine2                                                                            \
$Z                                                                                                            $formatI            |     \
$Z                  $xci/substitue$X                                                                                                    \
$Z                                      p=$xiP/dentscie.01                                                                              \
$Z                                      substitution=L_SUBSTITUTION_ROUGE                                                               \
$Z                                                                                                            $formatI            |     \
$Z                  $xci/multi_02.01$X                                                                                                  \
$Z                                      carre_image=VRAI                                                                                \
$Z                                                                                                            $formatI            |     \
$Z                  $xci/multi_02.01$X                                                                                                  \
$Z                                      carre_image=VRAI                                                                                \
$Z                                      R=$xTV/STRW.11.$_____Graine2                                                                    \
$Z                                                                                                            $formatI

$Z                  $_____Combinaison                                                                                                   \
$Z                                      A1=$xTV/STRW.11.$_____Graine1                                                                   \
$Z                                      A2=$xTV/STRW.11.$_____Graine2                                                                   \
$Z                                      $_____PCombinaison                                                                              \
$Z                                                                                                            $formatI            |     \
$Z                  $xci/tapisserie$X                                                                                                   \
$Z                                                                                                            $formatI            |     \
$Z                  $xci/vraies_C$X                                                                                                     \
$Z                                      p=$_____Palette                                                                                 \
$Z                                      R=$_____ImageR.bas                                                                              \
$Z                                                                                                            $formatI

$Z        execRVB   $xci/acces$X                                                                                                        \
$Z                                      A=$_____ImageR.bas%s                                                                            \
$Z                                      convertir=VRAI                                                                                  \
$Z                                      R=$xTV/CHAMP%s                                                                                  \
$Z                                                                                                            $formatI