Well this is fun. Getting the right patterns could make some
interesting with fonts.
Thanks for the tip Hans!
Best Wishes
Keith McKay
%%%%%%%%%%%%%
\startMPpage
vardef tst (expr x, y, i, n) =
definecolor [ name = "MyColor1", r = uniformdeviate(1), g =
uniformdeviate(1), b = uniformdeviate(1) ] ;
definecolor [ name = "MyColor2", r = uniformdeviate(1), g =
uniformdeviate(1), b = uniformdeviate(1) ] ;
draw lmt_outline [
text = "\TeX",
kind = "both",
fillcolor = "MyColor1",
drawcolor = "MyColor2",
rulethickness = 1/2,
]ysized (30+5*i/n) shifted (10x,10y)
rotatedaround(origin,uniformdeviate(360));
enddef ;
picture p ; p := lmt_outline [
text = "\bf TEST",
kind = "path",
] scaled 5cm;
path q ; q := for i within p :
if picture i :
pathpart i &&
fi endfor cycle ;
picture r; r:= lmt_poisson [
width = 20,
height = 20,
distance = 1,
count = 10,
macro = "tst"
arguments = 4,
] xsized 6cm ;
draw q
withpattern
r
withpatternscale (1/10,1/3)
;
\stopMPpage
On 09/07/2023 18:37, Hans Hagen via ntg-context wrote:
On 7/9/2023 5:56 PM, Henning Hraban Ramm wrote:
Am 09.07.23 um 15:49 schrieb Keith McKay:
Hraban (and others),
You got me thinking so I added this code to end of your code as a
bit of fun. It's code from the luametafun manual to which I added
two and a half lines.
That’s funny.
I replaced the text by \TeX and published it here:
https://fosstodon.org/@context/110684919994406565
But is it possible to fill a path (e.g. an lmt_outline) with a
lmt_poisson pattern?
Here's something to get you and Keith starting:
\startMPpage
picture p ; p := lmt_outline [
text = "\bf TEST",
kind = "path",
] ;
path q ; q := for i within p :
if picture i :
pathpart i &&
fi endfor cycle ;
draw q
withpattern
textext("\TEX")
withpatternscale (1/20,1/20)
;
\stopMPpage
so the trick is to come up with a pattern that has the right size
Hans
-----------------------------------------------------------------
Hans Hagen | PRAGMA ADE
Ridderstraat 27 | 8061 GH Hasselt | The Netherlands
tel: 038 477 53 69 | www.pragma-ade.nl | www.pragma-pod.nl
-----------------------------------------------------------------
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry
to the Wiki!
maillist : ntg-context@ntg.nl /
https://www.ntg.nl/mailman/listinfo/ntg-context
webpage : https://www.pragma-ade.nl / http://context.aanhet.net
archive : https://bitbucket.org/phg/context-mirror/commits/
wiki : https://contextgarden.net
___________________________________________________________________________________
___________________________________________________________________________________
If your question is of interest to others as well, please add an entry to the
Wiki!
maillist : ntg-context@ntg.nl / https://www.ntg.nl/mailman/listinfo/ntg-context
webpage : https://www.pragma-ade.nl / http://context.aanhet.net
archive : https://bitbucket.org/phg/context-mirror/commits/
wiki : https://contextgarden.net
___________________________________________________________________________________