#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D E S   E T A T S   P R O P R E S   D E   L ' A T O M E   D ' H Y D R O G E N E  :                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000001/face.2/.HYDR.3.11.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Profondeur               0.80

$Z                  setParam            _____Echelle                  0.70

$Z                  setParam            _____NombreN                  1

$Z                  setParam            _____NombreL                  0

$Z                  setParam            _____NombreM                  0

$Z                  setParam            _____Spheriques               VRAI

$Z                  setParam            _____Palette                  $xiP/gris.01

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

$Z                  Pal

$Z                  $DELETE             $xTV/COORDONNEES$COORD_Z
$Z                  $xci/valeurs_inte$X p=$Premiere d=$Derniere                                                                         \
$Z                                      vD=+$_____Profondeur vA=-$_____Profondeur                                                       \
$Z                                      cubique=FAUX                                                                                    \
$Z                                                                                                  > $xTV/COORDONNEES$COORD_Z

$Z                  $xrq/hydrogene.41$X                                                                                                 \
$Z                                      np=$Nimages                                                                                     \
$Z                                      PARAMETRE_Z=$xTV/COORDONNEES$COORD_Z                                                            \
$Z                                      n=$_____NombreN l=$_____NombreL m=$_____NombreM                                                 \
$Z                                      auto=VRAI                                                                                       \
$Z                                      Ex=$_____Echelle Ey=$_____Echelle Ez=$_____Echelle                                              \
$Z                                      spheriques=$_____Spheriques independant=FAUX                                                    \
$Z                                      standard=VRAI                                                                                   \
$Z                                      R=$_____imagesR.                                                                                \
$Z                                      $formatI

$Z                  $xci/vraies_C.01$X                                                                                                  \
$Z                                      A=$_____imagesR.                                                                                \
$Z                                      premiere=$Premiere                                                                              \
$Z                                      derniere=$Derniere                                                                              \
$Z                                      p=$_____Palette                                                                                 \
$Z                                      RVB=VRAI                                                                                        \
$Z                                      R=$_____imagesR.                                                                                \
$Z                                      $formatI