#######################################################################################################################################
#                                                                                                                                     #
#         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/.NCOR.z1.1.$U' :                                                                                           #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20131227103905).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Reference                1

$Z                  setParam            _____Zoom                     `GetParam $xrr/N_corps.11$X ZOOM`
$Z                                      # Parametre introduit le 20131227110832...                                                    #

$Z                  setParam            _____TranslationX             600e9
$Z                                      # Parametre introduit le 20131227110832...                                                    #

$Z                  setParam            _____TranslationY             300e9
$Z                                      # Parametre introduit le 20131227110832...                                                    #

$Z                  set                 Premiere=1
$Z                  set                 Derniere=512

$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_Y +1.0e3    +1.0e3    +5.0e10   +1.0e3
$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_8   $GRIS_0   $GRIS_8   $GRIS_8
$Z                  genere              $xTV/COULEURS$VERTE      $GRIS_7   $GRIS_8   $GRIS_8   $GRIS_4
$Z                  genere              $xTV/COULEURS$BLEUE      $GRIS_0   $GRIS_8   $GRIS_8   $GRIS_0
$Z
$Z                  set                 _____images=$xTV/NCOR.z1

$Z                  $xrr/N_corps.11$X   corps=$NcorpsS                                                                                  \
$Z                                      np=$Nimages                                                                                     \
$Z                                      LISTE_X=$xTV/COORDONNEES$COORD_X                                                                \
$Z                                      LISTE_Y=$xTV/COORDONNEES$COORD_Y                                                                \
$Z                                      LISTE_Z=$xTV/COORDONNEES$COORD_Z                                                                \
$Z                                      LISTE_VX=$xTV/VITESSES$COORD_X                                                                  \
$Z                                      LISTE_VY=$xTV/VITESSES$COORD_Y                                                                  \
$Z                                      LISTE_VZ=$xTV/VITESSES$COORD_Z                                                                  \
$Z                                      LISTE_MASSE=$xTV/MASSES                                                                         \
$Z                                      LISTE_RAYON=$xTV/RAYONS                                                                         \
$Z                                      LISTE_ROUGE=$xTV/COULEURS$ROUGE                                                                 \
$Z                                      LISTE_VERTE=$xTV/COULEURS$VERTE                                                                 \
$Z                                      LISTE_BLEUE=$xTV/COULEURS$BLEUE                                                                 \
$Z                                      centrer=FAUX reference=$_____Reference                                                          \
$Z                                      dct=100                                                                                         \
$Z                                      nombre=40000                                                                                    \
$Z                                      trainees=VRAI mode=1                                                                            \
$Z                                      attenuation_des_images=1.0                                                                      \
$Z                                      attenuation_des_trainees=0.99                                                                   \
$Z                                      renormaliser=FAUX                                                                               \
$Z                                      ZOOM=$_____Zoom                                                                                 \
$Z                                      TRANSLATION_OX=$_____TranslationX                                                               \
$Z                                      TRANSLATION_OY=$_____TranslationY                                                               \
$Z                                      editer_extrema_hors=FAUX                                                                        \
$Z                                      R=$_____images.                                                                                 \
$Z                                      $formatI