#######################################################################################################################################
#                                                                                                                                     #
#         M O D U L E  :                                                                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.IXEO.7.11.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        Pal

$Z        set                 R_2000=$_____R_2000
$Z        set                 V_2000=$_____V_2000
$Z        set                 B_2000=$_____B_2000
$Z        set                 Rayon_2000=$_____Rayon_2000

$Z        setParam            _____Z_2000                   +0.50

$Z        set                 Z_2000=$_____Z_2000

$Z        setParam            _____Cubique_2000             "FAUX"

$Z        set                 Cubique_2000=$_____Cubique_2000

$Z        setParam            _____dn                       -1.8

$Z        set                 dn=$_____dn

$Z        setParam            _____d0                       0

$Z        set                 d0=$_____d0

$Z        setParam            _____dp                       +1.8

$Z        set                 dp=$_____dp

$Z        setParam            _____NConnexions              32

$Z        set                 NConnexions=$_____NConnexions

$Z        unsetenv            R_Sphere_D
$Z        unsetenv            V_Sphere_D
$Z        unsetenv            B_Sphere_D
$Z        unsetenv            R_Sphere_A
$Z        unsetenv            V_Sphere_A
$Z        unsetenv            B_Sphere_A
$Z        unsetenv            RayonB_Sphere
$Z        unsetenv            RayonS_Sphere

$Z        SETENV              R_Sphere_D          $_____R_Sphere_D
$Z        SETENV              V_Sphere_D          $_____V_Sphere_D
$Z        SETENV              B_Sphere_D          $_____B_Sphere_D
$Z        SETENV              R_Sphere_A          $_____R_Sphere_A
$Z        SETENV              V_Sphere_A          $_____V_Sphere_A
$Z        SETENV              B_Sphere_A          $_____B_Sphere_A

$Z        SETENV              RayonB_Sphere       $_____RayonB_Sphere
$Z        SETENV              RayonS_Sphere       $_____RayonS_Sphere

$X        echo                "neutre"
$X                                      # commande destinee uniquement a mettre a jour l'environnement 'env'...                       #

$Z        $DELETE             $xTV/l2
$Z        $DELETE             $xTV/l0.1
$Z        $DELETE             $xTV/l0.2
$Z        $DELETE             $xTV/l0.3
$Z        $DELETE             $xTV/lX2000
$Z        $DELETE             $xTV/COORDONNEES$COORD_X
$Z        $DELETE             $xTV/COORDONNEES$COORD_Y
$Z        $DELETE             $xTV/COORDONNEES$COORD_Z
$Z        $DELETE             $xTV/DERIVEES$COORD_X
$Z        $DELETE             $xTV/DERIVEES$COORD_Y
$Z        $DELETE             $xTV/DERIVEES$COORD_Z
$Z        $DELETE             $xTV/RAYON

$X        $xci/genere$X       RVB=VRAI postfixes_RVB=FAUX                                                                               \
$X                            C='$DELETE             $xTV/COULEUR$%s'