diff options
| author | Hans Hagen <pragma@wxs.nl> | 2019-01-17 23:06:17 +0100 |
|---|---|---|
| committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2019-01-17 23:06:17 +0100 |
| commit | 823bd4a7d8ff32c05807b02e650ecbd60b43e95d (patch) | |
| tree | f6ac3760c1d5da04f8570587b76572cd4fb44ecd /metapost/context/base/mpiv/mp-tool.mpiv | |
| parent | 17527db3823d6123f4e462d13244430c40b78adb (diff) | |
| download | context-823bd4a7d8ff32c05807b02e650ecbd60b43e95d.tar.gz | |
2019-01-17 22:18:00
Diffstat (limited to 'metapost/context/base/mpiv/mp-tool.mpiv')
| -rw-r--r-- | metapost/context/base/mpiv/mp-tool.mpiv | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/metapost/context/base/mpiv/mp-tool.mpiv b/metapost/context/base/mpiv/mp-tool.mpiv index 01ea2521b..2cdb5fb39 100644 --- a/metapost/context/base/mpiv/mp-tool.mpiv +++ b/metapost/context/base/mpiv/mp-tool.mpiv @@ -3594,3 +3594,11 @@ def drawdot expr p = ) fi enddef ; + +% vardef textlength(text t) = +% save n ; n := 0 ; +% for i = t : +% n := n + 1 ; +% endfor; +% n +% enddef; |