diff options
author | Hans Hagen <pragma@wxs.nl> | 2022-03-12 18:45:40 +0100 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2022-03-12 18:45:40 +0100 |
commit | 188632f4b0f71c5170a20f1b151bde68f603bfd9 (patch) | |
tree | 49a5a917a1ce6f17cbb6f542dff5b8254cd74c70 /metapost/context/base/mpxl/mp-tool.mpxl | |
parent | b7a7de31716616b7a5176259e2b60349f8089615 (diff) | |
download | context-188632f4b0f71c5170a20f1b151bde68f603bfd9.tar.gz |
2022-03-12 11:26:00
Diffstat (limited to 'metapost/context/base/mpxl/mp-tool.mpxl')
-rw-r--r-- | metapost/context/base/mpxl/mp-tool.mpxl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/metapost/context/base/mpxl/mp-tool.mpxl b/metapost/context/base/mpxl/mp-tool.mpxl index 474b68353..294dddcb9 100644 --- a/metapost/context/base/mpxl/mp-tool.mpxl +++ b/metapost/context/base/mpxl/mp-tool.mpxl @@ -3910,3 +3910,19 @@ vardef hatched(expr o) primary c = enddef; permanent hatched ; + +% By Mikael Sundqvist: + +numeric mfun_dash_len ; + +primarydef p withdashes len = + hide ( + save l, n ; + l := arclength p ; + n := l div len ; + if odd(n) : n := n + 1 fi ; + mfun_dash_len := l / n ; + ) + p dashed dashpattern (on mfun_dash_len off mfun_dash_len) +enddef ; + |