From 5060dba38886b030b3eb30142a5f4b443579b742 Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Sun, 10 Nov 2013 12:23:00 +0100 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