From 33e29b1ba0661b0f58605749528362a0e12eae52 Mon Sep 17 00:00:00 2001 From: Context Git Mirror Bot Date: Wed, 24 Feb 2016 12:15:08 +0100 Subject: 2016-02-24 11:22:00 --- metapost/context/base/mpiv/mp-mlib.mpiv | 2 ++ metapost/context/base/mpiv/mp-tool.mpiv | 10 ++++++++-- 2 files changed, 10 insertions(+), 2 deletions(-) (limited to 'metapost') 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 ...... -- cgit v1.2.3