#######################################################################################################################################
# #
# 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 : #
# #
# #
# Author of '$xiirv/.PIPO.D4.31.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20240304095601). #
# #
#######################################################################################################################################
$Z setParam _____PassesLissage 500
$Z # Parametre introduit le 20240305094928... #
$Z setParam _____ExposantLissage 1
$Z # Parametre introduit le 20240305102923... #
$Z SETParam _____GaussienneC 0
$Z setParam _____GaussienneA 0.2
$Z # Parametres introduits le 20240306100849... #
$Z setParam _____EchelleM 0.4
$Z # Parametre introduit le 20240306100849... #
$Z setParam _____CorrectionGamma $xiP/gris.A7
$Z # Parametre introduit le 20240308093147... #
$Z $DELETE $xTV/COORDONNEES$COORD_Z
$Z $DELETE $xTV/RAYONS
$Z $DELETE $xTV/ROUGE
$Z $DELETE $xTV/VERTE
$Z $DELETE $xTV/BLEUE
$Z execRVB $xci/init$X \
$Z niveau=$GRIS_4 \
$Z R=$xTV/FOND%s \
$Z $formatI
$Z set FoNd="fond=VRAI F=$xTV/FOND"
$m4 _____include(_____xiirv/.PIPO.D4.12._____U)
$Z IfBasic ($_____CouleursDecimalesV == $EXIST) ThenBasic
$Z # Test introduit le 20240314181735... #
$Z ElseBasic
$Z $DELETE $xTV/NIVEAUX
$Z $CA $xTV/NIVEAUX.Nume $xTV/NIVEAUX.Spir \
$Z > $xTV/NIVEAUX
$Z # Le coloriage via le numero des decimales a ete introduit le 20240314181735... #
$Z $DELETE $xTV/NIVEAUX.Nume
$Z $DELETE $xTV/NIVEAUX.Spir
$Z EndifBasic
$m4 _____include(_____xiirv/.PRIM.4.14._____U)
# Cette generation de l'image '$xiirv/PIPO.D4' est celle de l'image finale '$xiirv/PIPO.D4'. #
#20240305102923____:$Z $xci/luminance.01$X \ #
#20240305102923____:$Z A=$_____imagesL \ #
#20240305102923____:$Z $formatI | \ #
#20240305102923____:$Z $xci/acces$X \ #
#20240305102923____:$Z convertir=VRAI \ #
#20240305102923____:$Z $formatI | \ #
#20240305102923____:$Z $xci/lissage$X \ #
#20240305102923____:$Z standard=FAUX \ #
#20240305102923____:$Z passes=$_____PassesLissage \ #
#20240305102923____:$Z navap=VRAI \ #
#20240305102923____:$Z R=$xTV/SURFACE \ #
#20240305102923____:$Z $formatI #
$Z $xci/luminance.01$X \
$Z A=$_____imagesL \
$Z $formatI | \
$Z $xci/acces$X \
$Z convertir=VRAI \
$Z $formatI | \
$Z $xci/lissage$X \
$Z standard=FAUX \
$Z passes=$_____PassesLissage \
$Z navap=VRAI \
$Z $formatI | \
$Z $xci/exponent$X \
$Z standard=FAUX \
$Z exposant=$_____ExposantLissage \
$Z cx=0 cy=0 cn=1 \
$Z R=$xTV/SURFACE \
$Z $formatI
$Z if ($_____GaussienneC != 0) then
# Test introduit le 20240306100849... #
$Z FilSTmpB IGaUsS
$Z $xci/gauss$X \
$Z standard=FAUX \
$Z c=$_____GaussienneC \
$Z amplificateur=$_____GaussienneA \
$Z R=$IGaUsS \
$Z $formatI
$Z $xci/somme_02$X \
$Z standard=FAUX \
$Z A1=$xTV/SURFACE \
$Z A2=$IGaUsS \
$Z $formatI | \
$Z $xci/normalise.01$X \
$Z R=$xTV/SURFACE \
$Z $formatI
$Z FilSTmpE IGaUsS
$Z else
$Z endif
$Z set PaRaMeTrEs1="echelle=$_____EchelleM"
$Z set PaRaMeTrEs2="$PaRaMeTrEs1 Ty=0.99 perspective=0.5"
$Z execRVB $xci/montagne.01$X \
$Z A=$xTV/SURFACE \
$Z standard=FAUX zero=FAUX \
$Z T=$_____images%s \
$Z avion=VRAI \
$Z $PaRaMeTrEs1 \
$Z R=$_____images$m%s \
$Z $formatI
$Z $xci/montagne.01$X \
$Z A=$xTV/SURFACE \
$Z standard=FAUX zero=FAUX \
$Z T=$BLANC \
$Z avion=FAUX \
$Z $PaRaMeTrEs2 \
$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=6 \
$Z R=$xTV/BRUME \
$Z $formatI
$Z execRVB $xci/montagne.01$X \
$Z A=$xTV/SURFACE \
$Z standard=FAUX \
$Z zero=FAUX \
$Z T=$_____images%s \
$Z avion=FAUX \
$Z $PaRaMeTrEs2 \
$Z R=$_____images$M%s \
$Z $formatI
$Z execRVB $xci/brume.11$X \
$Z A=$_____images$M%s \
$Z B=$xTV/BRUME \
$Z R=$_____images$M%s \
$Z $formatI
$Z if ($_____CorrectionGamma != $xiP/gris.01) then
# Test introduit le 20240308093147... #
$Z execRVB $xci/substitue$X \
$Z A=$_____images%s \
$Z substitution=L_SUBSTITUTION_ROUGE p=$_____CorrectionGamma \
$Z R=$_____images%s \
$Z $formatI
$Z execRVB $xci/substitue$X \
$Z A=$_____images$m%s \
$Z substitution=L_SUBSTITUTION_ROUGE p=$_____CorrectionGamma \
$Z R=$_____images$m%s \
$Z $formatI
$Z execRVB $xci/substitue$X \
$Z A=$_____images$M%s \
$Z substitution=L_SUBSTITUTION_ROUGE p=$_____CorrectionGamma \
$Z R=$_____images$M%s \
$Z $formatI
$Z else
$Z endif