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

$Z                  SETParam            _____Npremiere                1

$Z                  SETParam            _____Nderniere                64

$Z                  @                   Nimages = $_____Nderniere - $_____Npremiere
$Z                  @                   Nimages = $Nimages + 1

$Z                  setParam            _____NPoints                  50000

$Z                  setParam            _____BorneAbsolue             0.01

$Z                  setParam            _____Graine_X                 1111

$Z                  setParam            _____Graine_Y                 3333

$Z                  setParam            _____Graine_Z                 5555

$Z                  SETParam            _____Couleur                  $NEXIST
$Z                                      # Ce parametre a ete introduit le 20041013090750...                                           #

$Z                  setParam            _____Rayon                    0.004

$Z                  setParam            _____Zoom                     1.0

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

$Z                  set                 PremierPoint=1
$Z                  set                 PointOrigine=0

$Z                  $xci/valeurs_alea$X                                                                                                 \
$Z                                      premiere=$PremierPoint                                                                          \
$Z                                      derniere=$_____NPoints                                                                          \
$Z                                      inf=-$_____BorneAbsolue sup=+$_____BorneAbsolue                                                 \
$Z                                      graine=$_____Graine_X                                                                           \
$Z                                                                                        >   $xTV/POINTS.1$COORD_X

$Z                  $xci/valeurs_alea$X                                                                                                 \
$Z                                      premiere=$PremierPoint                                                                          \
$Z                                      derniere=$_____NPoints                                                                          \
$Z                                      inf=-$_____BorneAbsolue sup=+$_____BorneAbsolue                                                 \
$Z                                      graine=$_____Graine_Y                                                                           \
$Z                                                                                        >   $xTV/POINTS.1$COORD_Y

$Z                  $xci/valeurs_alea$X                                                                                                 \
$Z                                      premiere=$PremierPoint                                                                          \
$Z                                      derniere=$_____NPoints                                                                          \
$Z                                      inf=-$_____BorneAbsolue sup=+$_____BorneAbsolue                                                 \
$Z                                      graine=$_____Graine_Z                                                                           \
$Z                                                                                        >   $xTV/POINTS.1$COORD_Z

$Z                  $xrv/accumule.01$X                                                                                                  \
$Z                                      ne=0                                                                                            \
$Z                                      fichier=$xTV/POINTS.1$COORD_X                                                                   \
$Z                                      translater=VRAI                                                                                 \
$Z                                                                                        >   $xTV/POINTS.2$COORD_X

$Z                  $xrv/accumule.01$X                                                                                                  \
$Z                                      ne=0                                                                                            \
$Z                                      fichier=$xTV/POINTS.1$COORD_Y                                                                   \
$Z                                      translater=VRAI                                                                                 \
$Z                                                                                        >   $xTV/POINTS.2$COORD_Y

$Z                  $xrv/accumule.01$X                                                                                                  \
$Z                                      ne=0                                                                                            \
$Z                                      fichier=$xTV/POINTS.1$COORD_Z                                                                   \
$Z                                      translater=VRAI                                                                                 \
$Z                                                                                        >   $xTV/POINTS.2$COORD_Z

$Z                  $DELETE             $xTV/ROTATION$COORD_X
$Z                  $xci/valeurs_inte$X p=$_____Npremiere d=$_____Nderniere vD=0 vA=$dpi cubique=VRAI                                   \
$Z                                                                               > $xTV/ROTATION$COORD_X

$Z                  if                  ($_____Couleur == $NEXIST) then
$Z                                      set                 RoUgE=$GRIS_8
$Z                                      set                 VeRtE=$GRIS_8
$Z                                      set                 BlEuE=$GRIS_8
$Z                                      # Cas d'une visualisation en Noir et Blanc.                                                   #
$Z                  else
$Z                                      set                 Part0=$PremierPoint
$Z                                      set                 PartN=$_____NPoints
$Z                                      _____include(_____xivPdf_09_2/.REFL.c.62._____U)
$Z                                      set                 RoUgE=$xTV/COULEURS$ROUGE
$Z                                      set                 VeRtE=$xTV/COULEURS$VERTE
$Z                                      set                 BlEuE=$xTV/COULEURS$BLEUE
$Z                                      # Cas d'une visualisation en couleurs...                                                      #
$Z                  endif

$Z                  set                 _____images=$xTV/BROWN

$Z                  $xrv/particule.10$X                                                                                                 \
$Z                                      np=$Nimages                                                                                     \
$Z                                      npoints=$_____NPoints                                                                           \
$Z                                      AXYZ=1 BXYZ=0                                                                                   \
$Z                                      LISTE_X=$xTV/POINTS.2$COORD_X                                                                   \
$Z                                      LISTE_Y=$xTV/POINTS.2$COORD_Y                                                                   \
$Z                                      LISTE_Z=$xTV/POINTS.2$COORD_Z                                                                   \
$Z                                      LISTE_ROUGE=$RoUgE                                                                              \
$Z                                      LISTE_VERTE=$VeRtE                                                                              \
$Z                                      LISTE_BLEUE=$BlEuE                                                                              \
$Z                                      isoles=FAUX                                                                                     \
$Z                                      chainer=VRAI Pajuster=VRAI Rpoints=1                                                            \
$Z                                      Vrayon=$_____Rayon                                                                              \
$Z                                      Lz=1000                                                                                         \
$Z                                      ZOOM=$_____Zoom                                                                                 \
$Z                                      ROTATION_OX=$xTV/ROTATION$COORD_X                                                               \
$Z                                      ROTATION_OY=0                                                                                   \
$Z                                      ROTATION_OZ=0                                                                                   \
$Z                                      N_au_carre=FAUX                                                                                 \
$Z                                      R=$_____images.                                                                                 \
$Z                                                                                                                      $formatI

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