#######################################################################################################################################
#                                                                                                                                     #
#         D E F I N I T I O N   D U   S Y S T E M E   S O L A I R E  :                                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000009/face.2/.NCOR.1.13.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  alias     genere    'set       Fl=\!:1 ; set Li=(\!:2*)                                                       ;    \\
$Z                                       $DELETE   $Fl                                                                            ;    \\
$Z                                       echo      "$Li" | $SE -e "s/$K_BLANC$K_BLANC*/ /g" | $R "$K_BLANC" "$K_NL" > $Fl         ;    \\
$Z                                       unset     Fl Li'

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

$Z                  genere    $xTV/COORDONNEES$COORD_X                                                                                  \
$Z                            +1e3      +514e+8   +213e+8   -203e+8   -204e+9   +501e+9   -134e+10  -150e+9   -436e+10  -392e+10
$Z
$Z                  genere    $xTV/COORDONNEES$COORD_Y                                                                                  \
$Z                            +1e3      +682e+7   +967e+8   +133e+9   +126e+9   -519e+9   +341e+9   +259e+10  -115e+10  +307e+10
$Z
$Z                  genere    $xTV/COORDONNEES$COORD_Z                                                                                  \
$Z                            +1e3      -163e+7   +422e+8   +579e+8   +634e+8   -235e+9   +199e+9   +113e+10  -363e+9   +216e+10
$Z
$Z                  genere    $xTV/VITESSES$COORD_X                                                                                     \
$Z                            0         -1.46e+4  -3.44e+4  -2.99e+4  -1.27e+4  +9.67e+3  -3.21e+3  -6.84e+3  +1.42e+3  -2.27e+3
$Z
$Z                  genere    $xTV/VITESSES$COORD_Y                                                                                     \
$Z                            0         +4.43e+4  +5.39e+3  -3.88e+3  -1.64e+4  +8.59e+3  -8.62e+3  -6.50e+2  -4.79e+3  -4.53e+3
$Z
$Z                  genere    $xTV/VITESSES$COORD_Z                                                                                     \
$Z                            0         +2.52e+4  +4.60e+3  -1.68e+3  -7.18e+3  +3.44e+3  -3.42e+3  -1.88e+2  -2.00e+3  -7.39e+2
$Z
$Z                  genere    $xTV/MASSES                                                                                               \
$Z                            +2.0e30   +3.3e23   +48.7e23  +60.5e23  +6.4e23   +189.9e25 +56.8e25  +8.6e25   +10.3e25  +6.6e21
$Z
$Z                  genere    $xTV/RAYONS                                                                                               \
$Z                            +50e10    +30e10    +30e10    +30e10    +30e10    +40e10    +40e10    +35e10    +35e10    +30e10
$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
$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
$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
$Z
$Z                  genere    $xTV/CENTRE_GRAVITE                                                                                       \
$Z                            0         1         1         1         1         1         1         1         1         1