#######################################################################################################################################
#                                                                                                                                     #
#         F O N C T I O N   D E   L I O U V I L L E   V I S U A L I S E E                                                             #
#         T E L   U N   M O U V E M E N T   B R O W N I E N  :                                                                        #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.PRIM.81.9.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20100103170158).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  @                   _____NPoints = $_____NPoints + 1
$Z                                      # Introduit le 20100107162251 a cause de 'v $xiirv/.PRIM.81.5.$U cumul_initial=VRAI'.         #

$Z                  if                  ($_____Couleur == $NEXIST) then
$Z                                      set                 RoUgE=$GRIS_4
$Z                                      set                 VeRtE=$GRIS_4
$Z                                      set                 BlEuE=$GRIS_4
$Z                                      # Cas d'une visualisation en Noir et Blanc.                                                   #
$Z                  else
$Z                                      set                 Part0=1
$Z                                      set                 PartN=$_____NPoints
$Z                                      set                 Npart=$_____NPoints

$Z                                      _____include(_____xivPdf_09_2/.REFL.c.62._____U)

$Z                                      set                 RoUgE=$xTV/COULEURS.1$ROUGE
$Z                                      set                 VeRtE=$xTV/COULEURS.1$VERTE
$Z                                      set                 BlEuE=$xTV/COULEURS.1$BLEUE
$Z                                      # Cas d'une visualisation en couleurs...                                                      #

$Z                                      $xrv/maj_un.01$X                                                                                \
$Z                                                          ne=0                                                                        \
$Z                                                          fichier=$xTV/COULEURS$ROUGE                                                 \
$Z                                                          modifier=0                                                                  \
$Z                                                          valeur=$BLANC                                                               \
$Z                                                                                                            >   $RoUgE
$Z                                      $xrv/maj_un.01$X                                                                                \
$Z                                                          ne=0                                                                        \
$Z                                                          fichier=$xTV/COULEURS$VERTE                                                 \
$Z                                                          modifier=0                                                                  \
$Z                                                          valeur=$BLANC                                                               \
$Z                                                                                                            >   $VeRtE
$Z                                      $xrv/maj_un.01$X                                                                                \
$Z                                                          ne=0                                                                        \
$Z                                                          fichier=$xTV/COULEURS$BLEUE                                                 \
$Z                                                          modifier=0                                                                  \
$Z                                                          valeur=$BLANC                                                               \
$Z                                                                                                            >   $BlEuE
$Z                                      # Le marquage du point de depart a ete introduit le 20100107172117...                         #
$Z                  endif

$Z                  set                 RaYoN_DePaRt=`calcul 1.5*$_____Rayon`
$Z                                      # Introduit le 20100108141126 suite a l'anomalie 'v $Falias_GetXTmp 20091105172200'...        #

$Z                  $xrv/neutre$X       ne=$_____NPoints                                                                                \
$Z                                      fichier=$_____Rayon                                                                       |     \
$Z                  $xrv/maj_un.01$X    ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                      modifier=0                                                                                      \
$Z                                      valeur=$RaYoN_DePaRt                                                                            \
$Z                                                                                        > $xTV/RAYON
$Z                                      # Ce fichier a ete introduit le 20100107172656 afin de marquer le point de depart...          #