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