#######################################################################################################################################
# #
# I N T E R P O L A T I O N D E P A Y S A G E S : #
# #
# #
# Author of '$xiirf/.PAYT.9.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20031025125348). #
# #
#######################################################################################################################################
$Z setParam _____Interpolateur $xiio/MIRE
$Z # Introduit le 20031031094441. #
$Z setParam _____Palette $xiP/gris.43
$Z # Introduit le 20031030220332. #
$Z setParam _____Avion FAUX
$Z # Introduit le 20031127092739. #
$Z setParam _____Brume 0.85
$Z IformatI $_____Interpolateur
$Z $xci/format.01$X \
$Z A=$_____Interpolateur \
$Z mode=0 \
$Z R=$xT/INTERPOL \
$Z $formatR_Pal
$Z Pal
$Z $xci/acces$X \
$Z A=$xT/INTERPOL \
$Z convertir=VRAI \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z $formatI | \
$Z $xci/lissage$X \
$Z standard=FAUX \
$Z passes=256 \
$Z $formatI | \
$Z $xci/substitue$X \
$Z standard=FAUX \
$Z p=$_____Palette \
$Z lissage=VRAI \
$Z passes=256 \
$Z substitution=L_SUBSTITUTION_ROUGE \
$Z R=$xT/INTERPOL.2 \
$Z $formatI
$Z $xci/acces$X \
$Z A=$xT/INTERPOL.2 \
$Z standard=FAUX \
$Z zero=FAUX \
$Z R=$xT/INTERPOL.1 \
$Z $formatI
$Z if ("$_____Avion" == "FAUX") then
$Z Std
$Z $xci/transpose$X \
$Z A=$xiio/MIRE \
$Z $formatI | \
$Z $xci/format.01$X \
$Z mode=0 \
$Z R=$xT/ABAISSE \
$Z $formatR_Pal
$Z Pal
$Z $xci/acces$X \
$Z A=$xT/ABAISSE \
$Z convertir=VRAI \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z $formatI | \
$Z $xci/lissage$X \
$Z standard=FAUX \
$Z passes=256 \
$Z $formatI | \
$Z $xci/substitue$X \
$Z standard=FAUX \
$Z p=$xiP/gris.45 \
$Z lissage=VRAI \
$Z passes=256 \
$Z substitution=L_SUBSTITUTION_ROUGE \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z R=$xT/ABAISSE \
$Z $formatI
$Z else
$Z $xci/init$X \
$Z standard=FAUX \
$Z valeur=1 \
$Z R=$xT/ABAISSE \
$Z $formatI
$Z endif
$Z Pal
$Z $xci/fract_2D.01$X \
$Z graine=1111 \
$Z mX=0.2 mY=0.05 \
$Z standard=FAUX \
$Z $formatI | \
$Z $xci/substitue$X \
$Z standard=FAUX \
$Z p=$xiP/gris.52 \
$Z lissage=VRAI \
$Z passes=256 \
$Z substitution=L_SUBSTITUTION_ROUGE \
$Z $formatI | \
$Z $xci/acces$X \
$Z standard=FAUX \
$Z $formatI | \
$Z $xci/vraies_C$X \
$Z p=$xiP/nuages.02 \
$Z RVB=VRAI \
$Z R=$xT/NUAGES.01 \
$Z $formatI
$Z
$Z $xci/fract_2D.01$X \
$Z graine=3333 \
$Z standard=FAUX \
$Z R=$xT/FRACTAL.02 \
$Z $formatI
$Z
$Z $xci/acces$X \
$Z A=$xT/FRACTAL.02 \
$Z standard=FAUX \
$Z zero=FAUX \
$Z $formatI | \
$Z $xci/substitue$X \
$Z substitution=L_SUBSTITUTION_ROUGE \
$Z p=$xiP/gris.02 \
$Z $formatI | \
$Z $xci/substitue$X \
$Z substitution=L_SUBSTITUTION_ROUGE \
$Z p=$xiP/gris.02 \
$Z $formatI | \
$Z $xci/substitue$X \
$Z substitution=L_SUBSTITUTION_ROUGE \
$Z p=$xiP/gris.02 \
$Z $formatI | \
$Z $xci/substitue$X \
$Z substitution=L_SUBSTITUTION_ROUGE \
$Z p=$xiP/gris.02 \
$Z $formatI | \
$Z $xci/substitue$X \
$Z substitution=L_SUBSTITUTION_ROUGE \
$Z p=$xiP/gris.02 \
$Z R=$xT/PONDER \
$Z $formatI
$Z
$Z $xci/init$X \
$Z niveau=$BLANC \
$Z R=$xT/TEXTURE.01 \
$Z $formatI
$Z
$Z $xci/random.01$X \
$Z graine=2 \
$Z inf=$GRIS_4 \
$Z R=$xT/RANDOM \
$Z $formatI
$Z $xci/vraies_C$X \
$Z A=$xT/RANDOM \
$Z p=$xiP/vert.01 \
$Z RVB=VRAI \
$Z R=$xT/RANDOM \
$Z $formatI
$Z $xci/scale$X \
$Z A=$xT/RANDOM$VERTE \
$Z a=0.7 \
$Z R=$xT/RANDOM$ROUGE \
$Z $formatI
$Z $xci/scale$X \
$Z A=$xT/RANDOM$VERTE \
$Z a=0.7 \
$Z R=$xT/RANDOM$BLEUE \
$Z $formatI
$Z
$Z eval `$xci/genere$X \\\
$Z commande='($xci/interpole.02$X \\\
$Z A1=$xT/TEXTURE.01 \\\
$Z A2=$xT/RANDOM%s \\\
$Z P=$xT/PONDER \\\
$Z R=$xT/TEXTURE.02%s \\\
$Z $formatI)' \\\
$Z en_tete=FAUX RVB=VRAI separateur=VRAI`
$Z $xci/fract_2D.01$X \
$Z graine=5555 \
$Z standard=FAUX \
$Z R=$xT/FRACTAL.01 \
$Z $formatI
$Z
$Z $xci/init$X \
$Z niveau=$BLANC \
$Z R=$xT/TEXTURE.01 \
$Z $formatI
$Z
$Z $xci/substitue$X \
$Z A=$xT/FRACTAL.01 \
$Z standard=FAUX \
$Z p=$xiP/gris.54 \
$Z lissage=VRAI \
$Z passes=256 \
$Z substitution=L_SUBSTITUTION_ROUGE \
$Z R=$xT/FRACTAL.03 \
$Z $formatI
$Z
$Z $xci/acces$X \
$Z A=$xT/FRACTAL.01 \
$Z standard=FAUX \
$Z zero=FAUX \
$Z $formatI | \
$Z $xci/vraies_C$X \
$Z p=$xiP/MonValley.13 \
$Z RVB=VRAI \
$Z R=$xT/FRACTAL.01 \
$Z $formatI
$Z
$Z eval `$xci/genere$X \\\
$Z commande='($xci/interpole.02$X \\\
$Z A1=$xT/TEXTURE.02%s \\\
$Z A2=$xT/FRACTAL.01%s \\\
$Z P=$xT/INTERPOL.1 \\\
$Z R=$xT/TEXTURE.03%s \\\
$Z $formatI)' \\\
$Z en_tete=FAUX RVB=VRAI separateur=VRAI`
$Z $xci/interpole.02$X \
$Z A1=$xT/FRACTAL.02 \
$Z A2=$xT/FRACTAL.03 \
$Z P=$xT/INTERPOL.2 \
$Z standard=FAUX \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z $formatI | \
$Z $xci/multi_02.01$X \
$Z A2=$xT/ABAISSE \
$Z standard=FAUX \
$Z R=$xT/FRACTAL.04 \
$Z $formatI
$Z if ("$_____Avion" == "FAUX") then
$Z set _____Ty=0.99
$Z set _____Perspective=0.70
$Z $xci/montagne.01$X \
$Z A=$xT/FRACTAL.04 \
$Z standard=FAUX \
$Z zero=FAUX \
$Z T=$xT/TEXTURE.01 \
$Z avion=$_____Avion \
$Z Ty=$_____Ty \
$Z perspective=$_____Perspective \
$Z Z-Buffer=VRAI \
$Z Z=$xT/BRUME \
$Z R=$xT/MONTAGNE \
$Z $formatI
$Z eval `$xci/genere$X \\\
$Z commande='($xci/montagne.01$X \\\
$Z A=$xT/FRACTAL.04 \\\
$Z standard=FAUX \\\
$Z zero=FAUX \\\
$Z T=$xT/TEXTURE.03%s \\\
$Z Nminimum=0.4 \\\
$Z attenuation=0.20 \\\
$Z avion=$_____Avion \\\
$Z fond=VRAI \\\
$Z F=$xT/NUAGES.01%s \\\
$Z Ty=$_____Ty \\\
$Z perspective=$_____Perspective \\\
$Z R=$_____ImagesR1%s \\\
$Z $formatI)' \\\
$Z en_tete=FAUX RVB=VRAI separateur=VRAI`
$Z eval `$xci/genere$X \\\
$Z commande='($xci/complement$X \\\
$Z A=$xT/BRUME \\\
$Z $formatI | \\\
$Z $xci/scale$X \\\
$Z a=$_____Brume \\\
$Z R=$xT/BRUME%s \\\
$Z $formatI)' \\\
$Z en_tete=FAUX RVB=VRAI separateur=VRAI`
$Z $xci/vitre.53$Z \
$Z $_____ImagesR1 \
$Z $xT/BRUME \
$Z $_____ImagesR2
$Z $DELETE $xT/MONTAGNE
$Z $DELETE $xT/BRUME.*
$Z else
$Z eval `$xci/genere$X \\\
$Z commande='($xci/montagne.01$X \\\
$Z A=$xT/FRACTAL.04 \\\
$Z standard=FAUX \\\
$Z zero=FAUX \\\
$Z T=$xT/TEXTURE.03%s \\\
$Z avion=$_____Avion \\\
$Z R=$_____ImagesR1%s \\\
$Z $formatI)' \\\
$Z en_tete=FAUX RVB=VRAI separateur=VRAI`
$Z endif
$Z $DELETE $xT/INTERPOL
$Z $DELETE $xT/INTERPOL.2
$Z $DELETE $xT/INTERPOL.1
$Z $DELETE $xT/ABAISSE
$Z $DELETE $xT/ABAISSE
$Z $DELETE $xT/NUAGES.01
$Z $DELETE $xT/FRACTAL.02
$Z $DELETE $xT/PONDER
$Z $DELETE $xT/TEXTURE.01
$Z $DELETE $xT/RANDOM
$Z $DELETE $xT/RANDOM
$Z $DELETE $xT/RANDOM$ROUGE
$Z $DELETE $xT/RANDOM$BLEUE
$Z $DELETE $xT/TEXTURE.02.*
$Z $DELETE $xT/FRACTAL.01
$Z $DELETE $xT/TEXTURE.01
$Z $DELETE $xT/FRACTAL.03
$Z $DELETE $xT/FRACTAL.01
$Z $DELETE $xT/TEXTURE.03.*
$Z $DELETE $xT/FRACTAL.04