#######################################################################################################################################
#                                                                                                                                     #
#         D E F I N I T I O N   D E   L ' I L E   D U   " M Y S T I Q U E "  :                                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Nota :                                                                                                                      #
#                                                                                                                                     #
#                     On notera le nom '$xiirv/.SMIT.F1.7.$M.$U'                                                                      #
#                   et non pas '$xiirv/.SMIT.F1.7$M.$U' et ce a                                                                       #
#                   cause de l'usage dans 'v $xiirv/$Fnota Debut_listG_SMIT_F1_7_M'...                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.SMIT.F1.7.$M.$U' :                                                                                       #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20231009143947).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Passes         10
$Z                  setParam            _____GraineF        1789
$Z                  setParam            _____NiveauF        20
$Z                  setParam            _____MailleX        0.1
$Z                  setParam            _____MailleY        0.1

$Z                  set                 SaVe_____ImageR=$_____ImageR

$Z                  FileTmpB  FPalette

$Z                  $xciP/S_NIVEAU$X                                                                                                    \
$Z                                      paletteA=$xiP/GRIS_7                                                                            \
$Z                                      niveau=`calcul $NOIR+0`                                                                         \
$Z                                      ROUGE=VRAI nR=$NOIR                                                                             \
$Z                                      VERTE=VRAI nV=$NOIR                                                                             \
$Z                                      BLEUE=VRAI nB=$NOIR                                                                             \
$Z                                      paletteR=$FPalette

$Z                  $xciP/S_NIVEAU$X                                                                                                    \
$Z                                      paletteA=$FPalette                                                                              \
$Z                                      niveau=`calcul $NOIR+1`                                                                         \
$Z                                      ROUGE=VRAI nR=$NOIR                                                                             \
$Z                                      VERTE=VRAI nV=$NOIR                                                                             \
$Z                                      BLEUE=VRAI nB=$NOIR                                                                             \
$Z                                      paletteR=$FPalette

$Z                  set       _____ClusterB_6=$_____ClusterA_6

$Z                  set       _____Palette=$FPalette

$Z                  set       _____Squelette2=FAUX
$Z                  set       _____Squelette3=FAUX

$Z                  set       _____ImageR=$xTV/SMIT.F1.7

$m4                 _____include(_____xiirv/.SMIT.D1.1._____U)

$Z                  FileTmpE  FPalette

$Z                  $xci/luminance.01$X                                                                                                 \
$Z                                      A=$xTV/SMIT.F1.7                                                                                \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/acces$X                                                                                                        \
$Z                                      convertir=VRAI                                                                                  \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/lissage$X                                                                                                      \
$Z                                      standard=FAUX                                                                                   \
$Z                                      normaliser_avant_apres=VRAI                                                                     \
$Z                                      passes=$_____Passes                                                                             \
$Z                                      R=$xTV/SMIT.F1.7.1                                                                              \
$Z                                                                                                                      $formatI

$Z                  $xci/fract_2D.01$X                                                                                                  \
$Z                                      standard=FAUX                                                                                   \
$Z                                      niveau=$_____NiveauF                                                                            \
$Z                                      mx=$_____MailleX my=$_____MailleY                                                               \
$Z                                      graine=$_____GraineF                                                                            \
$Z                                      renormaliser=VRAI                                                                               \
$Z                                      R=$xTV/SMIT.F1.7.2                                                                              \
$Z                                                                                                                      $formatI

$Z                  $xci/multi_02.01$X                                                                                                  \
$Z                                      A1=$xTV/SMIT.F1.7.1                                                                             \
$Z                                      A2=$xTV/SMIT.F1.7.2                                                                             \
$Z                                      standard=FAUX                                                                                   \
$Z                                      R=$xTV/SMIT.F1.7.3                                                                              \
$Z                                                                                                                      $formatI

$Z                  $xci/acces$X                                                                                                        \
$Z                                      A=$xTV/SMIT.F1.7.3                                                                              \
$Z                                      standard=FAUX zero=FAUX                                                                         \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/vraies_C$X                                                                                                     \
$Z                                      p=$_____MPalette                                                                                \
$Z                                      R=$xTV/SMIT.F1.7.4                                                                              \
$Z                                                                                                                      $formatI

$Z                  set       PaRaMeTrEs="echelle=0.1 Ty=0.98 perspective=0.5"

$Z                  $xci/montagne.01$X                                                                                                  \
$Z                                      A=$xTV/SMIT.F1.7.3                                                                              \
$Z                                      standard=FAUX zero=FAUX                                                                         \
$Z                                      T=$BLANC                                                                                        \
$Z                                      avion=FAUX                                                                                      \
$Z                                      $PaRaMeTrEs                                                                                     \
$Z                                      Z-Buffer=VRAI                                                                                   \
$Z                                      R=$xTV/MONTAGNE                                                                                 \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/complement$X                                                                                                   \
$Z                                                                                                                      $formatI  |     \
$Z                  $xci/multi_02.01$X                                                                                                  \
$Z                                      exponentiation_image=VRAI                                                                       \
$Z                                      exposant=2                                                                                      \
$Z                                      R=$xTV/BRUME                                                                                    \
$Z                                                                                                                      $formatI

$Z                  set       _____ImageR=$SaVe_____ImageR

$Z        execRVB   $xci/montagne.01$X                                                                                                  \
$Z                                      A=$xTV/SMIT.F1.7.3                                                                              \
$Z                                      standard=FAUX zero=FAUX                                                                         \
$Z                                      T=$xTV/SMIT.F1.7.4%s                                                                            \
$Z                                      avion=FAUX                                                                                      \
$Z                                      $PaRaMeTrEs                                                                                     \
$Z                                      R=$_____ImageR$M%s                                                                              \
$Z                                                                                                                      $formatI

$Z        execRVB   $xci/brume.11$X                                                                                                     \
$Z                                      A=$_____ImageR$M%s                                                                              \
$Z                                      B=$xTV/BRUME                                                                                    \
$Z                                      R=$_____ImageR$M%s                                                                              \
$Z                                                                                                                      $formatI