#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D E   D E C I M A L E S                                                                         #
#         C O M M E   U N E   M A R C H E   A L E A T O I R E   E N   C O O R D O N N E E S   P O L A I R E S  :                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.CHAM.51.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20131226105014).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____ExpRho                   1

$Z                  $xrv/XYZ_RPT.01$X   ne=$NPoInTs                                                                                     \
$Z                                      LISTE_X=$FiLePoInTs$COORD_X                                                                     \
$Z                                      LISTE_Y=$FiLePoInTs$COORD_Y                                                                     \
$Z                                      LISTE_Z=$FiLePoInTs$COORD_Z                                                                     \
$Z                                      pRHO=1 pPHI=0 pTHETA=0                                                                    |     \
$Z                  $xrv/PUIX.01$X      ne=$NPoInTs                                                                                     \
$Z                                      fichier==                                                                                       \
$Z                                      exposant=$_____ExpRho                                                                           \
$Z                                                                                                  >  $FiLePoInTs.RHO

$Z                  $xrv/XYZ_RPT.01$X   ne=$NPoInTs                                                                                     \
$Z                                      LISTE_X=$FiLePoInTs$COORD_X                                                                     \
$Z                                      LISTE_Y=$FiLePoInTs$COORD_Y                                                                     \
$Z                                      LISTE_Z=$FiLePoInTs$COORD_Z                                                                     \
$Z                                      pRHO=0 pPHI=1 pTHETA=0                                                                          \
$Z                                                                                                  >  $FiLePoInTs.PHI

$Z                  $xrv/XYZ_RPT.01$X   ne=$NPoInTs                                                                                     \
$Z                                      LISTE_X=$FiLePoInTs$COORD_X                                                                     \
$Z                                      LISTE_Y=$FiLePoInTs$COORD_Y                                                                     \
$Z                                      LISTE_Z=$FiLePoInTs$COORD_Z                                                                     \
$Z                                      pRHO=0 pPHI=0 pTHETA=1                                                                          \
$Z                                                                                                  >  $FiLePoInTs.THETA

$Z                  $DELETE             $FiLePoInTs$COORD_X
$Z                  $DELETE             $FiLePoInTs$COORD_Y
$Z                  $DELETE             $FiLePoInTs$COORD_Z

$Z                  $xrv/RPT_XYZ.01$X   ne=$NPoInTs                                                                                     \
$Z                                      LISTE_RHO=$FiLePoInTs.RHO                                                                       \
$Z                                      LISTE_PHI=$FiLePoInTs.PHI                                                                       \
$Z                                      LISTE_THETA=$FiLePoInTs.THETA                                                                   \
$Z                                      pX=1 pY=0 pZ=0                                                                                  \
$Z                                                                                                  >  $FiLePoInTs$COORD_X

$Z                  $xrv/RPT_XYZ.01$X   ne=$NPoInTs                                                                                     \
$Z                                      LISTE_RHO=$FiLePoInTs.RHO                                                                       \
$Z                                      LISTE_PHI=$FiLePoInTs.PHI                                                                       \
$Z                                      LISTE_THETA=$FiLePoInTs.THETA                                                                   \
$Z                                      pX=0 pY=1 pZ=0                                                                                  \
$Z                                                                                                  >  $FiLePoInTs$COORD_Y

$Z                  $xrv/RPT_XYZ.01$X   ne=$NPoInTs                                                                                     \
$Z                                      LISTE_RHO=$FiLePoInTs.RHO                                                                       \
$Z                                      LISTE_PHI=$FiLePoInTs.PHI                                                                       \
$Z                                      LISTE_THETA=$FiLePoInTs.THETA                                                                   \
$Z                                      pX=0 pY=0 pZ=1                                                                                  \
$Z                                                                                                  >  $FiLePoInTs$COORD_Z