From 7425449d374a84cde533bdb2ce5c76c62c1eb48c Mon Sep 17 00:00:00 2001 From: Marius Date: Sun, 10 Nov 2013 13:40:13 +0200 Subject: beta 2013.11.10 12:23 --- metapost/context/base/mp-grph.mpiv | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'metapost') diff --git a/metapost/context/base/mp-grph.mpiv b/metapost/context/base/mp-grph.mpiv index 30c49e6e0..a3c057a98 100644 --- a/metapost/context/base/mp-grph.mpiv +++ b/metapost/context/base/mp-grph.mpiv @@ -139,7 +139,11 @@ def mfun_do_graphic_text (expr t) = enddef ; def mfun_no_graphic_text (expr t) text rest = - draw unitsquare withprescript "gt_stage=trial" withpostscript t + currentgraphictext := currentgraphictext + 1 ; + draw unitsquare + withprescript "gt_stage=trial" + withprescript "gt_index=" & decimal currentgraphictext + withpostscript t enddef ; def mfun_finish_graphic_text text x_op_x = -- cgit v1.2.3