#######################################################################################################################################
# #
# G E N E R A T I O N E N P A R A L L L E L E D E S I M A G E S A V E C T R A I N E E S : #
# #
# #
# Author of '$xivP/disk.000000009/face.2/.REFL.g3.11.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z SETParam _____Ltrainees 30
$Z SETENV Ltrainees $_____Ltrainees
$X echo "neutre"
$X # commande destinee uniquement a mettre a jour l'environnement 'env'... #
$Z if ($?Premiere == $NEXIST) then
$Z SET TPremiere=1
$Z else
$Z SET TPremiere=$Premiere
$Z endif
$Z SET Premiere=$TPremiere
$Z if ($?Derniere == $NEXIST) then
$Z SET TDerniere=512
$Z else
$Z SET TDerniere=$Derniere
$Z endif
$Z SET Derniere=$TDerniere
$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 aNOMBRE (atoi(getenv("Ltrainees")))
$c #define NOMBRE ((aNOMBRE > 0) ? aNOMBRE : N-N0+1)
$c /* Si '$Ltrainees' est nul, on prend toutes les images de '$Premiere' a '$Derniere'. */
$c
$c #define N0 Premiere
$c #define N Derniere
$c
$c #define PREM(n) (((n-NOMBRE+1)>=N0) ? (n-NOMBRE+1) : N0)
$c #define DERN(n) (n)
$c
$c int main()
$c {
$c int n;
$c
$c if (((N-N0+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=N0 ; n<=N ; n=n+2)
$c {
$c int n1=n+0,premiere1,derniere1;
$c int n2=n+1,premiere2,derniere2;
$c
$c premiere1=PREM(n1);
$c derniere1=DERN(n1);
$c
$c premiere2=PREM(n2);
$c derniere2=DERN(n2);
$c
$c printf("$xcg/parallele.1N$X
$c avertir_trop_de_process_compatibilite_parallele_14=FAUX
$c commande11=%c
$c $xci/accumule.01$X
$c A=$_____imagesA.
$c postfixe=$ROUGE
$c premiere=%d
$c derniere=%d
$c maximum=VRAI
$c lineaire=VRAI depart=0.0 arrivee=1.0
$c R=$_____images.%04d$ROUGE
$c $formatI%c
$c commande21=%c
$c $xci/accumule.01$X
$c A=$_____imagesA.
$c postfixe=$VERTE
$c premiere=%d
$c derniere=%d
$c maximum=VRAI
$c lineaire=VRAI depart=0.0 arrivee=1.0
$c R=$_____images.%04d$VERTE
$c $formatI%c\n"
$c ,'"',premiere1,derniere1,n1,'"'
$c ,'"',premiere1,derniere1,n1,'"'
$c );
$c /* L'option "avertir_trop_de_process_compatibilite_parallele_14=FAUX" a ete introduite */
$c /* le 20220409090227 pour 'v $xiak/REFM.56$R16'... */
$c printf("$xcg/parallele.1N$X
$c avertir_trop_de_process_compatibilite_parallele_14=FAUX
$c commande11=%c
$c $xci/accumule.01$X
$c A=$_____imagesA.
$c postfixe=$BLEUE
$c premiere=%d
$c derniere=%d
$c maximum=VRAI
$c lineaire=VRAI depart=0.0 arrivee=1.0
$c R=$_____images.%04d$BLEUE
$c $formatI%c
$c commande21=%c
$c $xci/accumule.01$X
$c A=$_____imagesA.
$c postfixe=$ROUGE
$c premiere=%d
$c derniere=%d
$c maximum=VRAI
$c lineaire=VRAI depart=0.0 arrivee=1.0
$c R=$_____images.%04d$ROUGE
$c $formatI%c\n"
$c ,'"',premiere1,derniere1,n1,'"'
$c ,'"',premiere2,derniere2,n2,'"'
$c );
$c /* L'option "avertir_trop_de_process_compatibilite_parallele_14=FAUX" a ete introduite */
$c /* le 20220409090227 pour 'v $xiak/REFM.56$R16'... */
$c printf("$xcg/parallele.1N$X
$c avertir_trop_de_process_compatibilite_parallele_14=FAUX
$c commande11=%c
$c $xci/accumule.01$X
$c A=$_____imagesA.
$c postfixe=$VERTE
$c premiere=%d
$c derniere=%d
$c maximum=VRAI
$c lineaire=VRAI depart=0.0 arrivee=1.0
$c R=$_____images.%04d$VERTE
$c $formatI%c
$c commande21=%c
$c $xci/accumule.01$X
$c A=$_____imagesA.
$c postfixe=$BLEUE
$c premiere=%d
$c derniere=%d
$c maximum=VRAI
$c lineaire=VRAI depart=0.0 arrivee=1.0
$c R=$_____images.%04d$BLEUE
$c $formatI%c\n"
$c ,'"',premiere2,derniere2,n2,'"'
$c ,'"',premiere2,derniere2,n2,'"'
$c );
$c /* L'option "avertir_trop_de_process_compatibilite_parallele_14=FAUX" a ete introduite */
$c /* le 20220409090227 pour 'v $xiak/REFM.56$R16'... */
$c }
$c }