#######################################################################################################################################
#                                                                                                                                     #
#         S E L E C T I O N   D E S   P A R T I C U L E S   P R O C H E S   D E   l ' E N T R E E   D A N S                           #
#         U N   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.K.13.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  set       MinimumX=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORDONNEES$COORD_X | $GRE '^minimum=' | $SE -e 's/^.*=//'`
$Z                  set       MaximumX=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORDONNEES$COORD_X | $GRE '^maximum=' | $SE -e 's/^.*=//'`

$Z                  set       MinimumY=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORDONNEES$COORD_Y | $GRE '^minimum=' | $SE -e 's/^.*=//'`
$Z                  set       MaximumY=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORDONNEES$COORD_Y | $GRE '^maximum=' | $SE -e 's/^.*=//'`

$Z                  set       MinimumZ=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORDONNEES$COORD_Z | $GRE '^minimum=' | $SE -e 's/^.*=//'`
$Z                  set       MaximumZ=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORDONNEES$COORD_Z | $GRE '^maximum=' | $SE -e 's/^.*=//'`

$Z                  $DELETE             $xTV/DISTANCES

$Z                  $xrv/distance.11$X                                                                                                  \
$Z                                      CAL1=FAUX                                                                                       \
$Z                                      ne=$PartN                                                                                       \
$Z                                      LISTE_X=$xTV/COORDONNEES$COORD_X                                                                \
$Z                                      LISTE_Y=$xTV/COORDONNEES$COORD_Y                                                                \
$Z                                      LISTE_Z=$xTV/COORDONNEES$COORD_Z                                                                \
$Z                                      X0=$MinimumX                                                                                    \
$Z                                      Y0=$MinimumY                                                                                    \
$Z                                      Z0=$MinimumZ                                                                                    \
$Z                                                                                                  >   $xTV/DISTANCES

$Z                  setParam            _____DistanceO1               0.0

$Z                  setParam            _____DistanceO2               0.4

$Z                  setParam            _____DistanceORi              $GRIS_4

$Z                  setParam            _____DistanceORm              $GRIS_8

$Z                  setParam            _____DistanceORs              $GRIS_4

$Z                  setParam            _____DistanceOVi              $GRIS_4

$Z                  setParam            _____DistanceOVm              $GRIS_7

$Z                  setParam            _____DistanceOVs              $GRIS_4

$Z                  setParam            _____DistanceOBi              $GRIS_4

$Z                  setParam            _____DistanceOBm              $GRIS_0

$Z                  setParam            _____DistanceOBs              $GRIS_4

$Z                  $DELETE             $xTV/COULEURS$ROUGE
$Z                  $DELETE             $xTV/COULEURS$VERTE
$Z                  $DELETE             $xTV/COULEURS$BLEUE

$Z                  $xrv/passe_ban.01$X                                                                                                 \
$Z                                      CAL1=FAUX                                                                                       \
$Z                                      ne=$PartN                                                                                       \
$Z                                      minimum=$_____DistanceO1 maximum=$_____DistanceO2                                               \
$Z                                      hors_bande=VRAI                                                                                 \
$Z                                      marquer=VRAI                                                                                    \
$Z                                      valeur_inferieure=$_____DistanceORi                                                             \
$Z                                      valeur_intermediaire=$_____DistanceORm                                                          \
$Z                                      valeur_superieure=$_____DistanceORs                                                             \
$Z                                      fichier=$xTV/DISTANCES                                                                          \
$Z                                      formater=VRAI entiers=VRAI                                                                      \
$Z                                                                                                  >   $xTV/COULEURS$ROUGE
$Z                  $xrv/passe_ban.01$X                                                                                                 \
$Z                                      CAL1=FAUX                                                                                       \
$Z                                      ne=$PartN                                                                                       \
$Z                                      minimum=$_____DistanceO1 maximum=$_____DistanceO2                                               \
$Z                                      hors_bande=VRAI                                                                                 \
$Z                                      marquer=VRAI                                                                                    \
$Z                                      valeur_inferieure=$_____DistanceOVi                                                             \
$Z                                      valeur_intermediaire=$_____DistanceOVm                                                          \
$Z                                      valeur_superieure=$_____DistanceOVs                                                             \
$Z                                      fichier=$xTV/DISTANCES                                                                          \
$Z                                      formater=VRAI entiers=VRAI                                                                      \
$Z                                                                                                  >   $xTV/COULEURS$VERTE
$Z                  $xrv/passe_ban.01$X                                                                                                 \
$Z                                      CAL1=FAUX                                                                                       \
$Z                                      ne=$PartN                                                                                       \
$Z                                      minimum=$_____DistanceO1 maximum=$_____DistanceO2                                               \
$Z                                      hors_bande=VRAI                                                                                 \
$Z                                      marquer=VRAI                                                                                    \
$Z                                      valeur_inferieure=$_____DistanceOBi                                                             \
$Z                                      valeur_intermediaire=$_____DistanceOBm                                                          \
$Z                                      valeur_superieure=$_____DistanceOBs                                                             \
$Z                                      fichier=$xTV/DISTANCES                                                                          \
$Z                                      formater=VRAI entiers=VRAI                                                                      \
$Z                                                                                                  >   $xTV/COULEURS$BLEUE

$Z                  $DELETE             $xTV/DISTANCES