From bd8f4d00a5ba1af56451821cd1db1c12c22f5419 Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Sun, 10 Jun 2018 16:38:16 +0200 Subject: 2018-06-10 15:49:00 --- metapost/context/base/mpiv/mp-mlib.mpiv | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'metapost') 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 -- cgit v1.2.3