Move the fills to within the image(), and build it up in
stacking order.
> On 14 Mar 2020, at 16:29, Gerben Wierda wrote:
>
> Code:
>
> vardef Foo(expr w, h, lh) =
>save pth; path pth;
>save pthtwo; path pthtwo;
>save pththree; path pththree;
>save pic; picture pic;
>pth = fullsquare xysized (w, h);
>pthtwo = fullsquare xysized (2*lh, lh) shifted (-w/2, 2.5*lh);
>pththree = fullsquare xysized (2*lh, lh) shifted (-w/2, lh);
>fill pth withcolor green;
>fill pthtwo withcolor yellow;
>fill pththree withcolor yellow;
>pic := image (
>draw pth;
>draw pthtwo;
>draw pththree;
>);
>% setbounds pic to pth;
>pic
> enddef ;
>
>
> Call:
>
> \startMPpage
>
> picture s ; s := Foo(8cm, 2cm, 0.25cm);
>
> draw s;
>
> drawdot center leftboundary s withpen pencircle scaled 2 withcolor green;
> drawdot center rightboundary s withpen pencircle scaled 2 withcolor blue;
> drawdot point .25 along topboundary s withpen pencircle scaled 2 withcolor
> yellow;
> drawdot .25[llcorner s, lrcorner s] withpen pencircle scaled 2 withcolor
> magenta;
> drawdot origin withpen pencircle scaled 4 withcolor red;
>
> \stopMPpage
>
>
> Output:
>
>
>
> Why is the outline of the green box visible in the yellow boxes? And how can
> I prevent this from happening?
> ___
> If your question is of interest to others as well, please add an entry to the
> Wiki!
>
> maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
> webpage : http://www.pragma-ade.nl / http://context.aanhet.net
> archive : https://bitbucket.org/phg/context-mirror/commits/
> wiki : http://contextgarden.net
> ___
Taco Hoekwater
Elvenkind BV
___
If your question is of interest to others as well, please add an entry to the
Wiki!
maillist : ntg-context@ntg.nl / http://www.ntg.nl/mailman/listinfo/ntg-context
webpage : http://www.pragma-ade.nl / http://context.aanhet.net
archive : https://bitbucket.org/phg/context-mirror/commits/
wiki : http://contextgarden.net
___