#######################################################################################################################################
#                                                                                                                                     #
#         M O D U L E  :                                                                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PIPO.D4.12.$U' :                                                                                         #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240228143507).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        setParam            _____FacteurZ                 `calcul 1/20`

$Z        setParam            _____DiviseurR                50

$Z        setParam            _____ExposantR                1.0

$Z        $xrv/AXPB.01$X                                                                                                                \
$Z                            ne=$PointsXY                                                                                              \
$Z                            fichier=$xTV/NIVEAUX                                                                                      \
$Z                            homothetie=$_____FacteurZ translation=0                                                                   \
$Z                                                                              > $xTV/COORDONNEES$COORD_Z
$Z                                      # Le 20131031163532, je crois comprendre l'interet de cette troisieme coordonnee : elle       #
$Z                                      # permet de ne pas cacher les petites spheres (les nombres premiers en particulier) par       #
$Z                                      # les grandes spheres...                                                                      #

$Z        $xrv/DIVZ.11$X                                                                                                                \
$Z                            ne=$PointsXY                                                                                              \
$Z                            fichier1=$xTV/NIVEAUX                                                                                     \
$Z                            fichier2=$_____DiviseurR                                                                            |     \
$Z        $xrv/PUIX.01$X                                                                                                                \
$Z                            ne=0                                                                                                      \
$Z                            fichier==                                                                                                 \
$Z                            exposant=$_____ExposantR                                                                                  \
$Z                                                                              > $xTV/RAYONS

$Z        set                 Couleurs="$K_VIDE"
$Z        set                 Couleurs="$Couleurs palette=$_____Palette"
$Z        set                 Couleurs="$Couleurs LISTE_NIVEAU=$xTV/NIVEAUX"