ntg-context - mailing list for ConTeXt users
 help / color / mirror / Atom feed
From: Gerben Wierda <gerben.wierda@rna.nl>
To: mailing list for ConTeXt users <ntg-context@ntg.nl>
Subject: Why do I see the outline of the green box in this METAPOST code?
Date: Sat, 14 Mar 2020 16:29:24 +0100	[thread overview]
Message-ID: <EE3DF541-A2FE-45A0-8F40-65F92BB19C57@rna.nl> (raw)


[-- Attachment #1.1: Type: text/plain, Size: 1157 bytes --]

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?

[-- Attachment #1.2.1: Type: text/html, Size: 5185 bytes --]

[-- Attachment #1.2.2: PastedGraphic-1.pdf --]
[-- Type: application/pdf, Size: 4268 bytes --]

[-- Attachment #1.2.3: Type: text/html, Size: 386 bytes --]

[-- Attachment #2: Type: text/plain, Size: 493 bytes --]

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

             reply	other threads:[~2020-03-14 15:29 UTC|newest]

Thread overview: 2+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2020-03-14 15:29 Gerben Wierda [this message]
2020-03-16  8:32 ` Taco Hoekwater

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=EE3DF541-A2FE-45A0-8F40-65F92BB19C57@rna.nl \
    --to=gerben.wierda@rna.nl \
    --cc=ntg-context@ntg.nl \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).