#######################################################################################################################################
# #
# 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 : #
# #
# #
# Author of '$xiirv/.BROW.11.3.$U' : #
# #
# Jean-Francois Colonna (LACTAMME, 20110320105236). #
# #
#######################################################################################################################################
$Z setParam _____AX `GetParam $xrv/particule.10$X AX`
$Z # Parametre introduit le 20110322101022... #
$Z setParam _____BX `GetParam $xrv/particule.10$X BX`
$Z # Parametre introduit le 20110322101022... #
$Z setParam _____AY `GetParam $xrv/particule.10$X AY`
$Z # Parametre introduit le 20110322101022... #
$Z setParam _____BY `GetParam $xrv/particule.10$X BY`
$Z # Parametre introduit le 20110322101022... #
$Z setParam _____AZ `GetParam $xrv/particule.10$X AZ`
$Z # Parametre introduit le 20110322101022... #
$Z setParam _____BZ `GetParam $xrv/particule.10$X BZ`
$Z # Parametre introduit le 20110322101022... #
$Z setParam _____CentrerXYZ `GetParam $xrv/particule.10$X centrer_coordonnees`
$Z # Parametre introduit le 20110322101022... #
$Z setParam _____Grossissement `GetParam $xrv/particule.10$X grossissement`
$Z # Parametre introduit le 20110411112655... #
$Z setParam _____Rpoints `GetParam $xrv/particule.10$X Rpoints`
$Z # Parametre introduit le 20110411135630... #
$Z setParam _____RotationX `GetParam $xrv/particule.10$X ROTATION_OX`
$Z # Parametre introduit le 20110323114826... #
$Z setParam _____RotationY `GetParam $xrv/particule.10$X ROTATION_OY`
$Z # Parametre introduit le 20110323114826... #
$Z setParam _____RotationZ `GetParam $xrv/particule.10$X ROTATION_OZ`
$Z # Parametre introduit le 20110323114826... #
$Z setParam _____RVB `GetParam $xrv/particule.10$X RVB`
$Z # Parametre introduit le 20110411110828... #
$Z setParam _____Chiffres `GetParam $xrv/particule.10$X chiffres`
$Z # Parametre introduit le 20110411110828... #
$Z setParam _____Fond "$K_VIDE"
$Z # Introduit le 20170120102603... #
$Z setParam _____ParticulePara "$K_VIDE"
$Z # Parametre introduit le 20161126081534... #
$Z SETParam _____Enveloppe $EXIST
$Z # Parametre introduit le 20110411110828... #
$Z if ($_____Couleur == $NEXIST) then
$Z set RoUgE=$_____CouleurR
$Z set VeRtE=$_____CouleurV
$Z set BlEuE=$_____CouleurB
$Z # Cas d'une visualisation en Noir et Blanc. #
$Z else
$Z set Part0=$PremierPoint
$Z set PartN=$_____NPoints
$Z set Npart=$_____NPoints
$Z # La variable '$Npart' manquait et fut introduite le 20080529125953... #
$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 $xrv/particule.10$X \
$Z npoints=$_____NPoints \
$Z AXYZ=1 BXYZ=0 \
$Z AX=$_____AX BX=$_____BX \
$Z LISTE_X=$xTV/POINTS.2$COORD_X \
$Z AY=$_____AY BY=$_____BY \
$Z LISTE_Y=$xTV/POINTS.2$COORD_Y \
$Z AZ=$_____AZ BZ=$_____BZ \
$Z LISTE_Z=$xTV/POINTS.2$COORD_Z \
$Z centrer_coordonnees=$_____CentrerXYZ \
$Z LISTE_ROUGE=$RoUgE \
$Z LISTE_VERTE=$VeRtE \
$Z LISTE_BLEUE=$BlEuE \
$Z isoles=FAUX \
$Z chainer=VRAI Pajuster=VRAI Rpoints=$_____Rpoints \
$Z Vrayon=$_____Rayon \
$Z grossissement=$_____Grossissement \
$Z Lz=1000 \
$Z RVB=$_____RVB \
$Z ZOOM=$_____Zoom \
$Z ROTATION_OX=$_____RotationX \
$Z ROTATION_OY=$_____RotationY \
$Z ROTATION_OZ=$_____RotationZ \
$Z N_au_carre=FAUX \
$Z editer_extrema_hors=FAUX \
$Z chiffres=$_____Chiffres \
$Z $_____Fond \
$Z $_____ParticulePara \
$Z R=$xTV/BROWN. \
$Z $formatI
$Z # L'argument "editer_extrema_hors=FAUX" a ete introduit le 20110322101550 principalement #
$Z # a cause de l'introduction de '$_____AZ'... #
$Z if ($_____Enveloppe == $EXIST) then
$Z # Possibilite introduite le 20110411110828... #
$Z $xci/luminance.01$X \
$Z AR=$xTV/BROWN.0001$ROUGE \
$Z AV=$xTV/BROWN.0001$VERTE \
$Z AB=$xTV/BROWN.0001$BLEUE \
$Z R=$xTV/LUMINANCE \
$Z $formatI
$Z $xci/contours.12$X \
$Z A=$xTV/LUMINANCE \
$Z y=0 x=0.5 \
$Z seuil=$_____Seuil \
$Z R=$xTV/CONTOUR.1 \
$Z $formatI
$Z $xci/dilate.01$X \
$Z A=$xTV/CONTOUR.1 \
$Z dilater=FAUX \
$Z R=$xTV/CONTOUR.2 \
$Z $formatI
$Z $xci/eor$X \
$Z A1=$xTV/CONTOUR.1 \
$Z A2=$xTV/CONTOUR.2 \
$Z R=$xTV/CONTOUR.3 \
$Z $formatI
$Z if ($_____Couleur == $NEXIST) then
$Z $xci/neutre$X \
$Z A=$xTV/CONTOUR.3 \
$Z R=$_____ImageR$ROUGE \
$Z $formatI
$Z $xci/or_02$X \
$Z A1=$xTV/BROWN.0001$VERTE \
$Z A2=$xTV/CONTOUR.3 \
$Z R=$_____ImageR$VERTE \
$Z $formatI
$Z $xci/neutre$X \
$Z A=$xTV/CONTOUR.3 \
$Z R=$_____ImageR$BLEUE \
$Z $formatI
$Z else
$Z $xci/or_02$X \
$Z A1=$xTV/BROWN.0001$ROUGE \
$Z A2=$xTV/CONTOUR.3 \
$Z R=$_____ImageR$ROUGE \
$Z $formatI
$Z $xci/or_02$X \
$Z A1=$xTV/BROWN.0001$VERTE \
$Z A2=$xTV/CONTOUR.3 \
$Z R=$_____ImageR$VERTE \
$Z $formatI
$Z $xci/or_02$X \
$Z A1=$xTV/BROWN.0001$BLEUE \
$Z A2=$xTV/CONTOUR.3 \
$Z R=$_____ImageR$BLEUE \
$Z $formatI
$Z endif
$Z else
$Z if ( (-e $xTV/BROWN.$ROUGE) \
$Z && (-e $xTV/BROWN.$VERTE) \
$Z && (-e $xTV/BROWN.$BLEUE) \
$Z ) then
$Z # Test introduit le 20161125132616 pour simplifier le cas '$_____Enveloppe==$NEXIST'... #
$Z execRVB $xci/neutre$X \
$Z A=$xTV/BROWN.%s \
$Z R=$_____ImageR%s \
$Z $formatI
$Z else
$Z execRVB $xci/neutre$X \
$Z A=$xTV/BROWN.0001%s \
$Z R=$_____ImageR%s \
$Z $formatI
$Z endif
$Z endif
#20110320112407____:$Z $DELETE $xTV/POINTS.1.* >& $nul #
#20110320112407____:$Z $DELETE $xTV/POINTS.2.* >& $nul #
#20110408104314____:$Z $DELETE $xTV/POINTS.?.* >& $nul #
$Z # A cause de 'v $xiirv/.BROW.31.4.$U .xTV.POINTS.1.RHO', les '$DELETE's ont ete supprimes #
$Z # le 20110408104314... #
Copyright © Jean-François Colonna, 2019-2021.
Copyright © CMAP (Centre de Mathématiques APpliquées) UMR CNRS 7641 / Ecole Polytechnique, 2019-2021.