#######################################################################################################################################
#                                                                                                                                     #
#         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.33.$U' :                                                                                         #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20240304102803).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

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

$Z        $CA                 $xTV/COORDONNEES$COORD_X $xTV/COORDONNEES.S$COORD_X                                                       \
$Z                                                                                                  > $xTV/COORDONNEES.T$COORD_X

$Z        $CA                 $xTV/COORDONNEES$COORD_Y $xTV/COORDONNEES.S$COORD_Y                                                       \
$Z                                                                                                  > $xTV/COORDONNEES.T$COORD_Y

$Z        $CA                 $xTV/COORDONNEES$COORD_Z $xTV/COORDONNEES.S$COORD_Z                                                       \
$Z                                                                                                  > $xTV/COORDONNEES.T$COORD_Z

$Z        $CA                 $xTV/NIVEAUX $xTV/NIVEAUX.S                                                                               \
$Z                                                                                                  > $xTV/NIVEAUX.T

$Z        $CA                 $xTV/RAYONS $xTV/RAYONS.S                                                                                 \
$Z                                                                                                  > $xTV/RAYONS.T

$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        $MV                 $xTV/COORDONNEES.T$COORD_X $xTV/COORDONNEES$COORD_X
$Z        $MV                 $xTV/COORDONNEES.T$COORD_Y $xTV/COORDONNEES$COORD_Y
$Z        $MV                 $xTV/COORDONNEES.T$COORD_Z $xTV/COORDONNEES$COORD_Z
$Z        $MV                 $xTV/NIVEAUX.T $xTV/NIVEAUX
$Z        $MV                 $xTV/RAYONS.T $xTV/RAYONS

$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        @                   PointsXY = $PointsXY + $PointsXY_S