summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/metapost/context/base/mp-grph.mp
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/metapost/context/base/mp-grph.mp')
-rw-r--r--Master/texmf-dist/metapost/context/base/mp-grph.mp13
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 ;