#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D E S   P R E M I E R E S   D E C I M A L E S   D E   P I                                       #
#         C O M M E   U N E   M A R C H E   A L E A T O I R E   E N   C O O R D O N N E E S   P O L A I R E S  :                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PROM.21.4.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20131115174028).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____CentrerX                 `GetParam $xrv/particule.10$X centrer_coordonnee_X`
$Z                                      # Parametre introduit le 20131121080511...                                                    #

$Z                  setParam            _____CentrerY                 `GetParam $xrv/particule.10$X centrer_coordonnee_Y`
$Z                                      # Parametre introduit le 20131121080511...                                                    #

$Z                  setParam            _____CentrerZ                 `GetParam $xrv/particule.10$X centrer_coordonnee_Z`
$Z                                      # Parametre introduit le 20131121080511...                                                    #

$Z                  setParam            _____NiveauFond               $GRIS_0
$Z                                      # Parametre introduit le 20131116090538...                                                    #

$Z                  setParam            _____Speculaire               `GetParam $xrv/particule.10$X speculaire`
$Z                                      # Parametre introduit le 20131120102201...                                                    #

$Z                  setParam            _____Couronne                 1
$Z                                      # Parametre introduit le 20131120111217...                                                    #

$Z                  FilSTmpB  IFoNd

$Z        execRVB   $xci/init$X         niveau=$_____NiveauFond                                                                         \
$Z                                      R=$IFoNd%s                                                                                      \
$Z                                                                              $formatI

$Z                  $xrv/particule.10$X npoints=$NPoInTs                                                                                \
$Z                                      LISTE_X=$FiLePoInTs$COORD_X                                                                     \
$Z                                      LISTE_Y=$FiLePoInTs$COORD_Y                                                                     \
$Z                                      LISTE_Z=$FiLePoInTs$COORD_Z                                                                     \
$Z                                      AXYZ=1 BXYZ=0                                                                                   \
$Z                                      centrer_coordonnees=VRAI                                                                        \
$Z                                      centrer_coordonnee_X=$_____CentrerX                                                             \
$Z                                      centrer_coordonnee_Y=$_____CentrerY                                                             \
$Z                                      centrer_coordonnee_Z=$_____CentrerZ                                                             \
$Z                                      isoles=VRAI                                                                                     \
$Z                                      Vrayon=`calcul 1.0*$_____VRayon`                                                                \
$Z                                      LISTE_NIVEAU=$FiLePoInTs.Niveau                                                                 \
$Z                                      p=$_____Palette                                                                                 \
$Z                                      Lz=1000                                                                                         \
$Z                                      speculaire=$_____Speculaire                                                                     \
$Z                                      ZOOM=$_____Zoom                                                                                 \
$Z                                      N_au_carre=FAUX                                                                                 \
$Z                                      editer_extrema_hors=FAUX                                                                        \
$Z                                      editer_mauvais_encadrement_niveaux_interpoles=FAUX                                              \
$Z                                      fond=VRAI F=$IFoNd                                                                              \
$Z                                      couronne=$_____Couronne                                                                         \
$Z                                      $_____ParticulePara2                                                                            \
$Z                                      chiffres=0                                                                                      \
$Z                                      R=$_____ImageR                                                                                  \
$Z                                                                              $formatI

$Z                  FilSTmpE  IFoNd