#######################################################################################################################################
# #
# M I S E E N M O N T A G N E ' $m ' D E L A L U M I N A N C E F I L T R E E : #
# #
# #
# Author of '$xivP/disk.000000009/face.2/.REFL.f3.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z SETParam _____Seuil 250
$Z SETENV Seuil $_____Seuil
$Z setParam _____Palette $xiP/orange.11
$X echo "neutre"
$X # commande destinee uniquement a mettre a jour l'environnement 'env'... #
$Z $xci/gauss$X \
$Z R=$xTV/GAUSS \
$Z $formatI
$Z SET Premiere=1
$Z SET Derniere=512
$Z
$Z @ Nimages = $Derniere - $Premiere
$Z @ Nimages = $Nimages + 1
$Z Pal
$c #include <stdio.h>
$c
$c extern int atoi();
$c extern char *getenv();
$c
$c #define SEUIL (atoi(getenv("Seuil")))
$c
$c #define N0 Premiere
$c #define N Derniere
$c
$c int main()
$c {
$c int n;
$c
$c for (n=N0 ; n<=N ; n++)
$c {
$c printf("$xci/luminance.01$X
$c AR=$_____imagesA.%04d$ROUGE
$c AV=$_____imagesA.%04d$VERTE
$c AB=$_____imagesA.%04d$BLEUE
$c R=$xTV/LUMINANCE
$c $formatI\n"
$c ,n,n,n
$c );
$c printf("$xci/filtre.02$Z
$c $xTV/LUMINANCE
$c $xTV/GAUSS
$c $xTV/LUMINANCE$Fi
$c seuil=%d\n"
$c ,SEUIL
$c );
$c
$c printf("$xci/vraies_C$X
$c A=$xTV/LUMINANCE$Fi
$c RVB=VRAI
$c p=$_____Palette
$c R=$xTV/TEXTURE
$c $formatI\n"
$c );
$c
$c printf("$xci/substitue$X
$c A=$xTV/TEXTURE$ROUGE
$c substitution=L_SUBSTITUTION_02
$c R=$xTV/TEXTURE$ROUGE
$c $formatI\n"
$c );
$c printf("$xci/substitue$X
$c A=$xTV/TEXTURE$VERTE
$c substitution=L_SUBSTITUTION_02
$c R=$xTV/TEXTURE$VERTE
$c $formatI\n"
$c );
$c printf("$xci/substitue$X
$c A=$xTV/TEXTURE$BLEUE
$c substitution=L_SUBSTITUTION_02
$c R=$xTV/TEXTURE$BLEUE
$c $formatI\n"
$c );
$c
$c printf("$xci/acces$X
$c A=$xTV/LUMINANCE$Fi
$c convertir=VRAI
$c $formatI |
$c $xci/lissage$X
$c standard=FAUX
$c passes=32
$c R=$xTV/SURFACE
$c $formatI\n"
$c );
$c
$c printf("$xci/montagne.01$X
$c A=$xTV/SURFACE
$c standard=FAUX
$c zero=FAUX
$c T=$xTV/TEXTURE$ROUGE
$c avion=VRAI
$c R=$_____images.%04d$ROUGE
$c $formatI\n"
$c ,n
$c );
$c printf("$xci/montagne.01$X
$c A=$xTV/SURFACE
$c standard=FAUX
$c zero=FAUX
$c T=$xTV/TEXTURE$VERTE
$c avion=VRAI
$c R=$_____images.%04d$VERTE
$c $formatI\n"
$c ,n
$c );
$c printf("$xci/montagne.01$X
$c A=$xTV/SURFACE
$c standard=FAUX
$c zero=FAUX
$c T=$xTV/TEXTURE$BLEUE
$c avion=VRAI
$c R=$_____images.%04d$BLEUE
$c $formatI\n"
$c ,n
$c );
$c }
$c }