#######################################################################################################################################
#                                                                                                                                     #
#         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.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20100102115724).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  setParam            _____NPoints                  50000

$Z                  SETParam            _____Editer                   $EXIST
$Z                                      # Introduit le 20100103102745...                                                              #

$Z                  SETParam            _____Couleur                  $NEXIST

$Z                  setParam            _____Rayon                    0.004

$Z                  setParam            _____GRayon                   `GetParam $xrv/particule.10$X grossissement`
$Z                                      # Introduit le 20100103103901...                                                              #

$Z                  setParam            _____Zoom                     1.10

$Z                  $DELETE             $xTV/LIOUVILLE                                    >& $nul
$Z                  $DELETE             $xTV/POINTS.1.*                                   >& $nul
$Z                  $DELETE             $xTV/POINTS.2.*                                   >& $nul
$Z                  $DELETE             $xTV/POINTS.3.*                                   >& $nul

$Z                  set                 PremierNombre=2