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

$Z        SETParam            _____VisualiserSpirale        $NEXIST

$Z        SETParam            _____RayonSpirale             0.5

$Z        SETParam            _____GrisSpirale              $GRIS_4

$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                            if                  ($?FoNd == $NEXIST) then
$Z                                                set                 FoNd="$K_VIDE"
$Z                            else
$Z                            endif
$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        endif

$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