#######################################################################################################################################
#                                                                                                                                     #
#         M I S E   D E   P I   E N   M O N T A G N E  :                                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PIPO.W1.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240415105900).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____GaussC                   32
$Z                  setParam            _____Seuil                    160

$Z                  setParam            _____Passes                   100

$Z                  setParam            _____Palette                  $xiP/cotes.22

$Z                  setParam            _____Sy                       10
$Z                  setParam            _____Perspective              0.6
$Z                  setParam            _____Ty                       0.88

$Z                  $xci/RecadrageHardCopy.02$vv$Z                                                                                      \
$Z                                      $xiHi/OLDIES_BUT_GOLDIES_NB.0101$JPEG                                                           \
$Z                                      $xTV/OLDIES_BUT_GOLDIES_NB.0101                                                                 \
$Z                                      "$formatIR"                                                                                     \
$Z                                      2 $NEXIST 0 252 10 10                                                                           \
$Z                                      "-rotate -0.4 -crop 1561x1167+588+186"
$Z                                      # Le "rotate" et le "crop" permettent d'eliminer tout ce qui est autour des decimales mais    #
$Z                                      # pas une seconde occurence de "PI=3.14...".                                                  #

$Z                  $xci/gauss$X                                                                                                        \
$Z                                      c=$_____GaussC                                                                                  \
$Z                                      R=$xTV/GAUSS                                                                                    \
$Z                                                                    $formatI

$Z                  $xci/luminance.01$X                                                                                                 \
$Z                                      A=$xTV/OLDIES_BUT_GOLDIES_NB.0101                                                               \
$Z                                      R=$xTV/SURFACE.1                                                                                \
$Z                                                                    $formatI

$Z                  $xci/filtre.01$X                                                                                                    \
$Z                                      A=$xTV/SURFACE.1                                                                                \
$Z                                      N=$xTV/GAUSS                                                                                    \
$Z                                      avertir_non_implicite=FAUX                                                                      \
$Z                                      seuil=$_____Seuil                                                                               \
$Z                                      R=$xTV/SURFACE.2                                                                                \
$Z                                                                    $formatI

$Z                  $xci/vraies_C$X                                                                                                     \
$Z                                      A=$xTV/SURFACE.2                                                                                \
$Z                                      p=$_____Palette                                                                                 \
$Z                                      R=$xTV/TEXTURE                                                                                  \
$Z                                                                    $formatI

$Z                  $xci/acces$X                                                                                                        \
$Z                                      A=$xTV/SURFACE.2                                                                                \
$Z                                      convertir=VRAI                                                                                  \
$Z                                                                    $formatI                                                    |     \
$Z                  $xci/lissage$X                                                                                                      \
$Z                                      standard=FAUX                                                                                   \
$Z                                      passes=$_____Passes                                                                             \
$Z                                      navap=VRAI                                                                                      \
$Z                                      R=$xTV/SURFACE.3                                                                                \
$Z                                                                    $formatI

$Z                  set       PaRaMm="$K_VIDE"
$Z                  set       PaRaMm="$PaRaMm"" A=$xTV/SURFACE.3"
$Z                  set       PaRaMm="$PaRaMm"" standard=FAUX zero=FAUX"
$Z                  set       PaRaMm="$PaRaMm"" T=$xTV/TEXTURE%s"
$Z                  set       PaRaMm="$PaRaMm"" Sy=$_____Sy"

$Z        execRVB   $xci/montagne.01$X                                                                                                  \
$Z                                      $PaRaMm                                                                                         \
$Z                                      avion=VRAI                                                                                      \
$Z                                      R=$_____imageR$m%s                                                                              \
$Z                                                                    $formatI

$Z        execRVB   $xci/montagne.01$X                                                                                                  \
$Z                                      $PaRaMm                                                                                         \
$Z                                      Ty=0.55                                                                                         \
$Z                                      avion=FAUX                                                                                      \
$Z                                      falaise=VRAI                                                                                    \
$Z                                      Ty=$_____Ty                                                                                     \
$Z                                      perspective=$_____Perspective                                                                   \
$Z                                      R=$_____imageR$M%s                                                                              \
$Z                                                                    $formatI