diff options
| author | Hans Hagen <pragma@wxs.nl> | 2018-06-09 15:32:09 +0200 |
|---|---|---|
| committer | Context Git Mirror Bot <phg42.2a@gmail.com> | 2018-06-09 15:32:09 +0200 |
| commit | 93dccfc40625a754b372edd228724969b28e4342 (patch) | |
| tree | 94cec6d553ccc2b797802f39085f9a4725bec8ce /metapost/context/base/mpiv/mp-base.mpiv | |
| parent | 86bfea5faac983d15c47eec27f43ec56e75c69ef (diff) | |
| download | context-93dccfc40625a754b372edd228724969b28e4342.tar.gz | |
2018-06-09 14:37:00
Diffstat (limited to 'metapost/context/base/mpiv/mp-base.mpiv')
| -rw-r--r-- | metapost/context/base/mpiv/mp-base.mpiv | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/metapost/context/base/mpiv/mp-base.mpiv b/metapost/context/base/mpiv/mp-base.mpiv index 0cc209302..95d1e8d11 100644 --- a/metapost/context/base/mpiv/mp-base.mpiv +++ b/metapost/context/base/mpiv/mp-base.mpiv @@ -250,7 +250,7 @@ vardef whatever = ? enddef ; -% unary operators +% unary operators (with patched round) let abs = length ; @@ -258,7 +258,14 @@ vardef round primary u = if numeric u : floor(u+.5) elseif pair u : - (round xpart u, round ypart u) + (floor(xpart u+.5), floor(ypart u+.5)) + elseif path u : + % added by HH + for i=0 upto length u-1 : + round(point i of u) .. + controls round(postcontrol i of u) and round(precontrol i+1 of u) .. + endfor + if cycle u : cycle else : point infinity of u fi else : u fi |