diff options
author | Hans Hagen <pragma@wxs.nl> | 2021-07-16 22:58:17 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2021-07-16 22:58:17 +0200 |
commit | a06e8a0d7325ee248138a327e1117139b71aeaba (patch) | |
tree | c0ffdfcb82aac51b5e35fb3e5aa2ae0314d62220 /metapost/context/base/mpiv/mp-base.mpiv | |
parent | eebab79d84255890c1a6d320fba146b1c422c3a6 (diff) | |
download | context-a06e8a0d7325ee248138a327e1117139b71aeaba.tar.gz |
2021-07-16 22:01:00
Diffstat (limited to 'metapost/context/base/mpiv/mp-base.mpiv')
-rw-r--r-- | metapost/context/base/mpiv/mp-base.mpiv | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/metapost/context/base/mpiv/mp-base.mpiv b/metapost/context/base/mpiv/mp-base.mpiv index 9b85d5ffd..c5f69fbda 100644 --- a/metapost/context/base/mpiv/mp-base.mpiv +++ b/metapost/context/base/mpiv/mp-base.mpiv @@ -928,14 +928,21 @@ string extra_beginfig, extra_endfig ; extra_beginfig := "" ; extra_endfig := "" ; -def beginfig(expr c) = +boolean makingfigure ; makingfigure := false ; +numeric stacking ; stacking := 0 ; + +def beginfig(expr c) = % redefined in mp-grph ! begingroup + save makingfigure ; boolean makingfigure ; + save stacking ; numeric stacking; charcode := c ; clearxy ; clearit ; clearpen ; pickup defaultpen ; drawoptions() ; + stacking := 0 ; + makingfigure := true; scantokens extra_beginfig ; enddef ; |