#######################################################################################################################################
#                                                                                                                                     #
#         G E S T I O N   D U   C E N T R E   D E   G R A V I T E   D U   P R O B L E M E   D E S   N - C O R P S  :                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirk/.NCOR.d2.1.13.$U' :                                                                                       #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D E   L A   T R A J E C T O I R E                                                               #
#         D U   C E N T R E   D E   G R A V I T E   D U   P R O B L E M E   D E S   N - C O R P S  :                                  #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  $CA                 $xTV/COORDONNEES                                                                          |     \
$Z                  $SE                 -e "s/^.*[ (,]X[G]*=//"                                                                         \
$Z                                      -e "s/[,) ].*//"                                                                                \
$Z                                                                                                  > $xTV/COORDONNEES$COORD_X
$Z                  $CA                 $xTV/COORDONNEES                                                                          |     \
$Z                  $SE                 -e "s/^.*[ (,]Y[G]*=//"                                                                         \
$Z                                      -e "s/[,) ].*//"                                                                                \
$Z                                                                                                  > $xTV/COORDONNEES$COORD_Y
$Z                  $CA                 $xTV/COORDONNEES                                                                          |     \
$Z                  $SE                 -e "s/^.*[ (,]Z[G]*=//"                                                                         \
$Z                                      -e "s/[,) ].*//"                                                                                \
$Z                                                                                                  > $xTV/COORDONNEES$COORD_Z

$Z                  set                 Coordonnees=`$WC $xTV/COORDONNEES$COORD_X`
$Z                  set                 Coordonnees=$Coordonnees[$WC1]
$Z
$Z                  set                 Corps=`$WC $xTV/COULEURS.1$ROUGE`
$Z                  set                 Corps=$Corps[$WC1]
$Z
$Z                  @                   Periodes = $Coordonnees / $Corps

$Z                  repeat              $Periodes           eval "$CA $xTV/RAYONS.1 >>! $xTV/RAYONS.N"
$Z                  repeat              $Periodes           eval "$CA $xTV/COULEURS.1$ROUGE >>! $xTV/COULEURS.N$ROUGE"
$Z                  repeat              $Periodes           eval "$CA $xTV/COULEURS.1$VERTE >>! $xTV/COULEURS.N$VERTE"
$Z                  repeat              $Periodes           eval "$CA $xTV/COULEURS.1$BLEUE >>! $xTV/COULEURS.N$BLEUE"

$Z                  set                 Translation=`$xcg/DIVZ.01$X a=0.5 b=$_____ZoomTrajectoire`