#######################################################################################################################################
# #
# M O U V E M E N T S B R O W N I E N S C O R R E L E S : #
# #
# #
# Author of '$xiirv/.BROW.B1.1.$U' : #
# #
# Jean-Francois COLONNA (LACTAMME, 20161126083200). #
# #
#######################################################################################################################################
$Z SETParam cPremiere 0
$Z SETParam cDerniere 255
$Z SETParam _____TriDimensionnel $NEXIST
$Z # Parametre introduit le 20170205100328 (tres tardivement...). #
$Z SETParam _____VraiTriDimensionnel $NEXIST
$Z # Parametre introduit le 20170205101612... #
$Z SETParam _____NMBrowniens $cDerniere
$Z # Parametre introduit le 20170207063657... #
$Z setParam _____DGraineXYZ 0
$Z # Parametre introduit le 20170208085858 (la valeur par defaut garantit la compatibilite #
$Z # anterieure...). #
$Z setParam _____DPGraineXYZ 1
$Z # Parametre introduit le 20170208085858... #
$Z set _____ImageT1=$xTV/`GetLeaf $_____imagesR`
$Z set _____Perturber=VRAI
$Z SET _____Couleur=$NEXIST
$Z set _____CouleurR=$GRIS_8
$Z set _____CouleurV=$GRIS_8
$Z set _____CouleurB=$GRIS_8
$Z SET _____Enveloppe=$NEXIST
$m4 _____include(_____xiirv/.BROW.11.2._____U)
$Z if ( ($?_____PBorneAbsolueD == $EXIST) \
$Z && ($?_____PBorneAbsolueA == $EXIST) \
$Z ) then
$Z # Test introduit le 20161128093939... #
$Z FilSTmpB FBoRnEs_AbSoLuEs $Y
$Z set ArGs_inte="$K_VIDE"
$Z set ArGs_inte="$ArGs_inte"" p=$cPremiere d=$cDerniere"
$Z set ArGs_inte="$ArGs_inte"" lineaire=VRAI"
$Z set ArGs_inte="$ArGs_inte"" vD=$_____PBorneAbsolueD vA=$_____PBorneAbsolueA"
$Z set ArGs_inte="$ArGs_inte"" signe=$K_QD$K_VIDE$K_QD"
$Z $CA $xcs/csh$Y \
$Z >> $FBoRnEs_AbSoLuEs
$Z echo "set LPBorneAbsolue=(`$xci/valeurs_inte$X $ArGs_inte`)" \
$Z >> $FBoRnEs_AbSoLuEs
$Z source $FBoRnEs_AbSoLuEs
$Z # Le passage par un fichier intermediaire (introduit le 20161128111512) est du au fait #
$Z # que 'SET' ne tolere pas la presence d'espaces dans la definition de la variable... #
$Z FilSTmpE FBoRnEs_AbSoLuEs
$Z else
$Z endif
$Z set NuMeRo=$cPremiere
$Z FileTmpB LiStEPoInTs
$Z # Introduit le 20170205110806... #
#20170207063657____:$Z while ($NuMeRo <= $cDerniere) #
$Z while ($NuMeRo <= $_____NMBrowniens)
$Z IFS ($?LPBorneAbsolue == $EXIST) then
$Z # Test introduit le 20161128093939... #
$Z @ index = $NuMeRo - $cPremiere + 1
$Z SET _____PBorneAbsolue=$LPBorneAbsolue[$index]
$Z # Cas ou tres certainement (en fait cela depend dans ce cas de '$#_____PBorneAbsolue'...) #
$Z # les bornes de perturbation sont interpolees... #
$Z # #
$Z # On notera le passage par une variable intermediaire '$PBoRnEAbSoLuE' destine a eviter le #
$Z # message : #
$Z # #
$Z # Les symboles suivants sont a la fois definis par des 'set's et des 'SET's : #
$Z # #
$Z # en ce qui concerne '$_____PBorneAbsolue'... #
$Z else
$Z endif
$Z _____include(_____xiirv/.BROW.11.1._____U)
$Z IfBasic ($_____VraiTriDimensionnel == $NEXIST) ThenBasic
$Z # Test introduit le 20170205101612. L'usage de {IfBasic,ThenBasic} permet d'eviter ici #
$Z # le message : #
$Z # #
$Z # _____VraiTriDimensionnel: Undefined variable. #
$Z # #
$Z set _____ImageR=`$xci/nombres$X A="$_____ImageT1." premiere=$NuMeRo derniere=$NuMeRo`
$Z _____include(_____xiirv/.BROW.11.3._____U)
$Z $xci/luminance.01$X \
$Z A=$_____ImageR \
$Z R=$_____ImageR \
$Z $formatI
$Z ElseBasic
$Z $PAST \
$Z $xTV/POINTS.2$COORD_X \
$Z $xTV/POINTS.2$COORD_Y \
$Z $xTV/POINTS.2$COORD_Z | \
$Z $AW \
$Z ' { print " X=" $1 " Y=" $2 " Z=" $3 " " } ' \
$Z >>! $LiStEPoInTs
$Z EndifBasic
$Z @ _____Graine_X = $_____Graine_X + $_____DGraineXYZ
$Z @ _____Graine_Y = $_____Graine_Y + $_____DGraineXYZ
$Z @ _____Graine_Z = $_____Graine_Z + $_____DGraineXYZ
$Z # Possibilite introduite le 20170208085858 afin de pouvoir faire des mouvements browniens #
$Z # differents et non correles ou pas... #
$Z @ _____PGraine_X = $_____PGraine_X + $_____DPGraineXYZ
$Z @ _____PGraine_Y = $_____PGraine_Y + $_____DPGraineXYZ
$Z @ _____PGraine_Z = $_____PGraine_Z + $_____DPGraineXYZ
$Z @ NuMeRo = $NuMeRo + 1
$Z end
$Z IfBasic ($_____TriDimensionnel == $EXIST) ThenBasic
$Z IfBasic ($_____VraiTriDimensionnel == $EXIST) ThenBasic
$Z # Test introduit le 20170205110806... #
$Z _____include(_____xiirv/.PIPO.31.1._____U)
$Z # Ceci a ete introduit le 20170205110806... #
$Z ElseBasic
$Z EndifBasic
$Z ElseBasic
$Z EndifBasic