#######################################################################################################################################
#                                                                                                                                     #
#         S I M U L A T I O N   D E S   P O M M I E R S   D E   M O N D R I A N  :                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.POMM.61.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20210616104050).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Seuil                    160

$Z                  setParam            _____Diagonale                FAUX

$Z                  setParam            _____OptimiserIncrement       VRAI

$Z                  setParam            _____UtiliserTaille           FAUX

$Z                  setParam            _____AvertirCouleurs          VRAI

$Z                  setParam            _____NiveauInitial            $NOIR_PLANCHER

$Z                  setParam            _____IncrementNiveau          1

$Z                  setParam            _____NiveauAleatoire          VRAI

$Z                  setParam            _____GraineNiveau             1789

$Z                  setParam            _____FIterations              8

$Z                  setParam            _____FGraine                  1947

$Z                  setParam            _____FMailleX                 0.1

$Z                  setParam            _____FMailleY                 0.1

$Z                  setParam            _____CAlpha                   0.9

$Z                  setParam            _____CBeta                    0.1

$Z                  setParam            _____Npoints                  9

$Z                  setParam            _____PaletteP                 $xiP/Mondrian.31

$Z                  FileTmpB            ImAgE

$Z                  $xci/luminance.01$X                                                                                                 \
$Z                                      A=$_____ImageA                                                                                  \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/complement$X                                                                                                   \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/seuil$X                                                                                                        \
$Z                                      seuil=$_____Seuil                                                                               \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/complement$X                                                                                                   \
$Z                                      R=$ImAgE.M                                                                                      \
$Z                                                                                                  $formatI

$Z                  set       DiReCtIoN_1="$K_VIDE"

$Z                  set       DiReCtIoN_1="$DiReCtIoN_1"" est=VRAI"
$Z                  set       DiReCtIoN_1="$DiReCtIoN_1"" nord=VRAI"
$Z                  set       DiReCtIoN_1="$DiReCtIoN_1"" ouest=VRAI"
$Z                  set       DiReCtIoN_1="$DiReCtIoN_1"" sud=VRAI"

$Z                  set       DiReCtIoN_2="$K_VIDE"

$Z                  set       DiReCtIoN_2="$DiReCtIoN_2"" nord___est=$_____Diagonale"
$Z                  set       DiReCtIoN_2="$DiReCtIoN_2"" nord_ouest=$_____Diagonale"
$Z                  set       DiReCtIoN_2="$DiReCtIoN_2"" sud_ouest=$_____Diagonale"
$Z                  set       DiReCtIoN_2="$DiReCtIoN_2"" sud___est=$_____Diagonale"

$Z                  $xci/contours.22$X                                                                                                  \
$Z                                      A=$ImAgE.M                                                                                      \
$Z                                      utiliser_taille=$_____UtiliserTaille                                                            \
$Z                                      avertir_couleurs=$_____AvertirCouleurs                                                          \
$Z                                      optimiser_increment=$_____OptimiserIncrement                                                    \
$Z                                      niveau_initial=$_____NiveauInitial                                                              \
$Z                                      increment_niveau=$_____IncrementNiveau                                                          \
$Z                                      niveau_aleatoire=$_____NiveauAleatoire                                                          \
$Z                                      graine_niveau_aleatoire=$_____GraineNiveau                                                      \
$Z                                      $DiReCtIoN_1                                                                                    \
$Z                                      $DiReCtIoN_2                                                                                    \
$Z                                      R=$ImAgE.Contour                                                                                \
$Z                                                                                                  $formatI

$Z                  $xci/fract_2D.01$X                                                                                                  \
$Z                                      graine=$_____FGraine                                                                            \
$Z                                      iterations=$_____FIterations                                                                    \
$Z                                      editer_message_extrema=FAUX                                                                     \
$Z                                      mx=$_____FMailleX my=$_____FMailleY                                                             \
$Z                                      R=$ImAgE.Fractal                                                                                \
$Z                                                                                                  $formatI

$Z                  $xci/interpole.01$X                                                                                                 \
$Z                                      alpha=$_____CAlpha                                                                              \
$Z                                      A1=$ImAgE.Contour                                                                               \
$Z                                      beta=$_____CBeta                                                                                \
$Z                                      A2=$ImAgE.Fractal                                                                               \
$Z                                      R=$ImAgE.1                                                                                      \
$Z                                                                                                  $formatI

$Z                  $xci/complement$X                                                                                                   \
$Z                                      A=$ImAgE.M                                                                                      \
$Z                                      R=$ImAgE.M                                                                                      \
$Z                                                                                                  $formatI

$Z                  $xci/vraies_C$X                                                                                                     \
$Z                                      A=$ImAgE.1                                                                                      \
$Z                                      p=$_____PaletteP                                                                                \
$Z                                      R=$ImAgE.2                                                                                      \
$Z                                                                                                  $formatI

$Z        execRVB  "$xci/and$X                                                                                                          \
$Z                                      A1=$ImAgE.M                                                                                     \
$Z                                      A2=$ImAgE.2%s                                                                                   \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/convol.01$X                                                                                                    \
$Z                                      points=$_____Npoints                                                                            \
$Z                                      R=$_____ImageR%s                                                                                \
$Z                                                                                                  $formatI"

$Z                  FileTmpE            ImAgE