#######################################################################################################################################
#                                                                                                                                     #
#         M O D U L E  :                                                                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PRIM.4.12.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        setParam            _____FacteurZ                 1
$Z                                      # Parametre introduit le 20131031132334...                                                    #

$Z        setParam            _____ExposantR                0.5
$Z                                      # Parametre introduit le 20131031112913...                                                    #

#20131031132334____:$Z        $CA                 $xTV/NIVEAUX                                                                     \  #
#20131031132334____:$Z                                                                                   > $xTV/COORDONNEES$COORD_Z   #

$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/PUIX.01$X                                                                                                                \
$Z                            ne=$PointsXY                                                                                              \
$Z                            fichier=$xTV/NIVEAUX                                                                                      \
$Z                            exposant=$_____ExposantR                                                                                  \
$Z                                                                              > $xTV/RAYONS

$Z        set                 Couleurs="$K_VIDE"

$Z        set                 Premiers=2
$Z        @                   NonPremiers = $Premiers + 1
$Z        @                   AvantPremiers = $Premiers - 1

$Z        if                  ($?_____Palette == $NEXIST) then
$Z                            $xrv/TRON.01$X                                                                                            \
$Z                                                ne=$PointsXY                                                                          \
$Z                                                fichier=$xTV/NIVEAUX                                                                  \
$Z                                                origine=$Premiers extremite=$NonPremiers                                        |     \
$Z                            $SE                                                                                                       \
$Z                                                -e "s/^+$Premiers"'$'"/$GRIS_8/"                                                      \
$Z                                                -e "s/^+$NonPremiers"'$'"/$GRIS_6/"                                                   \
$Z                                                                                                  > $xTV/COULEURS$ROUGE
$Z                            $xrv/TRON.01$X                                                                                            \
$Z                                                ne=$PointsXY                                                                          \
$Z                                                fichier=$xTV/NIVEAUX                                                                  \
$Z                                                origine=$Premiers extremite=$NonPremiers                                        |     \
$Z                            $SE                                                                                                       \
$Z                                                -e "s/^+$Premiers"'$'"/$GRIS_8/"                                                      \
$Z                                                -e "s/^+$NonPremiers"'$'"/$GRIS_5/"                                                   \
$Z                                                                                                  > $xTV/COULEURS$VERTE
$Z                            $xrv/TRON.01$X                                                                                            \
$Z                                                ne=$PointsXY                                                                          \
$Z                                                fichier=$xTV/NIVEAUX                                                                  \
$Z                                                origine=$Premiers extremite=$NonPremiers                                        |     \
$Z                            $SE                                                                                                       \
$Z                                                -e "s/^+$Premiers"'$'"/$GRIS_8/"                                                      \
$Z                                                -e "s/^+$NonPremiers"'$'"/$GRIS_0/"                                                   \
$Z                                                                                                  > $xTV/COULEURS$BLEUE

$Z                            set                 Couleurs="$Couleurs LISTE_ROUGE=$xTV/COULEURS$ROUGE"
$Z                            set                 Couleurs="$Couleurs LISTE_VERTE=$xTV/COULEURS$VERTE"
$Z                            set                 Couleurs="$Couleurs LISTE_BLEUE=$xTV/COULEURS$BLEUE"
$Z        else
$Z                            setParam            _____FacteurP                 1
$Z                                      # Parametre introduit le 20131101092624...                                                    #

$Z                            if                  ($_____FacteurP != 0) then
$Z                                      # Test introduit le 20220926160009 et tel qu'il garantit la compatibilite anterieure...       #
$Z                                                $DELETE             $xTV/PALETTE

$Z                                                $xciP/SCALE$X       pA=$_____Palette                                                  \
$Z                                                                    multiplieur=$_____FacteurP                                        \
$Z                                                                    translation=0                                                     \
$Z                                                                    pR=$xTV/PALETTE
$Z                                      # Possibilite introduite le 20131101092624 afin de permettre d'attenuer tous les niveaux      #
$Z                                      # et ainsi mettre en valeur (ci-apres) les nombres premiers...                                #

$Z                                                $xciP/S_NIVEAU$X    pA=$xTV/PALETTE                                                   \
$Z                                                                    niveau=$AvantPremiers                                             \
$Z                                                                    nR=$BLANC                                                         \
$Z                                                                    nV=$BLANC                                                         \
$Z                                                                    nB=$BLANC                                                         \
$Z                                                                    pR=$xTV/PALETTE
$Z                                                $xciP/S_NIVEAU$X    pA=$xTV/PALETTE                                                   \
$Z                                                                    niveau=$Premiers                                                  \
$Z                                                                    nR=$BLANC                                                         \
$Z                                                                    nV=$BLANC                                                         \
$Z                                                                    nB=$BLANC                                                         \
$Z                                                                    pR=$xTV/PALETTE

$Z                                                if                  ($?_____RenormaliserN == $EXIST) then
$Z                                      # Possibilite introduite le 20131101092624...                                                 #
$Z                                                                    $DELETE             $xTV/NIVEAUX_RENORMALISES

$Z                                                                    $xrv/normalise.01$X                                               \
$Z                                                                                        ne=$PointsXY                                  \
$Z                                                                                        fichier=$xTV/NIVEAUX                          \
$Z                                                                                        minimum=+1                                    \
$Z                                                                                        maximum=$BLANC                                \
$Z                                                                                        conserver_valeur=VRAI valeur_a_conserver=+2   \
$Z                                                                                        formater=VRAI entiers=VRAI                    \
$Z                                                                                                  > $xTV/NIVEAUX_RENORMALISES
$Z                                      # Il est imperatif de conserver les valeurs '+1' (cela est fait grace a "minimum=+1") et      #
$Z                                      # '+2' (cela est fait grace a "conserver_valeur=VRAI valeur_a_conserver=+2")...               #

$Z                                                                    $DELETE             $xTV/NIVEAUX
$Z                                                                    $MV                 $xTV/NIVEAUX_RENORMALISES $xTV/NIVEAUX
$Z                                                else
$Z                                                endif

$Z                                                set                 Couleurs="$Couleurs palette=$xTV/PALETTE"
$Z                            else
$Z                                                set                 Couleurs="$Couleurs palette=$_____Palette"
$Z                                      # Dans le cas ou '$_____FacteurP' est nul, la palette '$_____Palette' est utilisee en l'etat. #
$Z                            endif

$Z                            set                 Couleurs="$Couleurs LISTE_NIVEAU=$xTV/NIVEAUX"
$Z        endif

$Z        unset               AvantPremiers
$Z        unset               Premiers
$Z        unset               NonPremiers