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
___________________________________________________________________________________