#######################################################################################################################################
#                                                                                                                                     #
#         M O U V E M E N T   B R O W N I E N   E T   S A   F R O N T I E R E                                                         #
#         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.11.1.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois COLONNA (LACTAMME, 20041005160248).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  SETParam            _____RenormBrownien           $NEXIST
$Z                  SETParam            _____RenormBrownien_mX        -0.9
$Z                  SETParam            _____RenormBrownien_MX        +0.9
$Z                  SETParam            _____RenormBrownien_mY        -0.9
$Z                  SETParam            _____RenormBrownien_MY        +0.9
$Z                  SETParam            _____RenormBrownien_mZ        0
$Z                  SETParam            _____RenormBrownien_MZ        1
$Z                                      # La possibilite de renormaliser les coordonnees a ete introduite le 20230217150258. Cela     #
$Z                                      # permet en particulier de centrer les mouvements browniens...                                #

$Z                  SETParam            _____TriDimensionnel          $NEXIST
$Z                                      # La possibilite de generer un mouvement brownien tridimensionnel a ete introduite            #
$Z                                      # le 20041010092241...                                                                        #

$Z                  setParam            _____NPoints                  50000

$Z                  setParam            _____BorneAbsolue             0.01

$Z                  SETParam            _____PBorneAbsolue            0.004
$Z                                      # Ce parametre a ete introduit le 20161126094730...                                           #

$Z                                      # Les parametres {$_____Graine_X,$_____Graine_Y,$_____Graine_Z} ont ete deplaces le           #
$Z                                      # 20041011095130 dans 'v $xiirv/.BROW.11.2.$U' afin d'etre communes a toutes les images       #
$Z                                      # de type 'v $xiirv/BROW.21' et 'v $xiav/BROW.21$R16' (par exemple...).                       #

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

$Z                  setParam            _____CouleurR                 $GRIS_4
$Z                                      # Ce parametre a ete introduit le 20161126092455...                                           #

$Z                  setParam            _____CouleurV                 $GRIS_4
$Z                                      # Ce parametre a ete introduit le 20161126092455...                                           #

$Z                  setParam            _____CouleurB                 $GRIS_4
$Z                                      # Ce parametre a ete introduit le 20161126092455...                                           #

$Z                  setParam            _____Rayon                    0.004

$Z                  setParam            _____Zoom                     1.15

$Z                  setParam            _____Seuil                    9
$Z                                      # Le passage de 16 a 10 est du a l'option 'translater=VRAI' pour '$xrv/accumule.01$X' qui     #
$Z                                      # decale l'image et change la position des points. Le passage de 10 a 9 est du a              #
$Z                                      # l'introduction du calcul de la LUMINANCE apres le passage en couleur...                     #

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

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

$Z                  set                 ArGuMeNtS_alea="$K_VIDE"
$Z                  set                 ArGuMeNtS_alea="$ArGuMeNtS_alea"" premiere=$PremierPoint"
$Z                  set                 ArGuMeNtS_alea="$ArGuMeNtS_alea"" derniere=$_____NPoints"
$Z                  set                 ArGuMeNtS_alea="$ArGuMeNtS_alea"" inf=-$_____BorneAbsolue sup=+$_____BorneAbsolue"
$Z                  set                 ArGuMeNtS_alea="$ArGuMeNtS_alea"" Perturber=$_____Perturber"
$Z                  set                 ArGuMeNtS_alea="$ArGuMeNtS_alea"" Pinf=-$_____PBorneAbsolue Psup=+$_____PBorneAbsolue"
$Z                                      # Liste introduite le 20161126080523 et complete le 20161126081256 avec '$_____Perturber'...  #

$Z                  $xci/valeurs_alea$X                                                                                                 \
$Z                                      $ArGuMeNtS_alea                                                                                 \
$Z                                      graine=$_____Graine_X                                                                           \
$Z                                      Pgraine=$_____PGraine_X                                                                         \
$Z                                                                                        >   $xTV/POINTS.1$COORD_X

$Z                  $xci/valeurs_alea$X                                                                                                 \
$Z                                      $ArGuMeNtS_alea                                                                                 \
$Z                                      graine=$_____Graine_Y                                                                           \
$Z                                      Pgraine=$_____PGraine_Y                                                                         \
$Z                                                                                        >   $xTV/POINTS.1$COORD_Y

$Z                  if                  ($_____TriDimensionnel == $EXIST) then
$Z                                      $xci/valeurs_alea$X                                                                             \
$Z                                                          $ArGuMeNtS_alea                                                             \
$Z                                                          graine=$_____Graine_Z                                                       \
$Z                                                          Pgraine=$_____PGraine_Z                                                     \
$Z                                                                                                            >   $xTV/POINTS.1$COORD_Z
$Z                  else
$Z                  endif

$Z                  if   ($_____RenormBrownien == $EXIST) then
$Z                       set  ReNoRmAlIsE_X="$xrv/normalise.01$X origine=$_____RenormBrownien_mX extremite=$_____RenormBrownien_MX"
$Z                       set  ReNoRmAlIsE_Y="$xrv/normalise.01$X origine=$_____RenormBrownien_mY extremite=$_____RenormBrownien_MY"
$Z                       set  ReNoRmAlIsE_Z="$xrv/normalise.01$X origine=$_____RenormBrownien_mZ extremite=$_____RenormBrownien_MZ"
$Z                  else
$Z                       set  ReNoRmAlIsE_X="$xrv/neutre$X"
$Z                       set  ReNoRmAlIsE_Y="$xrv/neutre$X"
$Z                       set  ReNoRmAlIsE_Z="$xrv/neutre$X"
$Z                  endif

$Z                  $xrv/accumule.01$X                                                                                                  \
$Z                                      ne=0                                                                                            \
$Z                                      fichier=$xTV/POINTS.1$COORD_X                                                                   \
$Z                                      translater=VRAI                                                                           |     \
$Z                  $ReNoRmAlIsE_X                                                                                                      \
$Z                                      ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$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                  $ReNoRmAlIsE_Y                                                                                                      \
$Z                                      ne=0                                                                                            \
$Z                                      fichier==                                                                                       \
$Z                                                                                        >   $xTV/POINTS.2$COORD_Y

$Z                  if                  ($_____TriDimensionnel == $EXIST) then
$Z                                      $xrv/accumule.01$X                                                                              \
$Z                                                          ne=0                                                                        \
$Z                                                          fichier=$xTV/POINTS.1$COORD_Z                                               \
$Z                                                          translater=VRAI                                                       |     \
$Z                                      $ReNoRmAlIsE_Z                                                                                  \
$Z                                                          ne=0                                                                        \
$Z                                                          fichier==                                                                   \
$Z                                                                                                            >   $xTV/POINTS.2$COORD_Z
$Z                  else
$Z                                      $xci/valeurs_inte$X                                                                             \
$Z                                                          premiere=$PremierPoint                                                      \
$Z                                                          derniere=$_____NPoints                                                      \
$Z                                                          cubique=FAUX                                                                \
$Z                                                          vD=$PointOrigine vA=$PointOrigine                                           \
$Z                                                                                                            >   $xTV/POINTS.2$COORD_Z
$Z                  endif