diff options
author | Taco Hoekwater <taco@elvenkind.com> | 2008-06-12 10:42:53 +0000 |
---|---|---|
committer | Taco Hoekwater <taco@elvenkind.com> | 2008-06-12 10:42:53 +0000 |
commit | 0d01365d53c456d246da0ca1f0b3cd9868f02b35 (patch) | |
tree | 01a655c8028e17cfb371456b299c1848fe08c05b /Master/texmf-dist/metapost/context/base/mp-grph.mp | |
parent | 44f3714442da07fdfc36a7f2a8dcd5d4294c5d26 (diff) |
ConTeXt release 2008.05.21
git-svn-id: svn://tug.org/texlive/trunk@8691 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/metapost/context/base/mp-grph.mp')
-rw-r--r-- | Master/texmf-dist/metapost/context/base/mp-grph.mp | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/Master/texmf-dist/metapost/context/base/mp-grph.mp b/Master/texmf-dist/metapost/context/base/mp-grph.mp index 18c43c57b53..87a17967734 100644 --- a/Master/texmf-dist/metapost/context/base/mp-grph.mp +++ b/Master/texmf-dist/metapost/context/base/mp-grph.mp @@ -56,19 +56,20 @@ string graphictextformat ; graphictextformat := "plain" ; string graphictextstring ; graphictextstring := "" ; string graphictextfile ; graphictextfile := "dummy.mpo" ; +def data_mpo_file = job_name & "-mp.mpo" enddef ; +def data_mpy_file = job_name & "-mp.mpy" enddef ; + def savegraphictext (expr str) = - graphictextfile := jobname & ".mpo" ; if (graphictextstring<>"") : - write graphictextstring to graphictextfile ; + write graphictextstring to data_mpo_file ; graphictextstring := "" ; fi ; - write str to graphictextfile ; + write str to data_mpo_file ; let erasegraphictextfile = relax ; enddef ; def erasegraphictextfile = - graphictextfile := jobname & ".mpo" ; - write EOF to graphictextfile ; + write EOF to data_mpo_file ; let erasegraphictextfile = relax ; enddef ; @@ -213,7 +214,7 @@ def dofinishgraphictext text x_op_x = if (urcorner dashpart i) = origin : outline_fill := false ; fi ; endfor ; scratchpicture := nullpicture ; - readfile(jobname & ".mpy") ; + readfile(data_mpy_file) ; scratchpicture := (scratchpicture shifted -llcorner scratchpicture) scaled (1/10) ; if not d_color and not f_color : d_color := true ; fi if s_color : d_color := false ; f_color := false ; fi ; |