#######################################################################################################################################
#                                                                                                                                     #
#         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   T R I D I M E N S I O N N E L L E  :                                  #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PIPO.21.4.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20131207184857).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____RotationX                `GetParam $xrv/particule.10$X ROTATION_OX`
$Z                                      # Parametre introduit le 20131211105219...                                                    #

$Z                  setParam            _____RotationY                `GetParam $xrv/particule.10$X ROTATION_OY`
$Z                                      # Parametre introduit le 20131211105219...                                                    #

$Z                  setParam            _____RotationZ                `GetParam $xrv/particule.10$X ROTATION_OZ`
$Z                                      # Parametre introduit le 20131211105219...                                                    #

$Z                  setParam            _____Grossissement            1.5
$Z                                      # Parametre introduit le 20131207184857...                                                    #

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

$Z                  setParam            _____Couronne                 `GetParam $xrv/particule.10$X couronne`
$Z                                      # Parametre introduit le 20131225112707...                                                    #

$Z                  setParam            _____Redirection              "$K_VIDE"
$Z                                      # Parametre introduit le 20131211095928...                                                    #

$Z                  set                 ArGuMeNtS="$K_VIDE"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" AXYZ=1 BXYZ=0"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" Lz=1000"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" speculaire=$_____Speculaire"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" ZOOM=$_____Zoom"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" ROTATION_OX=$_____RotationX"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" ROTATION_OY=$_____RotationY"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" ROTATION_OZ=$_____RotationZ"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" N_au_carre=FAUX"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" editer_extrema_hors=FAUX"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" editer_mauvais_encadrement_niveaux_interpoles=FAUX"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" couronne=$_____Couronne"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" $_____ParticulePara2"
$Z                  set                 ArGuMeNtS="$ArGuMeNtS"" chiffres=0"

$Z                  eval      $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                                                isoles=FAUX chainer=VRAI                                                              \
$Z                                                ajuster_points=VRAI equidistance=VRAI                                                 \
$Z                                                distance_minimale=$_____DistanceMini                                                  \
$Z                                                grossissement=$_____Grossissement                                                     \
$Z                                                Vrayon=$_____VRayon                                                                   \
$Z                                                LISTE_NIVEAU=$FiLePoInTs.Niveau                                                       \
$Z                                                p=$_____Palette                                                                       \
$Z                                                $ArGuMeNtS                                                                            \
$Z                                                R=$_____ImageR                                                                        \
$Z                                                                                        $formatI                                      \
$Z                                                                                                            $_____Redirection
$Z                                      # Le 'eval' a ete introduit le 20131211095928 a cause de l'eventuelle '$_____Redirection'...  #

$Z                  unset               ArGuMeNtS="$K_VIDE"