#######################################################################################################################################
#                                                                                                                                     #
#         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 ' U N   N O M B R E   R E E L                 #
#         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/.RDNW.a1.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20241005121540).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____RotationX                `GetParam $xrv/particule.10$X ROTATION_OX`

$Z                  setParam            _____RotationY                `GetParam $xrv/particule.10$X ROTATION_OY`

$Z                  setParam            _____RotationZ                `GetParam $xrv/particule.10$X ROTATION_OZ`

$Z                  setParam            _____VRayon                   0.008

$Z                  setParam            _____DistanceMini             0.005

$Z                  setParam            _____Palette                  $xiP/cercle.I5

$Z                  setParam            _____Zoom                     0.6

$Z                  setParam            _____Grossissement            1.5

$Z                  setParam            _____Speculaire               `GetParam $xrv/particule.10$X speculaire`

$Z                  setParam            _____Couronne                 `GetParam $xrv/particule.10$X couronne`

$Z                  setParam            _____Redirection              "$K_VIDE"

$Z                  setParam            _____ParticulePara2           "$K_VIDE"

$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                  unset               ArGuMeNtS="$K_VIDE"