From 4a6b49038ccb940e1f429b5aca907ee779cc8bd9 Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Fri, 18 Dec 2020 21:35:53 +0100 Subject: 2020-12-18 18:31:00 --- metapost/context/base/mpxl/mp-base.mpxl | 4 +++- metapost/context/base/mpxl/mp-luas.mpxl | 11 +++++++++++ 2 files changed, 14 insertions(+), 1 deletion(-) (limited to 'metapost') 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 ; -- cgit v1.2.3