#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D E S   C O N D I T I O N S   I N I T I A L E S                                                       #
#         D U   G E N E R A T E U R   D E   C O T E S   T R I D I M E N S I O N N E L L E S   E T   E R O S I O N  :                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.COT3.12.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____SeuilF                   $GRIS_7

$Z                  setParam            _____SeuilA                   $GRIS_7

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

$Z                  set                 NuMeRo=$NuMeRo_MeR

$Z                  while               ($NuMeRo <= $#LiStE_ImAgEs)
$Z                                      $xci/filtre.01$X                                                                                \
$Z                                                          A=$xTV/COT3.1.$LiStE_ImAgEs[$NuMeRo]                                        \
$Z                                                          N=$xTV/GAUSS                                                                \
$Z                                                          seuil=$_____SeuilF                                                          \
$Z                                                          R=$xTV/COT3.2.$LiStE_ImAgEs[$NuMeRo]                                        \
$Z                                                                                                                      $formatI
$Z
$Z                                      @                   NuMeRo = $NuMeRo + 1
$Z                  end

$Z                  $xci/accumule.02$X                                                                                                  \
$Z                                      A=$xTV/COT3.2.                                                                                  \
$Z                                      premiere=$Premiere derniere=$Derniere                                                           \
$Z                                      seuil=$_____SeuilA                                                                              \
$Z                                      binariser=VRAI                                                                                  \
$Z                                      trx=0 try=0                                                                                     \
$Z                                      R=$_____images.0                                                                                \
$Z                                                                                                  $formatI
$Z                  $xci/accumule.02$X                                                                                                  \
$Z                                      A=$xTV/COT3.2.                                                                                  \
$Z                                      premiere=$Premiere derniere=$Derniere                                                           \
$Z                                      seuil=$_____SeuilA                                                                              \
$Z                                      binariser=FAUX                                                                                  \
$Z                                      trx=0 try=0                                                                                     \
$Z                                      R=$_____images.1                                                                                \
$Z                                                                                                  $formatI