diff options
author | Context Git Mirror Bot <phg42.2a@gmail.com> | 2016-02-23 18:15:07 +0100 |
---|---|---|
committer | Context Git Mirror Bot <phg42.2a@gmail.com> | 2016-02-23 18:15:07 +0100 |
commit | a3170089e0016cfc0489c433d9113d94b9ce3d67 (patch) | |
tree | 43c001f42d2c86ebaeb2dcfac1329ebfeb551475 /metapost | |
parent | 95bf6b95a9d47a16219a26e19004d22c52180587 (diff) | |
download | context-a3170089e0016cfc0489c433d9113d94b9ce3d67.tar.gz |
2016-02-23 17:27:00
Diffstat (limited to 'metapost')
-rw-r--r-- | metapost/context/base/mpiv/mp-tool.mpiv | 17 |
1 files changed, 10 insertions, 7 deletions
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 ; |