diff options
| author | Context Git Mirror Bot <phg42.2a@gmail.com> | 2015-01-07 02:15:04 +0100 |
|---|---|---|
| committer | Context Git Mirror Bot <phg42.2a@gmail.com> | 2015-01-07 02:15:04 +0100 |
| commit | 9f639e93850762b4169cbe7db9cfa7a8edb5a856 (patch) | |
| tree | 3bc9d1d6891c00193bd7230d441a9daf5418a92e /metapost | |
| parent | bc608dc7157ffbb10f2901a8eca115d03641f7a2 (diff) | |
| download | context-9f639e93850762b4169cbe7db9cfa7a8edb5a856.tar.gz | |
2015-01-07 01:34:00
Diffstat (limited to 'metapost')
| -rw-r--r-- | metapost/context/base/mp-tool.mpiv | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/metapost/context/base/mp-tool.mpiv b/metapost/context/base/mp-tool.mpiv index 17bb0e9c2..f1d9ecaf6 100644 --- a/metapost/context/base/mp-tool.mpiv +++ b/metapost/context/base/mp-tool.mpiv @@ -2289,6 +2289,15 @@ primarydef p snapped s = p enddef ; +%D Newer: + +vardef area expr p = + % we could calculate the boundingbox once + (xpart llcorner boundingbox p,0) -- p -- + (xpart lrcorner boundingbox p,0) -- cycle +enddef ; + + % vardef somecolor = (1,1,0,0) enddef ; % fill OverlayBox withcolor (rcomponent somecolor,gcomponent somecolor,bcomponent somecolor) ; @@ -2335,7 +2344,6 @@ vardef undecorated (text imagedata) text decoration = currentpicture enddef ; - if metapostversion < 1.770 : vardef decorated (text imagedata) text decoration = |