#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D U   P A S   D E   T E M P S   D U                                                             #
#         G E N E R A T E U R   D E   C O T E S   B I D I M E N S I O N N E L L E S   E T   " E T C H I N G "  :                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirf/.ETC2.31.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____Fnombres                 $xTV/NOMBRES

$Z                  setParam            _____RhoMinimal               0.1

$Z                  setParam            _____RhoMaximal               1.0

$Z                  setParam            _____PhiMinimal               0

$Z                  setParam            _____PhiMaximal               1000

$Z                  setParam            _____FacteurRayon             0.020

$Z                  Pal

$Z                  $DELETE             $xTV/DTEMPS$RAYON.1

$Z                  $CA                 $_____Fnombres                                                                            |     \
$Z                  $GRE                " PasDeTemps="                                                                            |     \
$Z                  $SE                 -e "s/^.*PasDeTemps=//"                                                                         \
$Z                                      -e 's/ .*$//'                                                                                   \
$Z                                                                                                            > $xTV/DTEMPS$RAYON.1

$Z                  $DELETE             $xTV/DTEMPS$RAYON

$Z                  $xrv/LOGX.01$X      ne=0                                                                                            \
$Z                                      fichier=$xTV/DTEMPS$RAYON.1                                                                     \
$Z                                      homothetie=1 translation=1                                                                |     \
$Z                  $xrv/normalise.01$X ne=0                                                                                            \
$Z                                      fichier==                                                                                 |     \
$Z                  $xrv/AXPB.01$X      ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      homothetie=-1 translation=+1                                                                    \
$Z                                                                                                            > $xTV/DTEMPS$RAYON

$Z                  set                 Nparticules=`$CA $xTV/DTEMPS$RAYON | $WCl`

$Z                  $DELETE             $xTV/DTEMPS.RHO

$Z                  $xci/valeurs_inte$X p=1 d=$Nparticules                                                                              \
$Z                                      vD=$_____RhoMinimal vA=$_____RhoMaximal                                                         \
$Z                                      cubique=FAUX                                                                                    \
$Z                                                                                                            > $xTV/DTEMPS.RHO

$Z                  $DELETE             $xTV/DTEMPS.PHI

$Z                  $xci/valeurs_inte$X p=1 d=$Nparticules                                                                              \
$Z                                      vD=$_____PhiMinimal vA=$_____PhiMaximal                                                         \
$Z                                      cubique=FAUX                                                                                    \
$Z                                                                                                            > $xTV/DTEMPS.PHI

$Z                  $DELETE             $xTV/DTEMPS$ROUGE
$Z                  $DELETE             $xTV/DTEMPS$VERTE
$Z                  $DELETE             $xTV/DTEMPS$BLEUE

$Z                  $xrv/AXPB.01$X      ne=0                                                                                            \
$Z                                      fichier=$xTV/DTEMPS$RAYON                                                                       \
$Z                                      homothetie=-$GRIS_2 translation=+$BLANC                                                         \
$Z                                                                                                            > $xTV/DTEMPS$ROUGE
$Z                  $xrv/AXPB.01$X      ne=0                                                                                            \
$Z                                      fichier=$xTV/DTEMPS$RAYON                                                                       \
$Z                                      homothetie=+$BLANC translation=+$NOIR                                                           \
$Z                                                                                                            > $xTV/DTEMPS$VERTE
$Z                  $xrv/AXPB.01$X      ne=0                                                                                            \
$Z                                      fichier=$xTV/DTEMPS$RAYON                                                                       \
$Z                                      homothetie=+$NOIR  translation=+$NOIR                                                           \
$Z                                                                                                            > $xTV/DTEMPS$BLEUE

$Z                  $xrv/particule.10$X                                                                                                 \
$Z                                      np=1                                                                                            \
$Z                                      npoints=$Nparticules                                                                            \
$Z                                      cartesiennes=FAUX                                                                               \
$Z                                      LISTE_RHO=$xTV/DTEMPS.RHO                                                                       \
$Z                                      LISTE_THETA=$pis2                                                                               \
$Z                                      LISTE_PHI=$xTV/DTEMPS.PHI                                                                       \
$Z                                      AXYZ=1 BXYZ=0                                                                                   \
$Z                                      Ar=$_____FacteurRayon                                                                           \
$Z                                      LISTE_RAYON=$xTV/DTEMPS$RAYON                                                                   \
$Z                                      LISTE_ROUGE=$xTV/DTEMPS$ROUGE                                                                   \
$Z                                      LISTE_VERTE=$xTV/DTEMPS$VERTE                                                                   \
$Z                                      LISTE_BLEUE=$xTV/DTEMPS$BLEUE                                                                   \
$Z                                      isoles=VRAI                                                                                     \
$Z                                      ZOOM=1                                                                                          \
$Z                                      Lz=1000                                                                                         \
$Z                                      N_au_carre=FAUX                                                                                 \
$Z                                      R=$xTV/DTEMPS.                                                                                  \
$Z                                                                                                                      $formatI
$Z                                      # ATTENTION : l'option "N_au_carre=FAUX" a ete introduite le 20020628174314. L'image          #
$Z                                      # 'v $xiirf/ETC2.11.3' generee anterieurement a cette date l'a donc ete avec l'option         #
$Z                                      # implicite "N_au_carre=VRAI"...                                                              #

$Z                  set                 FirstPicture=`$xci/nombres$X A="$K_VIDE" premiere=1 derniere=1`

$X        $xci/genere$X  c='  $xci/neutre$X  A=$xTV/DTEMPS.$FirstPicture$%s  R=$_____images$%s $formatI'  RVB=VRAI postfixes_RVB=FAUX
$X                  $xci/genere$X  c='  ro             $_____images$%s'                                   RVB=VRAI postfixes_RVB=FAUX
$X                  $xci/genere$X  c='  $xcg/unite$Z   $_____images$%s'                                   RVB=VRAI postfixes_RVB=FAUX

$Z                  $DELETE             $xTV/DTEMPS$RAYON.1
$Z                  $DELETE             $xTV/DTEMPS$RAYON
$Z                  $DELETE             $xTV/DTEMPS.RHO
$Z                  $DELETE             $xTV/DTEMPS.PHI
$Z                  $DELETE             $xTV/DTEMPS$ROUGE
$Z                  $DELETE             $xTV/DTEMPS$VERTE
$Z                  $DELETE             $xTV/DTEMPS$BLEUE