#######################################################################################################################################
#                                                                                                                                     #
#         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.H.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            _____DistanceO                0.2

$Z                  $DELETE             $xTV/SELECTION

$Z                  $xrv/IFLT.11$X                                                                                                      \
$Z                                      CAL1=FAUX                                                                                       \
$Z                                      ne=$PartN                                                                                       \
$Z                                      fichier1=$xTV/DISTANCES                                                                         \
$Z                                      fichier2=$_____DistanceO                                                                        \
$Z                                                                                                  >   $xTV/SELECTION

$Z                  $DELETE             $xTV/DISTANCES

$Z                  $DELETE             $xTV/COORDONNEES_01$COORD_X
$Z                  $DELETE             $xTV/COORDONNEES_01$COORD_Y
$Z                  $DELETE             $xTV/COORDONNEES_01$COORD_Z

$Z                  $xrv/selection.01$X                                                                                                 \
$Z                                      CAL1=FAUX                                                                                       \
$Z                                      ne=$PartN                                                                                       \
$Z                                      fichier=$xTV/COORDONNEES$COORD_X                                                                \
$Z                                      selection=$xTV/SELECTION                                                                        \
$Z                                                                                                  >   $xTV/COORDONNEES_01$COORD_X
$Z                  $xrv/selection.01$X                                                                                                 \
$Z                                      CAL1=FAUX                                                                                       \
$Z                                      ne=$PartN                                                                                       \
$Z                                      fichier=$xTV/COORDONNEES$COORD_Y                                                                \
$Z                                      selection=$xTV/SELECTION                                                                        \
$Z                                                                                                  >   $xTV/COORDONNEES_01$COORD_Y
$Z                  $xrv/selection.01$X                                                                                                 \
$Z                                      CAL1=FAUX                                                                                       \
$Z                                      ne=$PartN                                                                                       \
$Z                                      fichier=$xTV/COORDONNEES$COORD_Z                                                                \
$Z                                      selection=$xTV/SELECTION                                                                        \
$Z                                                                                                  >   $xTV/COORDONNEES_01$COORD_Z

$Z                  $DELETE             $xTV/SELECTION

$Z                  $DELETE             $xTV/COORDONNEES$COORD_X
$Z                  $DELETE             $xTV/COORDONNEES$COORD_Y
$Z                  $DELETE             $xTV/COORDONNEES$COORD_Z

$Z                  $MV                 $xTV/COORDONNEES_01$COORD_X   $xTV/COORDONNEES$COORD_X
$Z                  $MV                 $xTV/COORDONNEES_01$COORD_Y   $xTV/COORDONNEES$COORD_Y
$Z                  $MV                 $xTV/COORDONNEES_01$COORD_Z   $xTV/COORDONNEES$COORD_Z

$Z                  set                 PartNX=`$WC $xTV/COORDONNEES$COORD_X`
$Z                  set                 PartNX=$PartNX[$WC1]
$Z                  set                 PartNY=`$WC $xTV/COORDONNEES$COORD_Y`
$Z                  set                 PartNY=$PartNY[$WC1]
$Z                  set                 PartNZ=`$WC $xTV/COORDONNEES$COORD_Z`
$Z                  set                 PartNZ=$PartNZ[$WC1]

#20220615102438____:$Z                  set                 PartN=`$xcg/MAX3.01$X x=$PartNX y=$PartNY z=$PartNZ signe="$K_VIDE"`      #
$Z                  set                 PartN=`$xcg/MIN3.01$X x=$PartNX y=$PartNY z=$PartNZ signe="$K_VIDE"`