#######################################################################################################################################
#                                                                                                                                     #
#         I N T E G R A T I O N   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.14.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

#20200515113441____:$Z                  Pal                                                                                           #

$Z                  setParam            _____Reference                1

$Z                  setParam            _____Zoom                     0.70

$Z                  setParam            _____Ranterieurs              0.5

$Z                  setParam            _____Canterieurs              0.8

$Z                  SETParam            _____Lister                   $NEXIST

$Z                  setParam            _____ParamNCorps              "$K_VIDE"
$Z                                      # Parametre introduit le 20200515112729...                                                    #

$Z                  if                  ($?_____ListerPoints == $NEXIST) then
$Z                                      set       _____ListerPoints="$K_VIDE"

$Z                                      if        ($_____Lister == $NEXIST) then
$Z                                                set       _____ListerPoints="$_____ListerPoints"" lister_les_points=FAUX"
$Z                                                set       _____ListerPoints="$_____ListerPoints"" centre_de_gravite=FAUX"
$Z                                                set       _____ListerPoints="$_____ListerPoints"" zoom_automatique=FAUX"
$Z                                                set       _____FichierListe=$nul
$Z                                      else
$Z                                                set       _____ListerPoints="$_____ListerPoints"" lister_les_points=VRAI"
$Z                                                set       _____ListerPoints="$_____ListerPoints"" lister_les_points_apres=VRAI"
$Z                                                set       _____ListerPoints="$_____ListerPoints"" centre_de_gravite=VRAI"
$Z                                                set       _____ListerPoints="$_____ListerPoints"" zoom_automatique=FAUX"
$Z                                                set       _____FichierListe=$xTV/LISTE_POINTS
$Z                                      endif
$Z                  else
$Z                                      set       _____FichierListe=$xTV/LISTE_POINTS
$Z                  endif

$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                                      Ar=0.5                                                                                          \
$Z                                      LISTE_RAYON=$xTV/RAYONS                                                                         \
$Z                                      LISTE_ROUGE=$xTV/COULEURS$ROUGE                                                                 \
$Z                                      LISTE_VERTE=$xTV/COULEURS$VERTE                                                                 \
$Z                                      LISTE_BLEUE=$xTV/COULEURS$BLEUE                                                                 \
$Z                                      LISTE_PONDERATION_CENTRE_DE_GRAVITE=$xTV/CENTRE_GRAVITE                                         \
$Z                                      centrer=FAUX reference=$_____Reference                                                          \
$Z                                      extension=5                                                                                     \
$Z                                      dct=15000                                                                                       \
$Z                                      nombre=1000                                                                                     \
$Z                                      2_a_2=FAUX source=1                                                                             \
$Z                                      ensemble=FAUX                                                                                   \
$Z                                      acceptable=0.5                                                                                  \
$Z                                      Ranterieurs=$_____Ranterieurs                                                                   \
$Z                                      Canterieurs=$_____Canterieurs                                                                   \
$Z                                      trainees=FAUX attenuation_des_images=1.0 attenuation_des_trainees=0.997 mode_des_trainees=1     \
$Z                                      renormaliser=FAUX                                                                               \
$Z                                      lineaire=VRAI exposant=0.4                                                                      \
$Z                                      editer_extrema_hors=FAUX                                                                        \
$Z                                      Lz=1.0e13                                                                                       \
$Z                                      TRANSLATION_OX=0                                                                                \
$Z                                      TRANSLATION_OY=0                                                                                \
$Z                                      ZOOM=$_____Zoom                                                                                 \
$Z                                      ROTATION_OX=$xTV/ROTATION$COORD_X                                                               \
$Z                                      fond=FAUX                                                                                       \
$Z                                      R=$_____imagesR1.                                                                               \
$Z                                      $_____ListerPoints                                                                              \
$Z                                      $_____ParamNCorps                                                                               \
$Z                                      $formatI                                                                                        \
$Z                                                                                                  > $_____FichierListe
$Z                                      # L'argument "editer_extrema_hors=FAUX " a ete introduit le 20200515114403...                 #