#######################################################################################################################################
# #
# C E N T R A G E U N I V E R S E L D E S C O O R D O N N E E S { X , Y , Z } I N I T I A L E S : #
# #
# #
# Author of '$xivP/disk.000000009/face.2/.REFL.H.11.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss). #
# #
#######################################################################################################################################
$Z set CGravite_X=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORDONNEES$COORD_X Prme=VRAI | $GRE "^moyenne=" | $SE -e "s/^.*=//"`
$Z set CGravite_X=`$xcg/MUL2.01$X a=-1 b=$CGravite_X`
$Z set CGravite_Y=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORDONNEES$COORD_Y Prme=VRAI | $GRE "^moyenne=" | $SE -e "s/^.*=//"`
$Z set CGravite_Y=`$xcg/MUL2.01$X a=-1 b=$CGravite_Y`
$Z set CGravite_Z=`$xrv/extrema.01$X ne=0 fichier=$xTV/COORDONNEES$COORD_Z Prme=VRAI | $GRE "^moyenne=" | $SE -e "s/^.*=//"`
$Z set CGravite_Z=`$xcg/MUL2.01$X a=-1 b=$CGravite_Z`
$Z $DELETE $xTV/COORDONNEES_02$COORD_X
$Z $DELETE $xTV/COORDONNEES_02$COORD_Y
$Z $DELETE $xTV/COORDONNEES_02$COORD_Z
$Z $xrv/AXPB.01$X \
$Z ne=0 \
$Z fichier=$xTV/COORDONNEES$COORD_X \
$Z homothetie=1 translation=$CGravite_X \
$Z > $xTV/COORDONNEES_02$COORD_X
$Z $xrv/AXPB.01$X \
$Z ne=0 \
$Z fichier=$xTV/COORDONNEES$COORD_Y \
$Z homothetie=1 translation=$CGravite_Y \
$Z > $xTV/COORDONNEES_02$COORD_Y
$Z $xrv/AXPB.01$X \
$Z ne=0 \
$Z fichier=$xTV/COORDONNEES$COORD_Z \
$Z homothetie=1 translation=$CGravite_Z \
$Z > $xTV/COORDONNEES_02$COORD_Z
$Z $DELETE $xTV/COORDONNEES$COORD_X
$Z $DELETE $xTV/COORDONNEES$COORD_Y
$Z $DELETE $xTV/COORDONNEES$COORD_Z
$Z $MV $xTV/COORDONNEES_02$COORD_X $xTV/COORDONNEES$COORD_X
$Z $MV $xTV/COORDONNEES_02$COORD_Y $xTV/COORDONNEES$COORD_Y
$Z $MV $xTV/COORDONNEES_02$COORD_Z $xTV/COORDONNEES$COORD_Z