#######################################################################################################################################
#                                                                                                                                     #
#         F I L T R A G E   E N   P A R A L L E L E   D E S   C O M P O S A N T E S   { R , B }   D E S   I M A G E S  :              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000009/face.2/.REFL.k..Fi.11.$U' :                                                                                #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Seuil                    250

$Z                  SETENV              Seuil $_____Seuil

$X                  echo                "neutre"
$X                                      # commande destinee uniquement a mettre a jour l'environnement 'env'...                       #

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

$Z                  Pal

$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   SEUIL     (atoi(getenv("Seuil")))
$c
$c                  #define   NA0       (atoi(getenv("PremiereA")))
$c                  #define   NA        (atoi(getenv("DerniereA")))
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=NA0 ; n<=NA ; n=n+1)
$c                                      {
$c                                      printf("$xcg/parallele.1N$X
$c                                                             commande11=%c
$c                                                                          $xci/filtre.01$X
$c                                                                                         A=$_____imagesW.%04d$ROUGE
$c                                                                                         N=$xTV/GAUSS
$c                                                                                         seuil=%d
$c                                                                                         CAL1=FAUX
$c                                                                                         R=$_____images.%04d$ROUGE
$c                                                                                                     $formatI%c
$c                                                             commande21=%c
$c                                                                          $xci/filtre.01$X
$c                                                                                         A=$_____imagesW.%04d$BLEUE
$c                                                                                         N=$xTV/GAUSS
$c                                                                                         seuil=%d
$c                                                                                         CAL1=FAUX
$c                                                                                         R=$_____images.%04d$BLEUE
$c                                                                                                     $formatI%c\n"
$c                                            ,'"',n,SEUIL,n,'"'
$c                                            ,'"',n,SEUIL,n,'"'
$c                                             );
$c
$c                                      printf("$xci/init$X
$c                                                             niveau=$NOIR
$c                                                             R=$_____images.%04d$VERTE
$c                                                                                                     $formatI\n"
$c                                            ,n
$c                                             );
$c                                      }
$c                            }