#######################################################################################################################################
# #
# " M U L T I P L E X A G E " D E Q U A T R E S E Q U E N C E : #
# #
# #
# Author of '$xivP/disk.000000009/face.2/.REFL.e.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$c extern int atoi();
$c extern char *getenv();
$c
$c #define NA0 (atoi(getenv("PremiereA")))
$c #define NA (atoi(getenv("DerniereA")))
$c
$c #define IMAGE_A1 (getenv("_____imagesA1"))
$c #define IMAGE_A2 (getenv("_____imagesA2"))
$c #define IMAGE_A3 (getenv("_____imagesA3"))
$c #define IMAGE_A4 (getenv("_____imagesA4"))
$c
$c #define IMAGE_R (getenv("_____images"))
$c
$c #define NR0 1
$c #define NR 4
$c #define PAS 1
$c
$c int main()
$c {
$c int n1;
$c
$c for (n1=NA0 ; n1<=NA ; n1++)
$c {
$c int n2=NR0;
$c
$c printf("$xci/acces$X
$c A=$%s.%04d$ROUGE
$c R=$xTV/REFL.%04d$ROUGE
$c $formatI\n"
$c ,IMAGE_A1,n1,n2
$c );
$c printf("$xci/acces$X
$c A=$%s.%04d$VERTE
$c R=$xTV/REFL.%04d$VERTE
$c $formatI\n"
$c ,IMAGE_A1,n1,n2
$c );
$c printf("$xci/acces$X
$c A=$%s.%04d$BLEUE
$c R=$xTV/REFL.%04d$BLEUE
$c $formatI\n"
$c ,IMAGE_A1,n1,n2
$c );
$c n2=n2+PAS;
$c
$c printf("$xci/acces$X
$c A=$%s.%04d$ROUGE
$c R=$xTV/REFL.%04d$ROUGE
$c $formatI\n"
$c ,IMAGE_A2,n1,n2
$c );
$c printf("$xci/acces$X
$c A=$%s.%04d$VERTE
$c R=$xTV/REFL.%04d$VERTE
$c $formatI\n"
$c ,IMAGE_A2,n1,n2
$c );
$c printf("$xci/acces$X
$c A=$%s.%04d$BLEUE
$c R=$xTV/REFL.%04d$BLEUE
$c $formatI\n"
$c ,IMAGE_A2,n1,n2
$c );
$c n2=n2+PAS;
$c
$c printf("$xci/acces$X
$c A=$%s.%04d$ROUGE
$c R=$xTV/REFL.%04d$ROUGE
$c $formatI\n"
$c ,IMAGE_A3,n1,n2
$c );
$c printf("$xci/acces$X
$c A=$%s.%04d$VERTE
$c R=$xTV/REFL.%04d$VERTE
$c $formatI\n"
$c ,IMAGE_A3,n1,n2
$c );
$c printf("$xci/acces$X
$c A=$%s.%04d$BLEUE
$c R=$xTV/REFL.%04d$BLEUE
$c $formatI\n"
$c ,IMAGE_A3,n1,n2
$c );
$c n2=n2+PAS;
$c
$c printf("$xci/acces$X
$c A=$%s.%04d$ROUGE
$c R=$xTV/REFL.%04d$ROUGE
$c $formatI\n"
$c ,IMAGE_A4,n1,n2
$c );
$c printf("$xci/acces$X
$c A=$%s.%04d$VERTE
$c R=$xTV/REFL.%04d$VERTE
$c $formatI\n"
$c ,IMAGE_A4,n1,n2
$c );
$c printf("$xci/acces$X
$c A=$%s.%04d$BLEUE
$c R=$xTV/REFL.%04d$BLEUE
$c $formatI\n"
$c ,IMAGE_A4,n1,n2
$c );
$c n2=n2+PAS;
$c
$c printf("$xci/reduction_04$Z
$c $xTV/REFL.
$c $xTV/REFL
$c %d %d\n"
$c ,NR0,NR
$c );
$c
$c printf("$xci/acces$X
$c A=$xTV/REFL$R04$ROUGE
$c R=$%s.%04d$ROUGE
$c $formatI\n"
$c ,IMAGE_R,n1
$c );
$c printf("$xci/acces$X
$c A=$xTV/REFL$R04$VERTE
$c R=$%s.%04d$VERTE
$c $formatI\n"
$c ,IMAGE_R,n1
$c );
$c printf("$xci/acces$X
$c A=$xTV/REFL$R04$BLEUE
$c R=$%s.%04d$BLEUE
$c $formatI\n"
$c ,IMAGE_R,n1
$c );
$c }
$c }