diff options
author | Hans Hagen <pragma@wxs.nl> | 2021-07-16 22:58:17 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2021-07-16 22:58:17 +0200 |
commit | a06e8a0d7325ee248138a327e1117139b71aeaba (patch) | |
tree | c0ffdfcb82aac51b5e35fb3e5aa2ae0314d62220 /tex/context/base/mkxl/mlib-pdf.lmt | |
parent | eebab79d84255890c1a6d320fba146b1c422c3a6 (diff) | |
download | context-a06e8a0d7325ee248138a327e1117139b71aeaba.tar.gz |
2021-07-16 22:01:00
Diffstat (limited to 'tex/context/base/mkxl/mlib-pdf.lmt')
-rw-r--r-- | tex/context/base/mkxl/mlib-pdf.lmt | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/tex/context/base/mkxl/mlib-pdf.lmt b/tex/context/base/mkxl/mlib-pdf.lmt index 58a1129eb..ec13ef289 100644 --- a/tex/context/base/mkxl/mlib-pdf.lmt +++ b/tex/context/base/mkxl/mlib-pdf.lmt @@ -193,7 +193,7 @@ local function flushnormalpath(path, t, open, tolerance) return t end -local function flushconcatpath(path, t, open, tolerance) +local function flushconcatpath(path, t, open, tolerance, transform) local pth, ith, nt local length = #path if t then @@ -202,8 +202,10 @@ local function flushconcatpath(path, t, open, tolerance) t = { } nt = 0 end - nt = nt + 1 - t[nt] = f_cm(sx,rx,ry,sy,tx,ty) + if transform then + nt = nt + 1 + t[nt] = f_cm(sx,rx,ry,sy,tx,ty) + end for i=1,length do nt = nt + 1 pth = path[i] @@ -565,7 +567,7 @@ function metapost.flush(specification,result) for i=1,#savedpath do local path = savedpath[i] if transformed then - flushconcatpath(path,result,open,tolerance) + flushconcatpath(path,result,open,tolerance,i==1) else flushnormalpath(path,result,open,tolerance) end @@ -575,7 +577,7 @@ function metapost.flush(specification,result) if flush then -- ignore this path elseif transformed then - flushconcatpath(path,result,open,tolerance) + flushconcatpath(path,result,open,tolerance,true) else flushnormalpath(path,result,open,tolerance) end @@ -605,7 +607,7 @@ function metapost.flush(specification,result) for i=1,#savedhtap do local path = savedhtap[i] if transformed then - flushconcatpath(path,result,open,tolerance) + flushconcatpath(path,result,open,tolerance,i==1) else flushnormalpath(path,result,open,tolerance) end @@ -614,7 +616,7 @@ function metapost.flush(specification,result) evenodd = true end if transformed then - flushconcatpath(path,result,open,tolerance) + flushconcatpath(path,result,open,tolerance,true) else flushnormalpath(path,result,open,tolerance) end |