####################################################################################################################################### # # # 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