---------- Forwarded message ---------
De: Jairo A. del Rio <<= a href=3D"mailto:jairoadelrio6@gmail.com">jairoadelrio6@gmail.com>
Date: mi=C3=A9, 12 de may. de 2021 a la(s) 14:08
Subject: Re: [= NTG-context] Fuzzy lines
To: mailing list for ConTeXt users <ntg-context@ntg.nl>

El mi=C3=A9, 12 de may. de 2021 a la(= s) 13:03, Henning Hraban Ramm (texml@fiee.net) escribi=C3=B3:

Hi Jairo,

thank you for the suggestion.

> Am 11.05.2021 um 14:56 schrieb Jairo A. del Rio <jairoadelrio6@gmail.com>:=
>
> For simple pens, you may define your own (section 9.7 of MetaPost manu= al).

Unfortunately, pens don=E2=80=99t work as patterns but only as outlines.
> For complicated strokes, something along these lines could be useful a= s a starting point (I'm not taking cyclic paths in consideration, btw).= I did something similar with duck footprints some weeks ago:
>
> %Sorry for the ugly code...
> \starttext
> \startMPpage
> %Unit size
> numeric u; u :=3D 1mm;
>
> %In a picture you are able to include everything, kinda
> picture Pluma;
> Pluma :=3D image(
>=C2=A0 =C2=A0 =C2=A0 =C2=A0for i =3D 1 upto 5:
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0for j =3D 1 upto= 5:
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 = =C2=A0 =C2=A0draw (i,j) randomized 1;
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0endfor
>=C2=A0 =C2=A0 =C2=A0 =C2=A0endfor
> );

Unfortunately, that=E2=80=99s the same pattern over and over.
The randomization is only applied once.
Good for footprints, bad for fuzzy patterns.

You only need to move "randomized" at the drawing stage:

\starttext

\startMPpage

numeric u; u := =3D 1mm;

picture Pluma;=

Pluma :=3D ima= ge(

for i =3D 1 u= pto 5:

for j =3D 1 = upto 5:

draw (i,j);=

endfor

);

path Camino;

Camino :=3D or= igin for i =3D 1 upto 30: .. (u*i, u*sind (12i mod 360)) endfor;

for i =3D 0 st= ep 1/2 until length Camino:

draw Pluma ra= ndomized 1 rotated (90 + angle direction i of Camino)

shifted poin= t i of Camino;

endfor

\stopMPpage

\stoptext

<= br>

But "randomized" will deform paths. Maybe you want = something like this?

\starttext

\startMPpage[a= lign=3D]

begingroup;

save Rnd; let = Rnd =3D uniformdeviate;

numeric u; u := =3D 3mm;

picture Pluma;=

Pluma :=3D ima= ge(

for i =3D 1 u= pto 5:

for j =3D 1 = upto 5:

fill fullci= rcle shifted (i,j); %try fulltriangle or another shape

endfor

);

path Camino;

Camino :=3D or= igin for i =3D 1 upto 30: .. u*i*left endfor;

for i =3D 0 st= ep 1/2 until length Camino:

draw image(

for x within = Pluma:

fill pathpar= t x %Assuming our image only contains cyclic paths

scaled (1+Rn= d 1)

shifted (1/2= dir Rnd 360)

withcolor hs= vtorgb(6round(Rnd 60),9/10,1); %Colors just because they look cute

endfor

) rotated (90= + angle direction i of Camino)

shifted point= i of Camino;

endfor

endgroup;

\stopMPpage

\stoptext

<= /div>

> %Simple curve
> path Camino;
> Camino :=3D origin for i =3D 1 upto 30: .. (u*i, u*sind (12i mod 360))= endfor;
>
> %Strokes
> for i =3D 0 step 1/2 until length Camino:
>=C2=A0 =C2=A0 =C2=A0 =C2=A0draw Pluma rotated (90 + angle direction i o= f Camino)
>=C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0 =C2=A0shifted point i = of Camino;
> endfor

Since I have more or less straight lines but of different length, the "= ;one pattern per 1/n path segment" doesn=E2=80=99t work for me. I coul= d try to construct my paths differently.

You only need to use fractions, i.e., "for 0 step 1/n until 1: ... e= ndfor" if you work with straight lines defined using only two points. = In the example above I made one from more than two points just for ease of = manipulation. With examples and feedback from the mailing list, you might d= efine your own function using the new Metafun interface for LMTX.

=C2=A0

Hraban

___________________________________________________________________________= ________
If your question is of interest to others as well, please add an entry to t= he Wiki!

maillist : ntg-cont= ext@ntg.nl / http://www.ntg.nl/mailman/listinfo/nt= g-context
webpage=C2=A0 : http://www.pragma-ade.nl / http://context.aanhet.net=
archive=C2=A0 : https://bitbucket.org/phg/context-m= irror/commits/
wiki=C2=A0 =C2=A0 =C2=A0: http://contextgarden.net
___________________________________________________________________________= ________

Jairo

--000000000000cd020905c22897c2-- --===============3194525800627422108== Content-Type: text/plain; charset="utf-8" MIME-Version: 1.0 Content-Transfer-Encoding: base64 Content-Disposition: inline X19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19f X19fX19fX19fX19fX19fX19fX19fX19fX18KSWYgeW91ciBxdWVzdGlvbiBpcyBvZiBpbnRlcmVz dCB0byBvdGhlcnMgYXMgd2VsbCwgcGxlYXNlIGFkZCBhbiBlbnRyeSB0byB0aGUgV2lraSEKCm1h aWxsaXN0IDogbnRnLWNvbnRleHRAbnRnLm5sIC8gaHR0cDovL3d3dy5udGcubmwvbWFpbG1hbi9s aXN0aW5mby9udGctY29udGV4dAp3ZWJwYWdlICA6IGh0dHA6Ly93d3cucHJhZ21hLWFkZS5ubCAv IGh0dHA6Ly9jb250ZXh0LmFhbmhldC5uZXQKYXJjaGl2ZSAgOiBodHRwczovL2JpdGJ1Y2tldC5v cmcvcGhnL2NvbnRleHQtbWlycm9yL2NvbW1pdHMvCndpa2kgICAgIDogaHR0cDovL2NvbnRleHRn YXJkZW4ubmV0Cl9fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19f X19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fCg== --===============3194525800627422108==--