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

$Z        SETParam            _____VisualiserSpirale        $NEXIST
$Z                                      # Parametre introduit le 20161001080858...                                                    #

$Z        SETParam            _____RayonSpirale             0.5
$Z                                      # Parametre introduit le 20161001080858...                                                    #

$Z        SETParam            _____GrisSpirale              $GRIS_4
$Z                                      # Parametre introduit le 20161001080858...                                                    #

$Z        set                 PaRaMP="$K_VIDE"
$Z        set                 PaRaMP="$PaRaMP"" np=1 iterations=$PointsXY"
$Z        set                 PaRaMP="$PaRaMP"" LISTE_X=$xTV/COORDONNEES$COORD_X"
$Z        set                 PaRaMP="$PaRaMP"" LISTE_Y=$xTV/COORDONNEES$COORD_Y"
$Z        set                 PaRaMP="$PaRaMP"" LISTE_Z=$xTV/COORDONNEES$COORD_Z"
$Z        set                 PaRaMP="$PaRaMP"" Lz=1000"
$Z        set                 PaRaMP="$PaRaMP"" minimumT=1.0"
$Z        set                 PaRaMP="$PaRaMP"" maximumT=1.0"
$Z        set                 PaRaMP="$PaRaMP"" ROTATION_OX=0.0"
$Z        set                 PaRaMP="$PaRaMP"" $_____ZoomAuto"
$Z        set                 PaRaMP="$PaRaMP"" coordonnees_dans_0_1=VRAI"
$Z        set                 PaRaMP="$PaRaMP"" $_____AXBXAYBY"
$Z        set                 PaRaMP="$PaRaMP"" $_____AZ"
$Z        set                 PaRaMP="$PaRaMP"" N_au_carre=FAUX"
$Z        set                 PaRaMP="$PaRaMP"" editer_extrema_hors=FAUX"
$Z        set                 PaRaMP="$PaRaMP"" RVB=VRAI"
$Z        set                 PaRaMP="$PaRaMP"" chiffres=0"

$Z        if                  ($_____VisualiserSpirale == $NEXIST) then
$Z                            set                 FoNd="$K_VIDE"
$Z        else
$Z                            $xrv/particule.10$X                                                                                       \
$Z                                                $PaRaMP                                                                               \
$Z                                                Ar=$Rayon                                                                             \
$Z                                                LISTE_RAYON=$_____RayonSpirale                                                        \
$Z                                                LISTE_ROUGE=$_____GrisSpirale                                                         \
$Z                                                LISTE_VERTE=$_____GrisSpirale                                                         \
$Z                                                LISTE_BLEUE=$_____GrisSpirale                                                         \
$Z                                                isoles=FAUX chainer=VRAI                                                              \
$Z                                                R=$xTV/FOND                                                                           \
$Z                                                                                        $formatI

$Z                            set                 FoNd="fond=VRAI F=$xTV/FOND"
$Z                                      # La possible visualisation de la spirale a ete introduite le 20161001080858 suite a la       #
$Z                                      # demande de Jean-Marc Levy-Leblond...                                                        #
$Z        endif

#20161001080858____:$Z        $xrv/particule.10$X                                                                                  \  #
#20161001080858____:$Z                            $PaRaMP                                                                          \  #
#20161001080858____:$Z                            Ar=$Rayon                                                                        \  #
#20161001080858____:$Z                            LISTE_RAYON=$xTV/RAYONS                                                          \  #
#20161001080858____:$Z                            $Couleurs                                                                        \  #
#20161001080858____:$Z                            isoles=VRAI chainer=FAUX                                                         \  #
#20161001080858____:$Z                            R=$xTV/PRIM.3.                                                                   \  #
#20161001080858____:$Z                                                                    $formatI                                    #

$Z        $xrv/particule.10$X                                                                                                           \
$Z                            $PaRaMP                                                                                                   \
$Z                            Ar=$Rayon                                                                                                 \
$Z                            LISTE_RAYON=$xTV/RAYONS                                                                                   \
$Z                            $Couleurs                                                                                                 \
$Z                            isoles=VRAI chainer=FAUX                                                                                  \
$Z                            $FoNd                                                                                                     \
$Z                            R=$_____images                                                                                            \
$Z                                                                    $formatI
$Z                                      # L'option "editer_extrema_hors=FAUX" a ete introduite le 20131031113435...                   #

$Z                            unset               Couleurs

#20161001080858:$X   $xci/genere$X  c='$xci/neutre$X  A=$xTV/PRIM.3.0001$%s R=$_____images$%s $formatI'   RVB=VRAI postfixes_RVB=FAUX #
#20131031114752____:$X   $xci/genere$X       c='ro        $_____images$%s'                               RVB=VRAI postfixes_RVB=FAUX  #

$Z        $DELETE             $xTV/COORDONNEES$COORD_X
$Z        $DELETE             $xTV/COORDONNEES$COORD_Y
$Z        $DELETE             $xTV/COORDONNEES$COORD_Z
$Z        $DELETE             $xTV/NIVEAUX
$Z        $DELETE             $xTV/RAYONS

$Z        if                  ($?_____Palette == $NEXIST) then
$Z                            $DELETE             $xTV/COULEURS$ROUGE
$Z                            $DELETE             $xTV/COULEURS$VERTE
$Z                            $DELETE             $xTV/COULEURS$BLEUE
$Z        else
$Z                            $DELETE             $xTV/PALETTE
$Z        endif

$Z        unset               Part0
$Z        unset               PartN
$Z        unset               PointsXY
$Z        unset               RacPointsXY
$Z        unset               dimXY
$Z        unset               Rapport
$Z        unset               Rayon

$Z        unset               _____AXBXAYBY
$Z        unset               _____AZ
$Z        unset               _____Palette
$Z        unset               _____Part0
$Z        unset               _____PartN
$Z        unset               _____Rayon
$Z        unset               _____Rho0
$Z        unset               _____RhoN
$Z        unset               _____Theta0
$Z        unset               _____ThetaN
$Z        unset               _____ZoomAuto
$Z        unset               _____images