####################################################################################################################################### # # # 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 '$xiirs/.SPHE.Y1.1.$U' : # # # # Jean-Francois COLONNA (LACTAMME, 20230117102619). # # # ####################################################################################################################################### $Z setParam _____FormatRdn "$K_VIDE" $Z # Parametre introduit le 20230120105552... # $Z setParam _____AX `GetParam $xrv/particule.10$X AX` $Z setParam _____BX `GetParam $xrv/particule.10$X BX` $Z setParam _____AY `GetParam $xrv/particule.10$X AY` $Z setParam _____BY `GetParam $xrv/particule.10$X BY` $Z setParam _____AZ `GetParam $xrv/particule.10$X AZ` $Z setParam _____BZ `GetParam $xrv/particule.10$X BZ` $Z setParam _____CentrerXYZ `GetParam $xrv/particule.10$X centrer_coordonnees` #20230118122907____:$Z setParam _____Grossissement `GetParam $xrv/particule.10$X grossissement` # #20230118124411____:$Z setParam _____Grossissement 1.2 # $Z # ATTENTION : doit avoir la meme valeur que dans 'v $xiirs/.SPHE.X1.2.$U _____Grossissement'. # $Z setParam _____Rpoints `GetParam $xrv/particule.10$X Rpoints` $Z setParam _____ParticulePara "$K_VIDE" $Z setParam _____ImageRB $xTV/BROWNIEN_AUTO_EVITANT $Z # Parametre introduit le 20230222103441... # $Z SformatI $Z eval "$_____FormatRdn" $Z # Introduit le 20230120105552... # #20230118124157____:$Z $xrv/particule.10$X \ # #20230118124157____:$Z npoints=$_____NPoints \ # #20230118124157____:$Z AXYZ=1 BXYZ=0 \ # #20230118124157____:$Z AX=$_____AX BX=$_____BX \ # #20230118124157____:$Z LISTE_X=$xTV/POINTS.2$COORD_X \ # #20230118124157____:$Z AY=$_____AY BY=$_____BY \ # #20230118124157____:$Z LISTE_Y=$xTV/POINTS.2$COORD_Y \ # #20230118124157____:$Z AZ=$_____AZ BZ=$_____BZ \ # #20230118124157____:$Z LISTE_Z=$xTV/POINTS.2$COORD_Z \ # #20230118124157____:$Z centrer_coordonnees=$_____CentrerXYZ \ # #20230118124157____:$Z LISTE_ROUGE=$_____CouleurR \ # #20230118124157____:$Z LISTE_VERTE=$_____CouleurV \ # #20230118124157____:$Z LISTE_BLEUE=$_____CouleurB \ # #20230118124157____:$Z isoles=FAUX \ # #20230118124157____:$Z chainer=VRAI Pajuster=VRAI Rpoints=$_____Rpoints \ # #20230118124157____:$Z Vrayon=$_____Rayon \ # #20230118124157____:$Z grossissement=$_____Grossissement \ # #20230118124157____:$Z Lz=1000 \ # #20230118124157____:$Z ZOOM=$_____Zoom \ # #20230118124157____:$Z N_au_carre=FAUX \ # #20230118124157____:$Z editer_extrema_hors=FAUX \ # #20230118124157____:$Z $_____ParticulePara \ # #20230118124157____:$Z chiffres=0 \ # #20230118124157____:$Z R=$xTV/BROWNIEN \ # #20230118124157____:$Z $formatI # $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=$_____CouleurR \ $Z LISTE_VERTE=$_____CouleurV \ $Z LISTE_BLEUE=$_____CouleurB \ $Z isoles=FAUX \ $Z chainer=VRAI Pajuster=VRAI Rpoints=$_____Rpoints \ $Z Vrayon=$_____Rayon \ $Z Lz=1000 \ $Z ZOOM=$_____Zoom \ $Z N_au_carre=FAUX \ $Z editer_extrema_hors=FAUX \ $Z $_____ParticulePara \ $Z chiffres=0 \ $Z R=$xTV/BROWNIEN \ $Z $formatI $Z $xci/luminance.01$X \ $Z A=$xTV/BROWNIEN \ $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 $formatI | \ $Z $xci/complement$X \ $Z R=$xTV/CONTOURS \ $Z $formatI #20230222103441____:$Z $xci/contours.11$X \ # #20230222103441____:$Z A=$xTV/CONTOURS \ # #20230222103441____:$Z y=0 x=0.5 \ # #20230222103441____:$Z points_contour=VRAI \ # #20230222103441____:$Z R=$xTV/BROWNIEN_AUTO_EVITANT \ # #20230222103441____:$Z $formatI |& \ # #20230222103441____:$Z $GRE -v '^ *$' | \ # #20230222103441____:$Z $AW ' { print "'"$UNDEF $UNDEF "'" $1 " " $2 "'" Z=$UNDEF "'" } ' \ # #20230222103441____:$Z >> $FLiStE_PoInTs # $Z $xci/contours.11$X \ $Z A=$xTV/CONTOURS \ $Z y=0 x=0.5 \ $Z points_contour=VRAI \ $Z R=$_____ImageRB \ $Z $formatI |& \ $Z $GRE -v '^ *$' | \ $Z $AW ' { print "'"$UNDEF $UNDEF "'" $1 " " $2 "'" Z=$UNDEF "'" } ' \ $Z >> $FLiStE_PoInTs $Z RformatI $Z # Introduit le 20230120105552... #