diff options
Diffstat (limited to 'metapost')
| -rw-r--r-- | metapost/context/base/mpxl/mp-base.mpxl | 4 | ||||
| -rw-r--r-- | metapost/context/base/mpxl/mp-luas.mpxl | 11 |
2 files changed, 14 insertions, 1 deletions
diff --git a/metapost/context/base/mpxl/mp-base.mpxl b/metapost/context/base/mpxl/mp-base.mpxl index df7280186..2c88ee53a 100644 --- a/metapost/context/base/mpxl/mp-base.mpxl +++ b/metapost/context/base/mpxl/mp-base.mpxl @@ -715,7 +715,9 @@ def drawdot expr p = fi enddef ; -permanent drawoptions, currentpen, currentpicture, filldraw, drawdot ; % redefined later: fill, draw +permanent drawoptions, currentpen, filldraw, drawdot ; % redefined later: fill, draw + +% permanent currentpicture; % not yet % Kind of obsolete: diff --git a/metapost/context/base/mpxl/mp-luas.mpxl b/metapost/context/base/mpxl/mp-luas.mpxl index 14da16289..d652140c4 100644 --- a/metapost/context/base/mpxl/mp-luas.mpxl +++ b/metapost/context/base/mpxl/mp-luas.mpxl @@ -282,3 +282,14 @@ newscriptindex mfid_definecolor ; mfid_definecolor := scriptindex "definecolor" def definecolor = runscript mfid_definecolor ; enddef ; % the semicolon prevents lookahead permanent definecolor ; + +% showproperty fullcircle ; +% showhashentry "fullcircle" ; + +newscriptindex mfid_showproperty ; mfid_showproperty := scriptindex("showproperty") ; +newscriptindex mfid_showhashentry ; mfid_showhashentry := scriptindex("showhashentry") ; + +def showproperty = runscript mfid_showproperty enddef ; +def showhashentry = runscript mfid_showhashentry enddef ; + +permanent showproperty, showhashentry ; |