#######################################################################################################################################
#                                                                                                                                     #
#         F I L T R A G E   G A U S S I E N   D ' U N E   S U R F A C E  :                                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.PROJ.I1.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20060510094000).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____ArgSurface               "$K_VIDE"

$Z                  setParam            _____Gauss                    256

#20150610103056____:$Z                  Pal                                                                                           #

$Z                  $xrs/project2D.01$Z                                                                                                 \
$Z                                      $_____Surface                                                                                   \
$Z                                      $xTV/SURFACE.1                                                                                  \
$Z                                      "$_____ArgSurface"
$Z                                      # Projection de la surface argument...                                                        #

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

$Z                  SET       Premiere=1
$Z                  SET       Derniere=16

#20150610103056____:$Z                  Pal                                                                                           #

$c                  #include  <stdio.h>
$c
$c                  #define   N0        Premiere
$c                  #define   N         Derniere
$c
$c                  #define   Oseuil    238
#20060511092049____:$c                  #define   Eseuil    253                                                                       #
$c                  #define   Eseuil    (Oseuil+(N-N0))
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      int       seuil=((Eseuil*(n-N0))+(Oseuil*(N-n)))/(N-N0);
$c
$c                                      printf("eval      `$xci/genere$X
$c                                                         commande='($xci/filtre.01$X
$c                                                                               standardA=FAUX
$c                                                                               A=$xTV/SURFACE.1%%s
$c                                                                               N=$xTV/GAUSS
$c                                                                               seuil=%d
$c                                                                               standardR=FAUX
$c                                                                               R=$xTV/SURFACE.2%%s
$c                                                                                                            $formatI)'
$c                                                         en_tete=FAUX RVB=VRAI XYZ=VRAI separateur=VRAI`\n"
$c                                            ,seuil
$c                                            ,n
$c                                             );
$c                                      printf("eval      `$xci/genere$X
$c                                                         commande='($xci/normalise.01$X
$c                                                                               A=$xTV/SURFACE.2%%s
$c                                                                               origine=-1 extremite=1
$c                                                                               R=$_____imagesS%%s.%04d
$c                                                                                                            $formatI)'
$c                                                         en_tete=FAUX RVB=VRAI XYZ=VRAI separateur=VRAI`\n"
$c                                            ,n
$c                                             );
$c                                      /* Filtrage de la surface...                                                                 */
$c                                      }
$c                            }