#######################################################################################################################################
#                                                                                                                                     #
#         M I S E   D ' U N E   S P I R A L E   E N   M O N T A G N E  :                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PIPO.D4.32.$U' :                                                                                         #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240304101003).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        setParam            _____SpiralePart0             $_____Part0
$Z        setParam            _____SpiralePartN             `calcul 26*$_____PartN`
$Z        setParam            _____SpiralePartN_Effectif    `calcul 25*$_____PartN`
$Z        setParam            _____SpiraleRhoN              $_____RhoN
$Z        setParam            _____SpiraleTheta             `calcul 0.1960*$_____ThetaSpirale`
$Z                                      # Augmenter le facteur multiplicatif rapproche du centre...                                   #
$Z        setParam            _____SpiraleNiveau            12
$Z                                      # ATTENTION  : '$_____SpiraleNiveau' definit en fait ulterieurement '$_____SpiraleRayon'      #
$Z                                      # via 'v $xiirv/.PIPO.D4.12.$U fichier1=.xTV.NIVEAUX'...                                      #
$Z        setParam            _____SpiraleRayon             0.002

$Z        $DELETE             $xTV/NOMBRES.S
$Z        $DELETE             $xTV/RHO.S
$Z        $DELETE             $xTV/THETA.S
$Z        $DELETE             $xTV/COORDONNEES.S$COORD_X
$Z        $DELETE             $xTV/COORDONNEES.S$COORD_Y
$Z        $DELETE             $xTV/COORDONNEES.S$COORD_Z
$Z        $DELETE             $xTV/NIVEAUX.S
$Z        $DELETE             $xTV/RAYONS.S

$Z        $xci/valeurs_inte$X                                                                                                           \
$Z                            premiere=$_____SpiralePart0                                                                               \
$Z                            derniere=$_____SpiralePartN                                                                               \
$Z                            cubique=FAUX                                                                                              \
$Z                            vD=$_____SpiralePart0 vA=$_____SpiralePartN                                                               \
$Z                                                                                                  > $xTV/NOMBRES.S

$Z        set                 PointsXY_S=`calcul $_____SpiralePartN-$_____SpiralePart0+1`

$Z        set                 FaCtEuR=`calcul (1/$_____SpiralePartN)*$_____SpiraleRhoN`

$Z        set                 MiN_NOMBRES_S=`cat $xTV/NOMBRES.S | $xrv/extrema.01$X ne=0 fichier== ms=VRAI formater=VRAI signe="$K_VIDE"`
$Z        set                 MaX_NOMBRES_S=`cat $xTV/NOMBRES.S | $xrv/extrema.01$X ne=0 fichier== Ms=VRAI formater=VRAI signe="$K_VIDE"`

$Z        set                 TrAnSlAtIoN=`calcul -($FaCtEuR*$MiN_NOMBRES_S)`

$Z        $xrv/AXPB.01$X                                                                                                                \
$Z                            ne=0                                                                                                      \
$Z                            fichier=$xTV/NOMBRES.S                                                                                    \
$Z                            homothetie=$FaCtEuR translation=$TrAnSlAtIoN                                                        |     \
$Z        $xrv/RACX.01$X                                                                                                                \
$Z                            ne=0                                                                                                      \
$Z                            fichier==                                                                                                 \
$Z                                                                                                  > $xTV/RHO.S

$Z        $xrv/AXPB.01$X                                                                                                                \
$Z                            ne=0                                                                                                      \
$Z                            fichier=$xTV/NOMBRES.S                                                                                    \
$Z                            homothetie=1 translation=-$_____SpiralePart0                                                        |     \
$Z        $xrv/RACX.01$X                                                                                                                \
$Z                            ne=0                                                                                                      \
$Z                            fichier==                                                                                           |     \
$Z        $xrv/AXPB.01$X                                                                                                                \
$Z                            ne=0                                                                                                      \
$Z                            fichier==                                                                                                 \
$Z                            homothetie=$_____SpiraleTheta translation=0                                                               \
$Z                                                                                                  > $xTV/THETA.S

$Z        $xrv/RT_XY.01$X                                                                                                               \
$Z                            ne=$PointsXY_S                                                                                            \
$Z                            LISTE_RHO=$xTV/RHO.S                                                                                      \
$Z                            LISTE_THETA=$xTV/THETA.S                                                                                  \
$Z                            pX=1 pY=0                                                                                           |     \
$Z        $HEA                -$_____SpiralePartN_Effectif                                                                              \
$Z                                                                                                  > $xTV/COORDONNEES.S$COORD_X
$Z        $xrv/RT_XY.01$X                                                                                                               \
$Z                            ne=$PointsXY_S                                                                                            \
$Z                            LISTE_RHO=$xTV/RHO.S                                                                                      \
$Z                            LISTE_THETA=$xTV/THETA.S                                                                                  \
$Z                            pX=0 pY=1                                                                                           |     \
$Z        $HEA                -$_____SpiralePartN_Effectif                                                                              \
$Z                                                                                                  > $xTV/COORDONNEES.S$COORD_Y

$Z        $xci/valeurs_inte$X                                                                                                           \
$Z                            premiere=$_____SpiralePart0                                                                               \
$Z                            derniere=$_____SpiralePartN                                                                               \
$Z                            cubique=FAUX                                                                                              \
$Z                            vD=$_____SpiraleNiveau vA=$_____SpiraleNiveau                                                       |     \
$Z        $HEA                -$_____SpiralePartN_Effectif                                                                              \
$Z                                                                                                  > $xTV/NIVEAUX.S

$Z                  if                  ($_____CouleursDecimalesV == $EXIST) then
$Z                                      # Test introduit le 20240314181450...                                                         #
$Z                  else
$Z                                      $DELETE             $xTV/NIVEAUX.Spir
$Z                                      $CP                 $xTV/NIVEAUX.S $xTV/NIVEAUX.Spir
$Z                                      # Le coloriage via le numero des decimales a ete introduit le 20240314181450...               #
$Z                  endif

$Z        $xrv/AXPB.01$X                                                                                                                \
$Z                            ne=0                                                                                                      \
$Z                            fichier=$xTV/NIVEAUX.S                                                                                    \
$Z                            homothetie=$_____FacteurZ translation=0                                                             |     \
$Z        $HEA                -$_____SpiralePartN_Effectif                                                                              \
$Z                                                                                                  > $xTV/COORDONNEES.S$COORD_Z

$Z        $xci/valeurs_inte$X                                                                                                           \
$Z                            premiere=$_____SpiralePart0                                                                               \
$Z                            derniere=$_____SpiralePartN                                                                               \
$Z                            cubique=FAUX                                                                                              \
$Z                            vD=$_____SpiraleRayon  vA=$_____SpiraleRayon                                                        |     \
$Z        $HEA                -$_____SpiralePartN_Effectif                                                                              \
$Z                                                                                                  > $xTV/RAYONS.S

$Z        set                 PointsXY_S=`calcul $_____SpiralePartN_Effectif-$_____SpiralePart0+1`