#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   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.f2.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                  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   NOMBRE    (atoi(getenv("Ltrainees")))
$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                                      int       premiere=n-NOMBRE+1;
$c                                      int       derniere=n;
$c
$c                                      premiere=((premiere>=N0) ? premiere : N0);
$c
$c                                      printf("$xci/accumule.01$X
$c                                                             A=$_____imagesA.
$c                                                             postfixe=$ROUGE
$c                                                             premiere=%d
$c                                                             derniere=%d
$c                                                             maximum=VRAI
$c                                                             attenuation=0
$c                                                             R=$_____images.%04d$ROUGE
$c                                                                         $formatI\n"
$c                                            ,premiere,derniere,n
$c                                             );
$c                                      printf("$xci/accumule.01$X
$c                                                             A=$_____imagesA.
$c                                                             postfixe=$VERTE
$c                                                             premiere=%d
$c                                                             derniere=%d
$c                                                             maximum=VRAI
$c                                                             attenuation=0
$c                                                             R=$_____images.%04d$VERTE
$c                                                                         $formatI\n"
$c                                            ,premiere,derniere,n
$c                                             );
$c                                      printf("$xci/accumule.01$X
$c                                                             A=$_____imagesA.
$c                                                             postfixe=$BLEUE
$c                                                             premiere=%d
$c                                                             derniere=%d
$c                                                             maximum=VRAI
$c                                                             attenuation=0
$c                                                             R=$_____images.%04d$BLEUE
$c                                                                         $formatI\n"
$c                                            ,premiere,derniere,n
$c                                             );
$c                                      }
$c                            }