#######################################################################################################################################
#                                                                                                                                     #
#         D I S P O S I T I O N   " H A R M O N I E U S E "   D E   P O I N T S   S U R   U N E   S P H E R E                         #
#         A V E C   V I S U A L I S A T I O N   D E   L A   S P H E R E                                                               #
#         P A R   U N E   M E T H O D E   D E   R E C U I T   S I M U L E                                                             #
#         I N I T I A L I S E   P A R   L A   S P I A L E   D E   F I B O N A C C I  :                                                #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirs/.PSPH.95.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20131029091758).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  $DELETE   $xTV/PHI
$Z                  $DELETE   $xTV/THETA

$Z                  FilSTmpB            FFiBoNaCcI

$Z                  $xci/valeurs_SpiraleFibonacci$X                                                                                     \
$Z                                      p=1 d=$_____NPoints                                                                             \
$Z                                      spheriques=VRAI                                                                                 \
$Z                                      compatible_rho_phi_theta=VRAI                                                                   \
$Z                                                                                                                      >> $FFiBoNaCcI

$Z                  $CA                 $FFiBoNaCcI                                                                               |     \
$Z                  $SE                 -e 's/^.*phi=\([^ ][^ ]*\) .*$/\1/'                                                             \
$Z                                                                                                                      >  $xTV/PHI
$Z                  $CA                 $FFiBoNaCcI                                                                               |     \
$Z                  $SE                 -e 's/^.*theta=\([^ ][^ ]*\) .*$/\1/'                                                           \
$Z                                                                                                                      >  $xTV/THETA

$Z                  set       _____Arguments="LISTE_PHI=$xTV/PHI LISTE_THETA=$xTV/THETA"

$Z                  FilSTmpE            FFiBoNaCcI