diff options
author | Hans Hagen <pragma@wxs.nl> | 2020-04-19 20:29:51 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2020-04-19 20:29:51 +0200 |
commit | 3c25716e01b7251f0f7504481692421a729e4b53 (patch) | |
tree | f35478a7500c113744dd3875f3f8ab486a21c595 /metapost/context/base/mpiv/mp-mlib.mpiv | |
parent | 9a1b9756939e12e328dea3633d9fe3cbde8f154b (diff) | |
download | context-3c25716e01b7251f0f7504481692421a729e4b53.tar.gz |
2020-04-19 19:24:00
Diffstat (limited to 'metapost/context/base/mpiv/mp-mlib.mpiv')
-rw-r--r-- | metapost/context/base/mpiv/mp-mlib.mpiv | 31 |
1 files changed, 28 insertions, 3 deletions
diff --git a/metapost/context/base/mpiv/mp-mlib.mpiv b/metapost/context/base/mpiv/mp-mlib.mpiv index 88bf56674..1aae87241 100644 --- a/metapost/context/base/mpiv/mp-mlib.mpiv +++ b/metapost/context/base/mpiv/mp-mlib.mpiv @@ -127,13 +127,27 @@ let transparency = pair ; % withtransparency (1,.5) % withtransparency ("normal",.5) -def withtransparency (expr t) (text rest) = +% def withtransparency (expr t) (text rest) = +% if pair t : +% withprescript "tr_alternative=" & decimal transparency_alternative_to_number(xpart t) +% withprescript "tr_transparency=" & decimal ypart t +% else : +% mfun_with_transparency (transparency_alternative_to_number(t)) +% fi rest +% enddef ; +% +% def mfun_with_transparency (expr a) expr t = +% withprescript "tr_alternative=" & decimal a +% withprescript "tr_transparency=" & decimal t +% enddef ; + +def withtransparency expr t = if pair t : withprescript "tr_alternative=" & decimal transparency_alternative_to_number(xpart t) withprescript "tr_transparency=" & decimal ypart t else : mfun_with_transparency (transparency_alternative_to_number(t)) - fi rest + fi enddef ; def mfun_with_transparency (expr a) expr t = @@ -198,6 +212,17 @@ enddef ; rgbcolor mfun_tt_r ; +newinternal inicatcoderegime ; inicatcoderegime := runscript("return catcodes.numbers.ctxcatcodes") ; +newinternal texcatcoderegime ; texcatcoderegime := runscript("return catcodes.numbers.texcatcodes") ; +newinternal luacatcoderegime ; luacatcoderegime := runscript("return catcodes.numbers.luacatcodes") ; +newinternal notcatcoderegime ; notcatcoderegime := runscript("return catcodes.numbers.notcatcodes") ; +newinternal vrbcatcoderegime ; vrbcatcoderegime := runscript("return catcodes.numbers.vrbcatcodes") ; +newinternal prtcatcoderegime ; prtcatcoderegime := runscript("return catcodes.numbers.prtcatcodes") ; +newinternal ctxcatcoderegime ; ctxcatcoderegime := runscript("return catcodes.numbers.ctxcatcodes") ; +newinternal txtcatcoderegime ; txtcatcoderegime := runscript("return catcodes.numbers.txtcatcodes") ; + +newinternal catcoderegime ; catcoderegime := ctxcatcoderegime ; + vardef rawtextext(expr s) = if s = "" : nullpicture @@ -206,7 +231,7 @@ vardef rawtextext(expr s) = mfun_tt_c := nullpicture ; mfun_tt_o := nullpicture ; addto mfun_tt_o doublepath origin _op_ ; % save drawoptions - mfun_tt_r := lua.mp.mf_some_text(mfun_tt_n,s) ; + mfun_tt_r := lua.mp.mf_some_text(mfun_tt_n,s,catcoderegime) ; addto mfun_tt_c doublepath unitsquare xscaled wdpart mfun_tt_r yscaled (htpart mfun_tt_r + dppart mfun_tt_r) |