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
> ___________________________________________________________________________________