#######################################################################################################################################
#                                                                                                                                     #
#         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   T R 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.L.21.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SETParam            _____Attenuation              0.30

$Z                  SETParam            _____Translation              $GRIS_1

$Z                  SETParam            _____Points1                  121

$Z                  SETParam            _____Points2                  9

$Z                  SETParam            _____Seuil                    4

$Z                  SETParam            _____Points3                  81

$Z                  eval                `$xci/genere$X                                                                                \\\
$Z                                                           commande='($xci/scale$X                                                  \\\
$Z                                                                                          A=$_____imagesS$%s                        \\\
$Z                                                                                          a=$_____Attenuation                       \\\
$Z                                                                                          b=$_____Translation                       \\\
$Z                                                                                                                   $formatI     |   \\\
$Z                                                                      $xci/convol.01$X                                              \\\
$Z                                                                                          points=$_____Points1                      \\\
$Z                                                                                          R=$xTV/SURFACE.1$%s                       \\\
$Z                                                                                                                   $formatI)'       \\\
$Z                                                           en_tete=FAUX RVB=VRAI postfixes_RVB=FAUX separateur=VRAI`

$Z                  eval                `$xci/genere$X                                                                                \\\
$Z                                                           commande='($xci/convol.01$X                                              \\\
$Z                                                                                          A=$_____imagesS$%s                        \\\
$Z                                                                                          points=$_____Points1                      \\\
$Z                                                                                                                   $formatI     |   \\\
$Z                                                                      $xci/convol.05$X                                              \\\
$Z                                                                                          contours=VRAI                             \\\
$Z                                                                                          points=$_____Points2                      \\\
$Z                                                                                          seuil=$_____Seuil                         \\\
$Z                                                                                                                   $formatI     |   \\\
$Z                                                                      $xci/convol.01$X                                              \\\
$Z                                                                                          points=$_____Points3                      \\\
$Z                                                                                                                   $formatI     |   \\\
$Z                                                                      $xci/acces$X                                                  \\\
$Z                                                                                          renormaliser=VRAI                         \\\
$Z                                                                                          R=$xTV/SURFACE.2$%s                       \\\
$Z                                                                                                                   $formatI)'       \\\
$Z                                                           en_tete=FAUX RVB=VRAI postfixes_RVB=FAUX separateur=VRAI`

$Z                  $xci/vitre.53$Z     $xTV/SURFACE.1 $xTV/SURFACE.2 $xTV/SURFACE