#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N   C H A M P   A L E A T O I R E   P E R I O D I Q U E  :                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000006/face.2/.RAND.1.11.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        SET       Premiere=1
$Z        SET       Derniere=128

$Z        Std

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

$c                  #define   N0        Premiere
$c                  #define   N         Derniere
$c
$c                  #define   Facteur0  0.0
$c                  #define   FacteurN  1.0
$c
$c                  #define   SEUIL     240
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      double    Facteur=((FacteurN*(n-N0))+(Facteur0*(N-n)))/(N-N0);
$c
$c                                      printf("$xci/random.11$X
$c                                                          facteur=%f
$c                                                          R=$_____imagesR1.%04d
$c                                                                    $formatI\n"
$c                                            ,Facteur
$c                                            ,n
$c                                             );
$c
$c                                      printf("$xci/filtre.01$X
$c                                                          A=$_____imagesR1.%04d
$c                                                          N=$xTV/GAUSS
$c                                                          seuil=%d
$c                                                          R=$_____imagesR2.%04d
$c                                                                    $formatI\n"
$c                                            ,n
$c                                            ,SEUIL
$c                                            ,n
$c                                             );
$c                                      }
$c                            }