#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   A U T O S T E R E O G R A M M E                                                             #
#         D ' U N E   V A R I E T E   D E   C A L A B I - Y A U  :                                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000006/face.1/.CAYA.62.1.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$c                  #include  <stdio.h>
$c
$c                  extern    int       atoi();
$c                  extern    double    atof();
$c                  extern    char      *getenv();
$c
$c                  #define   N0        (atoi(getenv("PremiereA")))
$c                  #define   N         (atoi(getenv("DerniereA")))
$c
$c                  #define   Nrepli    15
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=(N+1) ; n<=(N+Nrepli) ; n++)
$c                                      {
$c                                      printf("$xci/neutre$X
$c                                                                  A=$_____imagesA.%04d$ROUGE
$c                                                                  R=$_____imagesA.%04d$ROUGE
$c                                                                                                $formatI\n"
$c                                            ,n-(N-N0+1),n
$c                                             );
$c                                      printf("$xci/neutre$X
$c                                                                  A=$_____imagesA.%04d$VERTE
$c                                                                  R=$_____imagesA.%04d$VERTE
$c                                                                                                $formatI\n"
$c                                            ,n-(N-N0+1),n
$c                                             );
$c                                      printf("$xci/neutre$X
$c                                                                  A=$_____imagesA.%04d$BLEUE
$c                                                                  R=$_____imagesA.%04d$BLEUE
$c                                                                                                $formatI\n"
$c                                            ,n-(N-N0+1),n
$c                                             );
$c                                      }
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      printf("$xci/reduction_16$Z
$c                                                                  $_____imagesA.
$c                                                                  $_____images.%04d
$c                                                                  %d
$c                                                                  %d
$c                                                                  VRAI VRAI VRAI\n"
$c                                            ,n,n+Nrepli,n
$c                                             );
$c
$c                                      printf("$MV
$c                                                                  $_____images.%04d$R16$ROUGE
$c                                                                  $_____images.%04d$ROUGE\n"
$c                                            ,n,n
$c                                             );
$c                                      printf("$MV
$c                                                                  $_____images.%04d$R16$VERTE
$c                                                                  $_____images.%04d$VERTE\n"
$c                                            ,n,n
$c                                             );
$c                                      printf("$MV
$c                                                                  $_____images.%04d$R16$BLEUE
$c                                                                  $_____images.%04d$BLEUE\n"
$c                                            ,n,n
$c                                             );
$c                                      }
$c                            }