diff options
| author | Hans Hagen <pragma@wxs.nl> | 2018-06-10 16:38:16 +0200 |
|---|---|---|
| committer | Context Git Mirror Bot <phg42.2a@gmail.com> | 2018-06-10 16:38:16 +0200 |
| commit | bd8f4d00a5ba1af56451821cd1db1c12c22f5419 (patch) | |
| tree | 4dffba85530d56d31a05684c7c071b77d163371a /metapost | |
| parent | 93dccfc40625a754b372edd228724969b28e4342 (diff) | |
| download | context-bd8f4d00a5ba1af56451821cd1db1c12c22f5419.tar.gz | |
2018-06-10 15:49:00
Diffstat (limited to 'metapost')
| -rw-r--r-- | metapost/context/base/mpiv/mp-mlib.mpiv | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/metapost/context/base/mpiv/mp-mlib.mpiv b/metapost/context/base/mpiv/mp-mlib.mpiv index a1517ea61..99928c81c 100644 --- a/metapost/context/base/mpiv/mp-mlib.mpiv +++ b/metapost/context/base/mpiv/mp-mlib.mpiv @@ -208,6 +208,22 @@ if mfun_use_one_pass : fi enddef ; + vardef rawmadetext = + mfun_tt_n := mfun_tt_n + 1 ; + mfun_tt_c := nullpicture ; + mfun_tt_o := nullpicture ; + addto mfun_tt_o doublepath origin _op_ ; % save drawoptions + mfun_tt_r := lua.mp.MadeText(mfun_tt_n) ; + addto mfun_tt_c doublepath unitsquare + xscaled redpart mfun_tt_r + yscaled (greenpart mfun_tt_r + bluepart mfun_tt_r) + shifted (0,-bluepart mfun_tt_r) + withprescript "tx_index=" & decimal mfun_tt_n + withprescript "tx_color=" & colordecimals colorpart mfun_tt_o + ; + mfun_tt_c + enddef ; + else : vardef rawtextext(expr s) = % todo: avoid currentpicture |