#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D E   L A   S U R F A C E   " F A N T O M A T I Q U E "                                         #
#         D U   M I L I E U   D E   P R O P A G A T I O N   C O R R E S P O N D A N T                                                 #
#         A   L A   C A R T E   D E   D E N S I T E   B I D I M E N S I O N N E L L E                                                 #
#         D E S   B R O N C H I O L E S   T E R M I N A L E S   D E S   P O U M O N S                                                 #
#         A V E C   A J U S T E M E N T   A U T O M A T I Q U E  :                                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiird/.ACIN.g.22.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Seuil                    6

$Z                  setParam            _____Points1                  121

$Z                  setParam            _____Erosion                  81
$Z                                      # Ce parametre a ete introduit le 20020405121425 afin que certaines particules n'apparaissent #
$Z                                      # pas "a cheval" sur la frontiere du milieu...                                                #

$Z                  setParam            _____Attenuation              0.42
$Z                                      # Cette valeur est destinee a etre compatible a 'v $xiird/.ACIN.L.22.$U _____Attenuation'     #
$Z                                      # sachant que dans ce dernier '$_____Translation' vaut '$GRIS_1'. Ainsi, on a :               #
$Z                                      #                                                                                             #
$Z                                      #                   ($BLANC*0.3) + $GRIS_1 = ($BLANC*0.42) + $GRIS_0                          #
$Z                                      #                                                                                             #

$Z                  setParam            _____Translation              $GRIS_0

$Z                  $xci/acces$X                                                                                                        \
$Z                                      A=$_____imagesS                                                                                 \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/seuil$X                                                                                                        \
$Z                                      seuil=$_____Seuil                                                                               \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/complement$X                                                                                                   \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/dilate.01$X                                                                                                    \
$Z                                      dilater=FAUX                                                                                    \
$Z                                      points=$_____Erosion                                                                            \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/convol.01$X                                                                                                    \
$Z                                      points=$_____Points1                                                                            \
$Z                                                                                                  $formatI                      |     \
$Z                  $xci/scale$X                                                                                                        \
$Z                                      a=$_____Attenuation                                                                             \
$Z                                      b=$_____Translation                                                                             \
$Z                                      R=$xTV/BOITE.3                                                                                  \
$Z                                                                                                  $formatI

$Z                  eval                `$xci/genere$X                                                                                \\\
$Z                                                           commande='($xci/neutre$X  A=$xTV/BOITE.3 R=$xTV/BOITE.3$%s $formatI)'    \\\
$Z                                                           en_tete=FAUX RVB=VRAI postfixes_RVB=FAUX separateur=VRAI`