#######################################################################################################################################
# #
# A C C U M U L A T I O N P U I S F I L T R A G E D E S C O M P O S A N T E S { R , V , B } : #
# #
# #
# Author of '$xivP/disk.000000009/face.2/.REFL.J..Fi.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z setParam _____Seuil 240
$Z SETENV Seuil $_____Seuil
$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 for (n=NA0 ; n<=NA ; n=n+1)
$c {
$c printf("$xci/accumule.02$X
$c A=$_____imagesA.
$c premiere=%d
$c derniere=%d
$c postfixe=$ROUGE
$c R=$xTV/ACCUMULE$ROUGE
$c $formatI\n"
$c ,NA0,n
$c );
$c printf("$xci/accumule.02$X
$c A=$_____imagesA.
$c premiere=%d
$c derniere=%d
$c postfixe=$VERTE
$c R=$xTV/ACCUMULE$VERTE
$c $formatI\n"
$c ,NA0,n
$c );
$c printf("$xci/accumule.02$X
$c A=$_____imagesA.
$c premiere=%d
$c derniere=%d
$c postfixe=$BLEUE
$c R=$xTV/ACCUMULE$BLEUE
$c $formatI\n"
$c ,NA0,n
$c );
$c
$c printf("$xci/filtre.01$X
$c A=$xTV/ACCUMULE$ROUGE
$c N=$xTV/GAUSS
$c seuil=%d
$c R=$xTV/FILTRE$ROUGE
$c $formatI\n"
$c ,SEUIL
$c );
$c printf("$xci/filtre.01$X
$c A=$xTV/ACCUMULE$VERTE
$c N=$xTV/GAUSS
$c seuil=%d
$c R=$xTV/FILTRE$VERTE
$c $formatI\n"
$c ,SEUIL
$c );
$c printf("$xci/filtre.01$X
$c A=$xTV/ACCUMULE$BLEUE
$c N=$xTV/GAUSS
$c seuil=%d
$c R=$xTV/FILTRE$BLEUE
$c $formatI\n"
$c ,SEUIL
$c );
$c
$c printf("$xci/luminance.01$X
$c AR=$xTV/FILTRE$ROUGE
$c AV=$xTV/FILTRE$VERTE
$c AB=$xTV/FILTRE$BLEUE
$c R=$_____images.%04d
$c $formatI\n"
$c ,n
$c );
$c }
$c }