#######################################################################################################################################
#                                                                                                                                     #
#         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 '$xivP/disk.000000009/face.2/.NCOR.1.22.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

#######################################################################################################################################
#                                                                                                                                     #
#         L I S T E   D E S   C O R P S  :                                                                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#                   Soleil    Mercure   Venus     Terre     Mars      Jupiter   Saturne   Uranus    Neptune   Pluton    CentreGravite #
#                                                                                                                                     #
#                   1         2         3         4         5         6         7         8         9         10        11            #
#                                                                                                                                     #
#######################################################################################################################################

$Z        genere    $xTV/RAYONS                                                                                                         \
$Z                  +50e-3    +30e-3    +30e-3    +30e-3    +30e-3    +40e-3    +40e-3    +35e-3    +35e-3    +30e-3    +25e-3
$Z
$Z        genere    $xTV/COULEURS$ROUGE                                                                                                 \
$Z                  $GRIS_8   $GRIS_8   $GRIS_8   $GRIS_0   $GRIS_8   $GRIS_8   $GRIS_8   $GRIS_4   $GRIS_0   $GRIS_7   $GRIS_0
$Z
$Z        genere    $xTV/COULEURS$VERTE                                                                                                 \
$Z                  $GRIS_8   $GRIS_6   $GRIS_4   $GRIS_6   $GRIS_4   $GRIS_6   $GRIS_7   $GRIS_8   $GRIS_7   $GRIS_7   $GRIS_8
$Z
$Z        genere    $xTV/COULEURS$BLEUE                                                                                                 \
$Z                  $GRIS_0   $GRIS_2   $GRIS_0   $GRIS_8   $GRIS_2   $GRIS_0   $GRIS_0   $GRIS_8   $GRIS_8   $GRIS_8   $GRIS_0

#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A 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  :      #
#                                                                                                                                     #
#######################################################################################################################################

$c                  #define   N0        Premiere
$c                  #define   N         Derniere
$c
$c                  int       main()
$c                            {
$c                            int       n;
$c
$c                            for       (n=N0 ; n<=N ; n++)
$c                                      {
$c                                      printf("$DELETE     $xTV/COORDONNEES\n");
$c                                      printf("$DELETE     $xTV/COORDONNEES$COORD_X\n");
$c                                      printf("$DELETE     $xTV/COORDONNEES$COORD_Y\n");
$c                                      printf("$DELETE     $xTV/COORDONNEES$COORD_Z\n");
$c
$c                                      printf("$CA         $xTV/LISTE_POINTS                       |
$c                                              $GRE        'periode=%d '
$c                                                          > $xTV/COORDONNEES\n"
$c                                            ,n,'"','"'
$c                                             );
$c
$c                                      printf("set  Particules=`$WC $xTV/COORDONNEES`\n");
$c                                      printf("set  Particules=$Particules[$WC1]\n");
$c
$c                                      printf("$CA         $xTV/COORDONNEES                        |
$c                                              $SE         -e %cs/^.*[ (,]X[G]*=//%c
$c                                                          -e %cs/[,) ].*//%c
$c                                                          > $xTV/COORDONNEES$COORD_X\n"
$c                                            ,'"','"','"','"'
$c                                             );
$c                                      printf("$CA         $xTV/COORDONNEES                        |
$c                                              $SE         -e %cs/^.*[ (,]Y[G]*=//%c
$c                                                          -e %cs/[,) ].*//%c
$c                                                          > $xTV/COORDONNEES$COORD_Y\n"
$c                                            ,'"','"','"','"'
$c                                             );
$c                                      printf("$CA         $xTV/COORDONNEES                        |
$c                                              $SE         -e %cs/^.*[ (,]Z[G]*=//%c
$c                                                          -e %cs/[,) ].*//%c
$c                                                          > $xTV/COORDONNEES$COORD_Z\n"
$c                                            ,'"','"','"','"'
$c                                             );
$c
$c                                      printf("$xrv/particule.10$X
$c                                                          np=1
$c                                                          iterations=$Particules
$c                                                          isoles=VRAI
$c                                                          LISTE_X=$xTV/COORDONNEES$COORD_X
$c                                                          LISTE_Y=$xTV/COORDONNEES$COORD_Y
$c                                                          LISTE_Z=$xTV/COORDONNEES$COORD_Z
$c                                                          LISTE_ROUGE=$xTV/COULEURS$ROUGE
$c                                                          LISTE_VERTE=$xTV/COULEURS$VERTE
$c                                                          LISTE_BLEUE=$xTV/COULEURS$BLEUE
$c                                                          Ar=0.4
$c                                                          LISTE_RAYON=$xTV/RAYONS
$c                                                          Lz=100
$c                                                          zoom_automatique=FAUX ZOOM=1.0
$c                                                          coordonnees_dans_0_1=FAUX
$c                                                          AXYZ=1 BXYZ=0.0
$c                                                          TRANSLATION_OX=0.5 TRANSLATION_OY=0.5
$c                                                          fond=FAUX
$c                                                          centrer=FAUX reference=$_____Reference
$c                                                          attenuation_au_bord=0.25
$c                                                          R=$xTV/PART.1.
$c                                                                    $formatI\n"
$c                                             );
$c
$c                                      printf("$xci/neutre$X
$c                                                          A=$xTV/PART.1.%04d$ROUGE
$c                                                          R=$_____imagesR2.%04d$ROUGE
$c                                                                    $formatI\n"
$c                                            ,N0,n
$c                                             );
$c                                      printf("$xci/neutre$X
$c                                                          A=$xTV/PART.1.%04d$VERTE
$c                                                          R=$_____imagesR2.%04d$VERTE
$c                                                                    $formatI\n"
$c                                            ,N0,n
$c                                             );
$c                                      printf("$xci/neutre$X
$c                                                          A=$xTV/PART.1.%04d$BLEUE
$c                                                          R=$_____imagesR2.%04d$BLEUE
$c                                                                    $formatI\n"
$c                                            ,N0,n
$c                                             );
$c                                      }
$c                            }