#######################################################################################################################################
#                                                                                                                                     #
#         M I S E   E N   M O N T A G N E   D ' U N E   S P I R A L E   C A R R E E   D E   C H A M P S  :                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PIAL.61.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240525183752).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Passes                   20

#20240525184759____:$Z                  setParam            _____NiveauFond               $GRIS_2                                     #
#20240527092051____:$Z                  setParam            _____NiveauFond               $GRIS_4                                     #
$Z                  setParam            _____NiveauFond               $GRIS_8

$Z                  setParam            _____Fond                     $NEXIST
$Z                                      # Parametre introduit le 20240601104800...                                                    #

$Z                  setParam            _____Echelle                  0.2

#20240528105322____:$Z                  setParam            _____TranslationY             0.964                                       #
$Z                  setParam            _____TranslationY             0.994

$Z                  setParam            _____Perspective              2.4
$Z                                      # Parametres introduits le 20240528081600...                                                  #

#20240528135859____:$Z                  setParam            _____PaletteB                 $xiP/gris.01                                #
$Z                  setParam            _____PaletteB                 $xiP/gris.41
$Z                                      # Parametres introduits le 20240528132503...                                                  #

$Z                  setParam            _____AntiAliasing             `GetParam $xci/cache$X anti_aliasing`
$Z                                      # Parametres introduits le 20240528132503...                                                  #

$Z                  $xci/acces$X                                                                                                        \
$Z                                      A=$_____ImageA                                                                                  \
$Z                                      convertir=VRAI                                                                                  \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/lissage$X                                                                                                      \
$Z                                      passes=$_____Passes                                                                             \
$Z                                      standard=FAUX                                                                                   \
$Z                                      navap=VRAI                                                                                      \
$Z                                      R=$xTV/PIAL.61.1                                                                                \
$Z                                                                                                  $formatI

$Z                  $xci/vraies_C$X                                                                                                     \
$Z                                      A=$_____ImageA                                                                                  \
$Z                                      p=$_____Palette                                                                                 \
$Z                                      R=$xTV/PIAL.61.2                                                                                \
$Z                                                                                                  $formatI

$Z        execRVB   $xci/init$X                                                                                                         \
$Z                                      n=$_____NiveauFond                                                                              \
$Z                                      R=$xTV/PIAL.61.42%s                                                                             \
$Z                                                                                                  $formatI

$Z                  IfBasic             ($_____Fond == $NEXIST) ThenBasic
$Z                                      # Test introduit le 20240601104800...                                                         #
$Z                  ElseBasic
$Z                            execRVB   $xci/cache$X        A=$xTV/PIAL.61.42%s                                                         \
$Z                                                          M=$_____Fond%s                                                              \
$Z                                                          anti_aliasing=$_____AntiAliasing                                            \
$Z                                                          R=$xTV/PIAL.61.42%s                                                         \
$Z                                                                                                                      $formatI
$Z                  EndifBasic

$Z                  $xci/cache.21$Z     $xTV/PIAL.61.42 $xTV/PIAL.61.2 $xTV/PIAL.61.3

$Z                  set       SuRfAcE=$xTV/PIAL.61.1
$Z                  set       TeXtUrE=$xTV/PIAL.61.3

$Z                  set       PaRaMeTrEs="$K_VIDE"
$Z                  set       PaRaMeTrEs="$PaRaMeTrEs"" echelle=$_____Echelle"

#20240531122023____:$Z        execRVB   $xci/montagne.01$X                                                                         \  #
#20240531122023____:$Z                                      A=$SuRfAcE                                                             \  #
#20240531122023____:$Z                                      standard=FAUX                                                          \  #
#20240531122023____:$Z                                      zero=FAUX                                                              \  #
#20240531122023____:$Z                                      avion=VRAI                                                             \  #
#20240531122023____:$Z                                      T=$TeXtUrE%s                                                           \  #
#20240531122023____:$Z                                      R=$_____ImageR$m%s                                                     \  #
#20240531122023____:$Z                                                                                                  $formatI      #

$Z        execRVB   $xci/montagne.01$X                                                                                                  \
$Z                                      A=$SuRfAcE                                                                                      \
$Z                                      standard=FAUX                                                                                   \
$Z                                      zero=FAUX                                                                                       \
$Z                                      avion=VRAI                                                                                      \
$Z                                      $PaRaMeTrEs                                                                                     \
$Z                                      T=$TeXtUrE%s                                                                                    \
$Z                                      R=$_____ImageR$m%s                                                                              \
$Z                                                                                                  $formatI

#20240528081600____:$Z                  set       PaRaMeTrEs="echelle=0.2 Ty=0.964 perspective=2.4 falaise=VRAI"                      #

#20240531122023____:$Z                  set       PaRaMeTrEs="$K_VIDE"                                                                #
#20240531122023____:$Z                  set       PaRaMeTrEs="$PaRaMeTrEs"" echelle=$_____Echelle"                                    #

$Z                  set       PaRaMeTrEs="$PaRaMeTrEs"" Ty=$_____TranslationY"
$Z                  set       PaRaMeTrEs="$PaRaMeTrEs"" perspective=$_____Perspective"
$Z                  set       PaRaMeTrEs="$PaRaMeTrEs"" falaise=VRAI"

$Z                  $xci/montagne.01$X                                                                                                  \
$Z                                      A=$SuRfAcE                                                                                      \
$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=1                                                                                      \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/substitue$X                                                                                                    \
$Z                                      p=$_____PaletteB                                                                                \
$Z                                      substitution=L_SUBSTITUTION_ROUGE                                                               \
$Z                                      R=$xTV/BRUME                                                                                    \
$Z                                                                                                  $formatI

$Z        execRVB   $xci/montagne.01$X                                                                                                  \
$Z                                      A=$SuRfAcE                                                                                      \
$Z                                      standard=FAUX                                                                                   \
$Z                                      zero=FAUX                                                                                       \
$Z                                      T=$TeXtUrE%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