diff options
author | Hans Hagen <pragma@wxs.nl> | 2021-02-17 14:13:46 +0100 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2021-02-17 14:13:46 +0100 |
commit | 84aae20fa32c9a50ae1c63576573f52d010de43b (patch) | |
tree | feba3dca4dad274e8fcf58905ec552ca39ae1897 /metapost | |
parent | cf803ad70f7a6ad2e7779875fcc02dd711706fc6 (diff) | |
download | context-84aae20fa32c9a50ae1c63576573f52d010de43b.tar.gz |
2021-02-17 13:33:00
Diffstat (limited to 'metapost')
-rw-r--r-- | metapost/context/base/mpxl/mp-apos.mpxl | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/metapost/context/base/mpxl/mp-apos.mpxl b/metapost/context/base/mpxl/mp-apos.mpxl index 878577bd9..3e7524b11 100644 --- a/metapost/context/base/mpxl/mp-apos.mpxl +++ b/metapost/context/base/mpxl/mp-apos.mpxl @@ -26,7 +26,7 @@ nofposboxes := 0 ; def boxlineoptions = withcolor .8blue enddef ; def boxfilloptions = withcolor .8white enddef ; -permanent posboxes, posregions, pospages, nofposboxes ; +mutable posboxes, posregions, pospages, nofposboxes ; def connect_positions = if nofposboxes = 2 : @@ -102,3 +102,9 @@ def anch_sidebars_draw (expr firstpage, lastpage, yfirst, ylast, height, depth, withcolor linecolor ; endgroup ; enddef ; + +% new interface + +newscriptindex mfid_getposboxes ; mfid_getposboxes := scriptindex "getposboxes" ; + +def getposboxes(expr tags, anchor) = runscript mfid_getposboxes tags anchor ; enddef ; |