#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D E   L A   S U P E R P O S I T I O N   L I N E A I R E                                         #
#         D ' 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.8.11.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  Pal

$Z                  unsetenv            PremiereA
$Z                  unsetenv            DerniereA
$Z
$Z                  SET                 tPremiereA=1
$Z                  SET                 tDerniereA=128
$Z
$Z                  EVAL                NimagesA = $tDerniereA - $tPremiereA
$Z                  EVAL                NimagesA = $NimagesA + 1
$Z
$Z                  set                 Premiere=$tPremiereA
$Z                  set                 Derniere=$tDerniereA
$Z
$Z                  SETENV              PremiereA $tPremiereA
$Z                  SETENV              DerniereA $tDerniereA

$X                  echo                "neutre"
$X                                      # commande destinee uniquement a mettre a jour l'environnement 'env'...                       #

$Z                  setParam            _____Avion                    VRAI

$Z                  set                 Part0=$Premiere
$Z                  set                 PartN=$Derniere

$Z                  Gen                 $xTV/TEMPS                    0.0                 8.0                 cubique=FAUX

$Z                  $xrq/hydrogene.61$X np=$NimagesA                                                                                    \
$Z                                      PARAMETRE_TEMPS=$xTV/TEMPS                                                                      \
$Z                                      spheriques=VRAI                                                                                 \
$Z                                      T1=1 T2=4 T3=8                                                                                  \
$Z                                      A=1.0 B=1.5 C=0.0 D=0.0 E=0.0 F=0.0                                                             \
$Z                                      ZX=VRAI                                                                                         \
$Z                                      standard=VRAI                                                                                   \
$Z                                      R=$xiim/HY.1.6B.                                                                                \
$Z                                      $formatI

$Z                  $xrq/hydrogene.61$X np=$NimagesA                                                                                    \
$Z                                      PARAMETRE_TEMPS=$xTV/TEMPS                                                                      \
$Z                                      spheriques=VRAI                                                                                 \
$Z                                      T1=1 T2=4 T3=8                                                                                  \
$Z                                      A=1.0 B=0.0 C=1.0 D=0.0 E=0.0 F=0.0                                                             \
$Z                                      ZX=VRAI                                                                                         \
$Z                                      standard=VRAI                                                                                   \
$Z                                      R=$xiim/HY.1.6C.                                                                                \
$Z                                      $formatI

$Z                  $xrq/hydrogene.61$X np=$NimagesA                                                                                    \
$Z                                      PARAMETRE_TEMPS=$xTV/TEMPS                                                                      \
$Z                                      spheriques=VRAI                                                                                 \
$Z                                      T1=1 T2=4 T3=8                                                                                  \
$Z                                      A=1.0 B=0.0 C=1.0 D=0.0 E=0.0 F=1.0                                                             \
$Z                                      ZX=VRAI                                                                                         \
$Z                                      standard=VRAI                                                                                   \
$Z                                      R=$xiim/HY.1.6D.                                                                                \
$Z                                      $formatI

$Z                  $xrq/hydrogene.61$X np=$NimagesA                                                                                    \
$Z                                      PARAMETRE_TEMPS=$xTV/TEMPS                                                                      \
$Z                                      spheriques=VRAI                                                                                 \
$Z                                      T1=1 T2=4 T3=8                                                                                  \
$Z                                      A=1.0 B=1.5 C=1.0 D=1.0 E=1.0 F=1.0                                                             \
$Z                                      ZX=VRAI                                                                                         \
$Z                                      standard=FAUX                                                                                   \
$Z                                      R=$xiim/HY.1.6E.                                                                                \
$Z                                      $formatI


$Z                  set                 Parametres="Ty=0.40 echelle=2.0 perspective=0.1"

$X                  $xci/genere$X       premiere=$PremiereA derniere=$DerniereA pas=1                                                   \
$X                                      C='$xci/substitue$X                                                                             \
$X                                                   A=$xiim/HY.1.6B.%04d                                                               \
$X                                                   p=$xiP/gris.31                                                                     \
$X                                                   substitution=L_SUBSTITUTION_ROUGE                                                  \
$X                                                   $formatI                                                                     |     \
$X                                         $xci/montagne.01$X                                                                           \
$X                                                   standard=FAUX                                                                      \
$X                                                   A=$xiim/HY.1.6E.%04d                                                               \
$X                                                   avion=$_____Avion $Parametres                                                      \
$X                                                   R=$_____images.%04d$ROUGE                                                          \
$X                                                   $formatI'

$X                  $xci/genere$X       premiere=$PremiereA derniere=$DerniereA pas=1                                                   \
$X                                      C='$xci/substitue$X                                                                             \
$X                                                   A=$xiim/HY.1.6C.%04d                                                               \
$X                                                   p=$xiP/gris.31                                                                     \
$X                                                   substitution=L_SUBSTITUTION_VERTE                                                  \
$X                                                   $formatI                                                                     |     \
$X                                         $xci/montagne.01$X                                                                           \
$X                                                   standard=FAUX                                                                      \
$X                                                   A=$xiim/HY.1.6E.%04d                                                               \
$X                                                   avion=$_____Avion $Parametres                                                      \
$X                                                   R=$_____images.%04d$VERTE                                                          \
$X                                                   $formatI'

$X                  $xci/genere$X       premiere=$PremiereA derniere=$DerniereA pas=1                                                   \
$X                                      C='$xci/substitue$X                                                                             \
$X                                                   A=$xiim/HY.1.6D.%04d                                                               \
$X                                                   p=$xiP/gris.31                                                                     \
$X                                                   substitution=L_SUBSTITUTION_BLEUE                                                  \
$X                                                   $formatI                                                                     |     \
$X                                         $xci/montagne.01$X                                                                           \
$X                                                   standard=FAUX                                                                      \
$X                                                   A=$xiim/HY.1.6E.%04d                                                               \
$X                                                   avion=$_____Avion $Parametres                                                      \
$X                                                   R=$_____images.%04d$BLEUE                                                          \
$X                                                   $formatI'