diff options
| author | Context Git Mirror Bot <phg42.2a@gmail.com> | 2016-02-24 12:15:08 +0100 |
|---|---|---|
| committer | Context Git Mirror Bot <phg42.2a@gmail.com> | 2016-02-24 12:15:08 +0100 |
| commit | 33e29b1ba0661b0f58605749528362a0e12eae52 (patch) | |
| tree | d9c1ceebec1f4869ffa0bdeafbeef390cb916525 /metapost | |
| parent | a3170089e0016cfc0489c433d9113d94b9ce3d67 (diff) | |
| download | context-33e29b1ba0661b0f58605749528362a0e12eae52.tar.gz | |
2016-02-24 11:22:00
Diffstat (limited to 'metapost')
| -rw-r--r-- | metapost/context/base/mpiv/mp-mlib.mpiv | 2 | ||||
| -rw-r--r-- | metapost/context/base/mpiv/mp-tool.mpiv | 10 |
2 files changed, 10 insertions, 2 deletions
diff --git a/metapost/context/base/mpiv/mp-mlib.mpiv b/metapost/context/base/mpiv/mp-mlib.mpiv index b4fe8a864..17ec983a1 100644 --- a/metapost/context/base/mpiv/mp-mlib.mpiv +++ b/metapost/context/base/mpiv/mp-mlib.mpiv @@ -1451,6 +1451,8 @@ vardef formatted(expr f, x) = textext(varfmt(f, x)) enddef ; % new +def both text t = draw t withpostscript "both" enddef ; % we use draw because we need the proper boundingbox +def eoboth text t = draw t withpostscript "eoboth" enddef ; % we use draw because we need the proper boundingbox def eofill text t = fill t withpostscript "evenodd" enddef ; def nofill text t = fill t withpostscript "collect" enddef ; %%% eoclip text t = clip t withpostscript "evenodd" enddef ; % no postscripts yet diff --git a/metapost/context/base/mpiv/mp-tool.mpiv b/metapost/context/base/mpiv/mp-tool.mpiv index caefcb643..97403f69a 100644 --- a/metapost/context/base/mpiv/mp-tool.mpiv +++ b/metapost/context/base/mpiv/mp-tool.mpiv @@ -1395,11 +1395,17 @@ enddef; % draw arrowhead _apth t ; % enddef; +% def _finarr text t = +% if autoarrows : set_ahlength (t) fi ; +% draw arrowpath _apth t ; % arrowpath added +% fill arrowhead _apth t ; +% draw arrowhead _apth t undashed ; +% enddef; + def _finarr text t = if autoarrows : set_ahlength (t) fi ; draw arrowpath _apth t ; % arrowpath added - fill arrowhead _apth t ; - draw arrowhead _apth t undashed ; + both arrowhead _apth t ; enddef; %D Handy too ...... |