#######################################################################################################################################
#                                                                                                                                     #
#         C E N T R A G E   D E S   P O S I T I O N S   I N I T I A L E S   D E S   P A R T I C U L E S                               #
#         D A N S   U N   M I L I E U   S Y M E T R I Q U E ,   S I M P L E   E T   C E N T R E                                       #
#         ( U N   R E C T A N G L E   C E N T R E   P A R   E X E M P L E )  :                                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000009/face.2/.REFL.c.43.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  set                 XYcoinHD=`$xci/extrema$X A=$xTV/BOITE.B inverser=FAUX minimum=FAUX nom=VRAI $formatI  |& $CA`
$Z                  set                 XcoinHD=`echo $XYcoinHD | $SE -e "s/^.*x=//" -e 's/ .*$//'`
$Z                  set                 YcoinHD=`echo $XYcoinHD | $SE -e "s/^.*y=//" -e 's/ .*$//'`

$Z                  set                 XYcoinBG=`$xci/extrema$X A=$xTV/BOITE.B inverser=VRAI minimum=FAUX nom=VRAI $formatI  |& $CA`
$Z                  set                 XcoinBG=`echo $XYcoinBG | $SE -e "s/^.*x=//" -e 's/ .*$//'`
$Z                  set                 YcoinBG=`echo $XYcoinBG | $SE -e "s/^.*y=//" -e 's/ .*$//'`

$Z                  set                 TDistanceXs2=`$xcg/SOUS.01$X a=$XcoinBG b=$XcoinHD`
$Z                  set                 TDistanceXs2=`$xcg/MOIT.01$X a=$TDistanceXs2`

$Z                  set                 TDistanceYs2=`$xcg/SOUS.01$X a=$YcoinBG b=$YcoinHD`
$Z                  set                 TDistanceYs2=`$xcg/MOIT.01$X a=$TDistanceYs2`

$Z                  $xci/move$X                                                                                                         \
$Z                                      A=$xTV/BOITE.B                                                                                  \
$Z                                      xR=$TDistanceXs2 thR=FAUX                                                                       \
$Z                                      yR=$TDistanceYs2 tvR=FAUX                                                                       \
$Z                                      R=$xTV/BOITE.B                                                                                  \
$Z                                      $formatI