#######################################################################################################################################
# #
# F I L T R A G E E N P A R A L L E L E D E S I M A G E S : #
# #
# #
# Author of '$xivP/disk.000000009/face.2/.REFL.j..Fi.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z setParam _____Seuil 230
$Z SETENV Seuil $_____Seuil
$Z setParam _____Palette $xiP/trou_noir.14
$X echo "neutre"
$X # commande destinee uniquement a mettre a jour l'environnement 'env'... #
$Z unsetenv PremiereA
$Z unsetenv DerniereA
$Z
$Z SET tPremiereA=1
$Z SET tDerniereA=512
$Z
$Z @ NimagesA = $tDerniereA - $tPremiereA
$Z @ NimagesA = $NimagesA + 1
$Z
$Z set Premiere=$tPremiereA
$Z set Derniere=$tDerniereA
$Z
$Z SETENV PremiereA $tPremiereA
$Z SETENV DerniereA $tDerniereA
$Z Pal
$Z $xci/gauss$X \
$Z R=$xTV/GAUSS \
$Z $formatI
$c #include <stdio.h>
$c
$c extern int atoi();
$c extern char *getenv();
$c
$c #define SEUIL (atoi(getenv("Seuil")))
$c
$c #define NA0 (atoi(getenv("PremiereA")))
$c #define NA (atoi(getenv("DerniereA")))
$c
$c int main()
$c {
$c int n;
$c
$c if (((NA-NA0+1)%2) != 0)
$c {
$c printf("\n ATTENTION : le nombre d'images n'est pas divisible par 2");
$c }
$c else
$c {
$c }
$c
$c for (n=NA0 ; n<=NA ; n=n+2)
$c {
$c int n1=n+0;
$c int n2=n+1;
$c
$c printf("$xcg/parallele.1N$X
$c commande11=%c
$c $xci/luminance.01$X
$c AR=$_____imagesW.%04d$ROUGE
$c AV=$_____imagesW.%04d$VERTE
$c AB=$_____imagesW.%04d$BLEUE
$c $formatI |
$c $xci/acces$X
$c renormaliser=VRAI
$c $formatI |
$c $xci/substitue$X
$c p=$xiP/gris.55
$c substitution=L_SUBSTITUTION_ROUGE
$c R=$xTV/LUMINANCE.1
$c $formatI%c
$c commande21=%c
$c $xci/luminance.01$X
$c AR=$_____imagesW.%04d$ROUGE
$c AV=$_____imagesW.%04d$VERTE
$c AB=$_____imagesW.%04d$BLEUE
$c $formatI |
$c $xci/acces$X
$c renormaliser=VRAI
$c $formatI |
$c $xci/substitue$X
$c p=$xiP/gris.55
$c substitution=L_SUBSTITUTION_ROUGE
$c R=$xTV/LUMINANCE.2
$c $formatI%c\n"
$c ,'"',n1,n1,n1,'"'
$c ,'"',n2,n2,n2,'"'
$c );
$c
$c printf("$xcg/parallele.1N$X
$c commande11=%c
$c $xci/filtre.01$X
$c A=$xTV/LUMINANCE.1
$c N=$xTV/GAUSS
$c seuil=%d
$c CAL1=FAUX
$c R=$xTV/FILTRE.1
$c $formatI%c
$c commande21=%c
$c $xci/filtre.01$X
$c A=$xTV/LUMINANCE.2
$c N=$xTV/GAUSS
$c seuil=%d
$c CAL1=FAUX
$c R=$xTV/FILTRE.2
$c $formatI%c\n"
$c ,'"',SEUIL,'"'
$c ,'"',SEUIL,'"'
$c );
$c
$c printf("$xcg/parallele.1N$X
$c commande11=%c
$c $xci/vraies_C$X
$c A=$xTV/FILTRE.1
$c p=$_____Palette
$c RVB=VRAI
$c R=$_____images.%04d
$c $formatI%c
$c commande21=%c
$c $xci/vraies_C$X
$c A=$xTV/FILTRE.2
$c p=$_____Palette
$c RVB=VRAI
$c R=$_____images.%04d
$c $formatI%c\n"
$c ,'"',n1,'"'
$c ,'"',n2,'"'
$c );
$c }
$c }