#######################################################################################################################################
#                                                                                                                                     #
#         M O D U L E  :                                                                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.IXEO.8.11.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        unsetenv            PremiereA
$Z        unsetenv            DerniereA
$Z
$Z        SET                 tPremiereA=1
$Z        SET                 tDerniereA=6
$Z        set                 Premiere=$tPremiereA
$Z        @                   NimagesA = $tDerniereA - $tPremiereA
$Z        @                   NimagesA = $NimagesA + 1
$Z        @                   Nimages = $NimagesA
$Z        @                   Nimages = $Nimages - 1
$Z        @                   Derniere = $Premiere + $Nimages
$Z        @                   Derniere = $Derniere - 1
$Z
$Z        SETENV              PremiereA $tPremiereA
$Z        SETENV              DerniereA $tDerniereA

$X        echo                "neutre"

$c                  #include  <stdio.h>
$c
$c                  extern    int       atoi();
$c                  extern    char      *getenv();
$c
$c                  #define   N0        (atoi(getenv("PremiereA")))
$c                  #define   N         (atoi(getenv("DerniereA")))
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      printf("$xci/reduction_04$X
$c                                                                  A=$xTV/FRACTAL.%04d$ROUGE
$c                                                                  chiffres=0
$c                                                                  R=$xTV/FRACTAL.%04d$ROUGE
$c                                                                                                $formatI\n"
$c                                            ,n,n+1
$c                                             );
$c                                      printf("$xci/reduction_04$X
$c                                                                  A=$xTV/FRACTAL.%04d$VERTE
$c                                                                  chiffres=0
$c                                                                  R=$xTV/FRACTAL.%04d$VERTE
$c                                                                                                $formatI\n"
$c                                            ,n,n+1
$c                                             );
$c                                      printf("$xci/reduction_04$X
$c                                                                  A=$xTV/FRACTAL.%04d$BLEUE
$c                                                                  chiffres=0
$c                                                                  R=$xTV/FRACTAL.%04d$BLEUE
$c                                                                                                $formatI\n"
$c                                            ,n,n+1
$c                                             );
$c                                      }
$c                            }

$Z        @                   tPremiereA = $tPremiereA - 1
$Z        @                   tDerniereA = $tDerniereA + 1

$X        $xci/genere$X       RVB=VRAI postfixes_RVB=FAUX                                                                               \
$X                            C='$xci/accumule.01$X                                                                                     \
$X                                         A=$xTV/FRACTAL.                                                                              \
$X                                         premiere=0 derniere=7                                                                        \
$X                                         postfixe=$%s                                                                                 \
$X                                         attenuation=1                                                                                \
$X                                         maximum=VRAI                                                                                 \
$X                                         R=$_____images$%s                                                                            \
$X                                                                                                                      $formatI'

$Z        unsetenv            PremiereA
$Z        unsetenv            DerniereA
$Z
$Z        unset               tPremiereA
$Z        unset               tDerniereA
$Z        unset               Premiere
$Z        unset               NimagesA
$Z        unset               Nimages
$Z        unset               Derniere
$Z
$Z        unsetenv            PremiereA
$Z        unsetenv            DerniereA