#######################################################################################################################################
# #
# M I S E E N M O N T A G N E ' $M ' D ' U N E L I G N E D E C O T E #
# E N V R A I E S C O U L E U R S : #
# #
# #
# Author of '$xiirf/.COT2.62.1.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z setParam _____SeuilF 240
$Z setParam _____SeuilT 26
$Z setParam _____Palette $xiP/cotes.12
$Z setParam _____Sy 8
$Z setParam _____Perspective 0.7
$Z setParam _____Ty 0.92
$Z SETParam Premiere 1
$Z SETParam Derniere 128
$Z set TrAnSlAtIoN=`$xci/coordonnees$X denormaliser=FAUX abscisse=FAUX ordonnee=VRAI Y=3 $formatI`
$Z set _____SeuilMT=$GRIS_4
$Z $xci/gauss$X \
$Z R=$xTV/GAUSS \
$Z $formatI
$Z $xci/init$X \
$Z niveau=$BLANC \
$Z R=$xTV/BLANC \
$Z $formatI
$Z
$Z @ Nimages = $Derniere - $Premiere
$Z @ Nimages = $Nimages + 1
$Z Pal
$c #include <stdio.h>
$c
$c #define N0 Premiere
$c #define N Derniere
$c
$c int main()
$c {
$c int n;
$c
$c printf("set MiNiMuM_G=`$xcp/Lconstantes$X c=F_INFINI Prme=VRAI`\n");
$c printf("set MaXiMuM_G=`$xcp/Lconstantes$X c=F_MOINS_L_INFINI Prme=VRAI`\n");
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$xci/seuil$X
$c A=$_____imagesA.%04d
$c seuil=$_____SeuilMT
$c $formatI |
$c $xci/complement$X
$c R=$xTV/MER_TERRE
$c $formatI\n"
$c ,n
$c );
$c
$c printf("$xci/filtre.01$X
$c A=$xTV/MER_TERRE
$c N=$xTV/GAUSS
$c seuil=$_____SeuilF
$c standard=FAUX
$c R=$xTV/RELIEF.%04d
$c $formatI\n"
$c ,n
$c );
$c
$c printf("$xci/acces$X
$c A=$xTV/RELIEF.%04d
$c standard=FAUX zero=FAUX
$c $formatI |
$c $xci/seuil$X
$c seuil=$_____SeuilT
$c $formatI |
$c $xci/complement$X
$c $formatI |
$c $xci/vraies_C$X
$c p=$_____Palette
$c R=$xTV/TEXTURE.%04d
$c RVB=VRAI
$c $formatI\n"
$c ,n,n
$c );
$c
$c printf("set MiNiMuM=`$xci/extrema$X A=$xTV/RELIEF.%04d standard=FAUX min=VRAI max=FAUX $formatI Prme=VRAI`\n",n);
$c printf("set MiNiMuM_G=`$xcg/MIN2.01$X a=$MiNiMuM b=$MiNiMuM_G Prme=VRAI`\n",n);
$c
$c printf("set MaXiMuM=`$xci/extrema$X A=$xTV/RELIEF.%04d standard=FAUX min=FAUX max=VRAI $formatI Prme=VRAI`\n",n);
$c printf("set MaXiMuM_G=`$xcg/MAX2.01$X a=$MaXiMuM b=$MaXiMuM_G Prme=VRAI`\n",n);
$c }
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$xci/montagne.01$X
$c A=$xTV/RELIEF.%04d
$c standard=FAUX zero=FAUX
$c renormaliser=VRAI extrema=FAUX
$c minimum_force=$MiNiMuM_G maximum_force=$MaXiMuM_G
$c T=$xTV/TEXTURE.%04d$ROUGE
$c avion=FAUX
$c fond=VRAI F=$xTV/BLANC
$c Sy=$_____Sy
$c perspective=$_____Perspective
$c Ty=$_____Ty
$c ZBuffer=VRAI Zi=VRAI Z=$xTV/BRUME
$c R=$_____images.%04d$ROUGE
$c $formatI\n"
$c ,n,n,n
$c );
$c printf("$xci/montagne.01$X
$c A=$xTV/RELIEF.%04d
$c standard=FAUX zero=FAUX
$c renormaliser=VRAI extrema=FAUX
$c minimum_force=$MiNiMuM_G maximum_force=$MaXiMuM_G
$c T=$xTV/TEXTURE.%04d$VERTE
$c avion=FAUX
$c fond=VRAI F=$xTV/BLANC
$c Sy=$_____Sy
$c perspective=$_____Perspective
$c Ty=$_____Ty
$c ZBuffer=VRAI Zi=VRAI Z=$xTV/BRUME
$c R=$_____images.%04d$VERTE
$c $formatI\n"
$c ,n,n,n
$c );
$c printf("$xci/montagne.01$X
$c A=$xTV/RELIEF.%04d
$c standard=FAUX zero=FAUX
$c renormaliser=VRAI extrema=FAUX
$c minimum_force=$MiNiMuM_G maximum_force=$MaXiMuM_G
$c T=$xTV/TEXTURE.%04d$BLEUE
$c avion=FAUX
$c fond=VRAI F=$xTV/BLANC
$c Sy=$_____Sy
$c perspective=$_____Perspective
$c Ty=$_____Ty
$c ZBuffer=VRAI Zi=VRAI Z=$xTV/BRUME
$c R=$_____images.%04d$BLEUE
$c $formatI\n"
$c ,n,n,n
$c );
$c
$c printf("$xci/complement$X
$c A=$xTV/BRUME
$c $formatI |
$c $xci/brume.11$X
$c A=$_____images.%04d$ROUGE
$c R=$_____images.%04d$ROUGE
$c $formatI\n"
$c ,n,n
$c );
$c printf("$xci/complement$X
$c A=$xTV/BRUME
$c $formatI |
$c $xci/brume.11$X
$c A=$_____images.%04d$VERTE
$c R=$_____images.%04d$VERTE
$c $formatI\n"
$c ,n,n
$c );
$c printf("$xci/complement$X
$c A=$xTV/BRUME
$c $formatI |
$c $xci/brume.11$X
$c A=$_____images.%04d$BLEUE
$c R=$_____images.%04d$BLEUE
$c $formatI\n"
$c ,n,n
$c );
$c }
$c }