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 ___________________________________________________________________________________