diff options
| author | Hans Hagen <pragma@wxs.nl> | 2019-07-24 13:08:53 +0200 |
|---|---|---|
| committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2019-07-24 13:08:53 +0200 |
| commit | 47852e5715e7c0374bb6bc173c1728908549e1ed (patch) | |
| tree | e6df8c61ffb0aadfabbca7e9a33f10d1b61bde68 /metapost | |
| parent | a92a8d40ce567ecf5b0baacd9a93a94aac9a4a2d (diff) | |
| download | context-47852e5715e7c0374bb6bc173c1728908549e1ed.tar.gz | |
2019-07-24 11:24:00
Diffstat (limited to 'metapost')
| -rw-r--r-- | metapost/context/base/mpiv/mp-base.mpiv | 2 | ||||
| -rw-r--r-- | metapost/context/base/mpiv/mp-luas.mpiv | 24 |
2 files changed, 25 insertions, 1 deletions
diff --git a/metapost/context/base/mpiv/mp-base.mpiv b/metapost/context/base/mpiv/mp-base.mpiv index 617855473..77e92e39b 100644 --- a/metapost/context/base/mpiv/mp-base.mpiv +++ b/metapost/context/base/mpiv/mp-base.mpiv @@ -337,7 +337,7 @@ enddef ; % takepower y of x % fi % enddef ; -% +% % def takepower expr y of x = % if x>0 : % mexp(y*mlog x) diff --git a/metapost/context/base/mpiv/mp-luas.mpiv b/metapost/context/base/mpiv/mp-luas.mpiv index 1ba4a6dc9..235f713ba 100644 --- a/metapost/context/base/mpiv/mp-luas.mpiv +++ b/metapost/context/base/mpiv/mp-luas.mpiv @@ -307,3 +307,27 @@ fi ; vardef utflen(expr s) = lua.mp.utflen(s) enddef ; vardef utfsub(expr s,f,t) = lua.mp.utfsub(s,f,t) enddef ; + +if contextlmtxmode : + + newinternal mfid_getparameters ; mfid_getparameters := scriptindex "getparameters" ; + newinternal mfid_presetparameters ; mfid_presetparameters := scriptindex "presetparameters" ; + newinternal mfid_getparameter ; mfid_getparameter := scriptindex "getparameter" ; + newinternal mfid_getparametercount ; mfid_getparametercount := scriptindex "getparametercount" ; + newinternal mfid_getparameterentry ; mfid_getparameterentry := scriptindex "getparameterentry" ; + newinternal mfid_getparametersets ; mfid_getparametersets := scriptindex "getparametersets" ; + newinternal mfid_getparametersetcount ; mfid_getparametersetcount := scriptindex "getparametersetcount" ; + newinternal mfid_getparametersetentry ; mfid_getparametersetentry := scriptindex "getparametersetentry" ; + newinternal mfid_applyparameters ; mfid_applyparameters := scriptindex "applyparameters" ; + + def getparameters = runscript mfid_getparameters enddef ; + def presetparameters = runscript mfid_presetparameters enddef ; + def getparameter = runscript mfid_getparameter enddef ; + def getparametercount = runscript mfid_getparametercount enddef ; + def getparameterentry = runscript mfid_getparameterentry enddef ; + def getparametersets = runscript mfid_getparametersets enddef ; + def getparametersetcount = runscript mfid_getparametersetcount enddef ; + def getparametersetentry = runscript mfid_getparametersetentry enddef ; + def applyparameters = runscript mfid_applyparameters enddef ; + +fi ; |