#######################################################################################################################################
#                                                                                                                                     #
#         P R O B L E M E   D E S   Q U A T R E   C O R P S  :                                                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiak/.NCOS.41.1.$U' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20180321181725).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  @         Nimages = $Derniere - $Premiere
$Z                  @         Nimages = $Nimages + 1

$Z                  set       NcorpsS=4

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

$Z                  genere    $xTV/COORDONNEES$COORD_X +1.0e3    -800.0e9  -800.0e9  +260.0e9
$Z                  genere    $xTV/COORDONNEES$COORD_Z +1.0e3    +1.0e3    +1.0e3    +1.0e3
$Z                  genere    $xTV/VITESSES$COORD_X    0         0         -0.96e3   0
$Z                  genere    $xTV/VITESSES$COORD_Y    0         5.0e3     5.0e3     -13.3e3
$Z                  genere    $xTV/VITESSES$COORD_Z    0         0         0         0
$Z                  genere    $xTV/MASSES              1.0e30    2.0e27    7.350e22  1.0e28
$Z                  genere    $xTV/RAYONS              8.0e10    4.0e10    3.0e10    5.0e10
$Z                  genere    $xTV/COULEURS$ROUGE      $GRIS_3   $GRIS_8   $GRIS_3   $GRIS_3
$Z                  genere    $xTV/COULEURS$VERTE      $GRIS_3   $GRIS_8   $GRIS_3   $GRIS_3
$Z                  genere    $xTV/COULEURS$BLEUE      $GRIS_3   $GRIS_8   $GRIS_3   $GRIS_3