diff options
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 = |