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

$Z        SETParam            _____ThetaSpirale             $dpi
$Z                                      # Parametre introduit le 20240225175304...                                                    #

$Z        $DELETE             $xTV/NOMBRES
$Z        $DELETE             $xTV/RHO
$Z        $DELETE             $xTV/THETA
$Z
$Z        $xci/valeurs_inte$X                                                                                                           \
$Z                            premiere=$Part0                                                                                           \
$Z                            derniere=$PartN                                                                                           \
$Z                            cubique=FAUX                                                                                              \
$Z                            vD=$Part0 vA=$PartN                                                                                       \
$Z                                                                                                  > $xTV/NOMBRES

$Z        set                 FaCtEuR=`calcul (1/$PartN)*$_____RhoN`

#20240226094406____:$Z        $xrv/AXPB.01$X                                                                                       \  #
#20240226094406____:$Z                            ne=0                                                                             \  #
#20240226094406____:$Z                            fichier=$xTV/NOMBRES                                                             \  #
#20240226094406____:$Z                            homothetie=$FaCtEuR translation=0                                          |     \  #
#20240226094406____:$Z        $xrv/RACX.01$X                                                                                       \  #
#20240226094406____:$Z                            ne=0                                                                             \  #
#20240226094406____:$Z                            fichier==                                                                        \  #
#20240226094406____:$Z                                                                                                  > $xTV/RHO    #

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

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

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

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

$Z        $xrv/RT_XY.01$X                                                                                                               \
$Z                            ne=$PointsXY                                                                                              \
$Z                            LISTE_RHO=$xTV/RHO                                                                                        \
$Z                            LISTE_THETA=$xTV/THETA                                                                                    \
$Z                            pX=1 pY=0                                                                                                 \
$Z                                                                                                  > $xTV/COORDONNEES$COORD_X
$Z        $xrv/RT_XY.01$X                                                                                                               \
$Z                            ne=$PointsXY                                                                                              \
$Z                            LISTE_RHO=$xTV/RHO                                                                                        \
$Z                            LISTE_THETA=$xTV/THETA                                                                                    \
$Z                            pX=0 pY=1                                                                                                 \
$Z                                                                                                  > $xTV/COORDONNEES$COORD_Y
$Z
$Z        $DELETE             $xTV/RHO
$Z        $DELETE             $xTV/THETA
$Z        $DELETE             $xTV/NOMBRES
$Z