From a3170089e0016cfc0489c433d9113d94b9ce3d67 Mon Sep 17 00:00:00 2001 From: Context Git Mirror Bot Date: Tue, 23 Feb 2016 18:15:07 +0100 Subject: 2016-02-23 17:27:00 --- metapost/context/base/mpiv/mp-tool.mpiv | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) (limited to 'metapost') diff --git a/metapost/context/base/mpiv/mp-tool.mpiv b/metapost/context/base/mpiv/mp-tool.mpiv index 64500a056..caefcb643 100644 --- a/metapost/context/base/mpiv/mp-tool.mpiv +++ b/metapost/context/base/mpiv/mp-tool.mpiv @@ -1376,7 +1376,10 @@ enddef ; %D \METAPOST\ definitions. vardef arrowpath expr p = % patch by Peter Rolf: supports squared pen and shifting (hh: maybe just use center of head as first) - (p cutafter makepath(pencircle scaled 2(ahlength*cosd(.5ahangle)) shifted point length p of p)) + (p cutafter makepath(pencircle + scaled (if ahvariant > 0 : (1-ahdimple)* fi 2ahlength*cosd(ahangle/2)) + shifted point length p of p + )) enddef; % def _finarr text t = @@ -1385,12 +1388,12 @@ enddef; % filldraw 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 ; -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 ; +% enddef; def _finarr text t = if autoarrows : set_ahlength (t) fi ; -- cgit v1.2.3