#######################################################################################################################################
#                                                                                                                                     #
#         V I S U A L I S A T I O N   D E S   P R E M I E R E S   D E C I M A L E S   D E   P I                                       #
#         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/.PIPO.11.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20131113104154).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        setParam            _____Base                     10
$Z                                      # Parametre introduit le 20131113123810...                                                    #

$Z        SETParam            _____CumulPhi                 $NEXIST
$Z                                      # Parametre introduit le 20131113160536...                                                    #

$Z        setParam            _____Z0                       0
$Z                                      # Parametre introduit le 20131115130555 pour pouvoir faire, par exemple, des rotations...     #

$Z        setParam            _____ZN                       0
$Z                                      # Parametre introduit le 20131115130555 pour pouvoir faire, par exemple, des rotations...     #

$Z        setParam            _____Rho                      0.05

$Z        setParam            _____VRayon                   0.008

$Z        setParam            _____DistanceMini             0.005

$Z        setParam            _____Palette                  $xiP/cercle.I5

$Z        setParam            _____Zoom                     0.5

$Z        setParam            _____ParticulePara2           "$K_VIDE"
$Z                                      # Parametre introduit le 20131115130555 pour pouvoir faire, par exemple, des rotations...     #

$Z                  if                  ($_____CumulPhi == $NEXIST) then
$Z                                      set                 CuMuLoUPas=$xrv/neutre$X
$Z                  else
$Z                                      set                 CuMuLoUPas=$xrv/accumule.01$X
$Z                                      # Cas ou l'on va cumuler les 'Phi's successifs...                                             #
$Z                  endif

$Z                  FilSTmpB  FiLePoInTs
$Z                  FilSTmpB  FiLePhI
$Z                  FilSTmpB  FiLeSeD $sed