From 84aae20fa32c9a50ae1c63576573f52d010de43b Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Wed, 17 Feb 2021 14:13:46 +0100 Subject: 2021-02-17 13:33:00 --- metapost/context/base/mpxl/mp-apos.mpxl | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'metapost') 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 ; -- cgit v1.2.3