diff options
| author | Hans Hagen <pragma@wxs.nl> | 2013-11-10 12:23:00 +0100 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2013-11-10 12:23:00 +0100 |
| commit | 5060dba38886b030b3eb30142a5f4b443579b742 (patch) | |
| tree | fbbf55365318f8ce75335ef603af7da47dcf6e36 /metapost | |
| parent | 148a3541e75ffe0d68c7c18175460328b22fd618 (diff) | |
| download | context-5060dba38886b030b3eb30142a5f4b443579b742.tar.gz | |
beta 2013.11.10 12:23
Diffstat (limited to 'metapost')
| -rw-r--r-- | metapost/context/base/mp-grph.mpiv | 6 |
1 files changed, 5 insertions, 1 deletions
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 = |