#######################################################################################################################################
#                                                                                                                                     #
#         M O D U L E  :                                                                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000009/face.2/.LYAP.1.11.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  unsetenv            PremiereA
$Z                  unsetenv            DerniereA
$Z
$Z        SET                 tPremiereA=1
#20150220181125____:$Z        SET                 tDerniereA=0128                                                                     #
$Z        SET                 tDerniereA=128
$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"
$X                                      # commande destinee uniquement a mettre a jour l'environnement 'env'...                       #

$Z        Pal

$Z        $xci/luminance.01$X                                                                                                           \
$Z                            AR=$xiirk/LYAP.33.10000$ROUGE                                                                             \
$Z                            AV=$xiirk/LYAP.33.10000$VERTE                                                                             \
$Z                            AB=$xiirk/LYAP.33.10000$BLEUE                                                                             \
$Z                                                                                                                      $formatI  |     \
$Z        $xci/tapisserie$X                                                                                                             \
$Z                                                                                                                      $formatI  |     \
$Z        $xci/format.01$X                                                                                                              \
$Z                            $formatI                                                                                                  \
$Z                            mode=7                                                                                                    \
$Z                            R=$xTV/TAPISSERIE                                                                                         \
$Z                                                                                                                      $formatR_Sdu

$Z        Sdu

$Z        $xci/gauss$X                                                                                                                  \
$Z                            R=$xTV/GAUSS                                                                                              \
$Z                                                                                                                      $formatI

$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                                      int       seuil=253-(N-n);
$c
$c                                      printf("$xci/filtre.01$X
$c                                                                  A=$xTV/TAPISSERIE
$c                                                                  N=$xTV/GAUSS
$c                                                                  seuil=%d
$c                                                                                                $formatI  |
$c                                              $xci/format.01$X
$c                                                                  $formatI
$c                                                                  mode=7
$c                                                                  R=$_____images.%04d
$c                                                                                                $formatR_Pal\n"
$c                                            ,seuil,n
$c                                             );
$c                                      }
$c                            }

$Z        Pal