#######################################################################################################################################
# #
# M I S E E N M O N T A G N E ' $m ' E T ' $M ' E N V R A I E S C O U L E U R S : #
# #
# #
# Author of '$xivP/disk.000000009/face.2/.REFL.B.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z SETParam _____Echelle 1.0
$Z SETParam _____Translation 0.5
$Z SETParam _____Perspective 0.5
#20150221085645____:$Z Pal #
$Z set Parametres="standard=FAUX renormaliser=FAUX zero=VRAI"
$Z set Parametres1="$Parametres avion=VRAI"
$Z set Parametres2="$Parametres echelle=$_____Echelle avion=FAUX Ty=$_____Translation perspective=$_____Perspective"
$c #include <stdio.h>
$c
$c extern int atoi();
$c extern char *getenv();
$c
$c #define N0 (atoi(getenv("PremiereA")))
$c #define N (atoi(getenv("DerniereA")))
$c
$c int main()
$c {
$c int n;
$c printf("$DELETE $xTV/MINIMUM\n");
$c printf("$DELETE $xTV/MAXIMUM\n");
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$xci/extrema$X
$c A=$_____Surface.%04d
$c standard=FAUX
$c minimum=VRAI
$c maximum=FAUX
$c Prme=VRAI
$c $formatI
$c >>! $xTV/MINIMUM\n"
$c ,n
$c );
$c /* L'option "Prme=VRAI" a ete introduite le 20150221113235 afin de pouvoir remplacer */
$c /* ">>&!" par ">>!"... */
#20150221095350____:$c printf("saut #
#20150221095350____:$c >>&! $xTV/MINIMUM\n" #
#20150221095350____:$c ); #
$c printf("$xci/extrema$X
$c A=$_____Surface.%04d
$c standard=FAUX
$c minimum=FAUX
$c maximum=VRAI
$c Prme=VRAI
$c $formatI
$c >>! $xTV/MAXIMUM\n"
$c ,n
$c );
$c /* L'option "Prme=VRAI" a ete introduite le 20150221113235 afin de pouvoir remplacer */
$c /* ">>&!" par ">>!"... */
#20150221095350____:$c printf("saut #
#20150221095350____:$c >>&! $xTV/MAXIMUM\n" #
#20150221095350____:$c ); #
$c /* Extraction des extrema de chacune des cartes. */
$c }
$c
$c printf("set MinC=`$xrv/extrema.01$X ne=0 fichier=$xTV/MINIMUM | $GRE '^minimum=' | $SE -e 's/^.*=//'`\n");
$c printf("set MaxC=`$xrv/extrema.01$X ne=0 fichier=$xTV/MAXIMUM | $GRE '^maximum=' | $SE -e 's/^.*=//'`\n");
$c /* Extraction des extrema de l'ensemble des cartes. */
$c
$c printf("$DELETE $xTV/MINIMUM\n");
$c printf("$DELETE $xTV/MAXIMUM\n");
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$xci/normalise.01$X
$c A=$_____Surface.%04d
$c extrema=FAUX
$c min=$MinC
$c max=$MaxC
$c R=$xTV/SURFACE
$c $formatI\n"
$c ,n,n,n
$c );
$c
$c printf("$xci/montagne.01$X
$c A=$xTV/SURFACE
$c T=$_____Texture.%04d$ROUGE
$c $Parametres1
$c R=$_____images$m.%04d$ROUGE
$c $formatI\n"
$c ,n,n,n
$c );
$c printf("$xci/montagne.01$X
$c A=$xTV/SURFACE
$c T=$_____Texture.%04d$VERTE
$c $Parametres1
$c R=$_____images$m.%04d$VERTE
$c $formatI\n"
$c ,n,n,n
$c );
$c printf("$xci/montagne.01$X
$c A=$xTV/SURFACE
$c T=$_____Texture.%04d$BLEUE
$c $Parametres1
$c R=$_____images$m.%04d$BLEUE
$c $formatI\n"
$c ,n,n,n
$c );
$c
$c printf("$xci/montagne.01$X
$c A=$xTV/SURFACE
$c T=$_____Texture.%04d$ROUGE
$c $Parametres2
$c R=$_____images$M.%04d$ROUGE
$c $formatI\n"
$c ,n,n,n
$c );
$c printf("$xci/montagne.01$X
$c A=$xTV/SURFACE
$c T=$_____Texture.%04d$VERTE
$c $Parametres2
$c R=$_____images$M.%04d$VERTE
$c $formatI\n"
$c ,n,n,n
$c );
$c printf("$xci/montagne.01$X
$c A=$xTV/SURFACE
$c T=$_____Texture.%04d$BLEUE
$c $Parametres2
$c R=$_____images$M.%04d$BLEUE
$c $formatI\n"
$c ,n,n,n
$c );
$c }
$c }