#######################################################################################################################################
#                                                                                                                                     #
#         R E G R O U P E M E N T   D E   Q U A T R E   L I G N E S   D E   C O T E   E N   F A U S S E S   C O U L E U R S  :        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.COT2.52.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  if                  ($?Premiere == $NEXIST) then
$Z                                      SET                 Premiere=1
$Z                  else
$Z                  endif

$Z                  if                  ($?Derniere == $NEXIST) then
$Z                                      SET                 Derniere=128
$Z                  else
$Z                  endif

$Z                  @         Nimages   = $Derniere - $Premiere
$Z                  @         Nimages   = $Nimages + 1

$Z                  Pal

$c                  #include  <stdio.h>
$c
$c                  #define   N0        Premiere
$c                  #define   N         Derniere
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c                            int       p0=1;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      int       p=p0;
$c
$c                                      printf("$xci/neutre$X
$c                                                             A=$_____imagesA1.%04d
$c                                                             R=$xTV/COT2.%04d
$c                                                                         $formatI\n"
$c                                            ,n,p
$c                                             );
$c                                      p = p+1;
$c
$c                                      printf("$xci/neutre$X
$c                                                             A=$_____imagesA2.%04d
$c                                                             R=$xTV/COT2.%04d
$c                                                                         $formatI\n"
$c                                            ,n,p
$c                                             );
$c                                      p = p+1;
$c
$c                                      printf("$xci/neutre$X
$c                                                             A=$_____imagesA3.%04d
$c                                                             R=$xTV/COT2.%04d
$c                                                                         $formatI\n"
$c                                            ,n,p
$c                                             );
$c                                      p = p+1;
$c
$c                                      printf("$xci/neutre$X
$c                                                             A=$_____imagesA4.%04d
$c                                                             R=$xTV/COT2.%04d
$c                                                                         $formatI\n"
$c                                            ,n,p
$c                                             );
$c                                      p = p+1;
$c
$c                                      printf("$xci/reduction_04$X
$c                                                             A=$xTV/COT2.
$c                                                             premiere=%d derniere=%d pas=1
$c                                                             moyenne=FAUX maximum=FAUX
$c                                                             R=$_____images.%04d
$c                                                                         $formatI\n"
$c                                            ,p0,p-1,n
$c                                             );
$c                                      }
$c                            }