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/mpxl/mp-base.mpxl | |
parent | eebab79d84255890c1a6d320fba146b1c422c3a6 (diff) | |
download | context-a06e8a0d7325ee248138a327e1117139b71aeaba.tar.gz |
2021-07-16 22:01:00
Diffstat (limited to 'metapost/context/base/mpxl/mp-base.mpxl')
-rw-r--r-- | metapost/context/base/mpxl/mp-base.mpxl | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/metapost/context/base/mpxl/mp-base.mpxl b/metapost/context/base/mpxl/mp-base.mpxl index 4cb44d69f..afdcda1ed 100644 --- a/metapost/context/base/mpxl/mp-base.mpxl +++ b/metapost/context/base/mpxl/mp-base.mpxl @@ -993,7 +993,9 @@ string extra_beginfig, extra_endfig ; extra_beginfig := "" ; extra_endfig := "" ; -def beginfig(expr c) = +newinternal boolean makingfigure ; makingfigure := false ; + +def beginfig(expr c) = % redefined in mp-grph ! begingroup charcode := c ; clearxy ; @@ -1002,6 +1004,7 @@ def beginfig(expr c) = pickup defaultpen ; drawoptions() ; interim stacking := 0 ; + interim makingfigure := true; scantokens extra_beginfig ; enddef ; |