From 5060dba38886b030b3eb30142a5f4b443579b742 Mon Sep 17 00:00:00 2001
From: Hans Hagen <pragma@wxs.nl>
Date: Sun, 10 Nov 2013 12:23:00 +0100
Subject: beta 2013.11.10 12:23

---
 metapost/context/base/mp-grph.mpiv                 |   6 +++++-
 tex/context/base/cont-new.mkiv                     |   2 +-
 tex/context/base/context-version.pdf               | Bin 4108 -> 4113 bytes
 tex/context/base/context.mkiv                      |   2 +-
 tex/context/base/mlib-pps.lua                      |  15 ++++++++-------
 tex/context/base/status-files.pdf                  | Bin 24551 -> 24537 bytes
 tex/context/base/status-lua.pdf                    | Bin 222470 -> 222406 bytes
 tex/generic/context/luatex/luatex-fonts-merged.lua |   2 +-
 8 files changed, 16 insertions(+), 11 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 =
diff --git a/tex/context/base/cont-new.mkiv b/tex/context/base/cont-new.mkiv
index 36c173d60..1ffe08bff 100644
--- a/tex/context/base/cont-new.mkiv
+++ b/tex/context/base/cont-new.mkiv
@@ -11,7 +11,7 @@
 %C therefore copyrighted by \PRAGMA. See mreadme.pdf for
 %C details.
 
-\newcontextversion{2013.11.08 11:50}
+\newcontextversion{2013.11.10 12:23}
 
 %D This file is loaded at runtime, thereby providing an excellent place for
 %D hacks, patches, extensions and new features.
diff --git a/tex/context/base/context-version.pdf b/tex/context/base/context-version.pdf
index 462dc5b36..5218751b7 100644
Binary files a/tex/context/base/context-version.pdf and b/tex/context/base/context-version.pdf differ
diff --git a/tex/context/base/context.mkiv b/tex/context/base/context.mkiv
index a0250d234..6a68d8c85 100644
--- a/tex/context/base/context.mkiv
+++ b/tex/context/base/context.mkiv
@@ -25,7 +25,7 @@
 %D up and the dependencies are more consistent.
 
 \edef\contextformat {\jobname}
-\edef\contextversion{2013.11.08 11:50}
+\edef\contextversion{2013.11.10 12:23}
 \edef\contextkind   {beta}
 
 %D For those who want to use this:
diff --git a/tex/context/base/mlib-pps.lua b/tex/context/base/mlib-pps.lua
index 9f6cedad1..535c9ff9d 100644
--- a/tex/context/base/mlib-pps.lua
+++ b/tex/context/base/mlib-pps.lua
@@ -967,24 +967,25 @@ local function tx_process(object,prescript,before,after)
     end
 end
 
--- graphics
+-- graphics (we use the given index because pictures can be reused)
 
 local graphics = { }
 
 function metapost.intermediate.actions.makempy()
     if #graphics > 0 then
         makempy.processgraphics(graphics)
-        graphics = { } -- ?
+        graphics = { } -- ? could be gt_reset
     end
 end
 
 local function gt_analyze(object,prescript)
     local gt_stage = prescript.gt_stage
-    if gt_stage == "trial" then
-        graphics[#graphics+1] = formatters["\\MPLIBgraphictext{%s}"](object.postscript or "")
-        top.intermediate      = true
-        top.multipass         = true
-        metapost.multipass    = true -- ugly
+    local gt_index = tonumber(prescript.gt_index)
+    if gt_stage == "trial" and not graphics[gt_index] then
+        graphics[gt_index] = formatters["\\MPLIBgraphictext{%s}"](object.postscript or "")
+        top.intermediate   = true
+        top.multipass      = true
+        metapost.multipass = true -- ugly
     end
 end
 
diff --git a/tex/context/base/status-files.pdf b/tex/context/base/status-files.pdf
index b240ea843..a48337cb2 100644
Binary files a/tex/context/base/status-files.pdf and b/tex/context/base/status-files.pdf differ
diff --git a/tex/context/base/status-lua.pdf b/tex/context/base/status-lua.pdf
index 31fd9f678..1d11c9fe1 100644
Binary files a/tex/context/base/status-lua.pdf and b/tex/context/base/status-lua.pdf differ
diff --git a/tex/generic/context/luatex/luatex-fonts-merged.lua b/tex/generic/context/luatex/luatex-fonts-merged.lua
index 2bfa77514..94a082a8c 100644
--- a/tex/generic/context/luatex/luatex-fonts-merged.lua
+++ b/tex/generic/context/luatex/luatex-fonts-merged.lua
@@ -1,6 +1,6 @@
 -- merged file : luatex-fonts-merged.lua
 -- parent file : luatex-fonts.lua
--- merge date  : 11/09/13 20:21:53
+-- merge date  : 11/10/13 12:23:28
 
 do -- begin closure to overcome local limits and interference
 
-- 
cgit v1.2.3