summaryrefslogtreecommitdiff
path: root/tex/context/base/mkiv/mlib-pdf.lua
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/mkiv/mlib-pdf.lua')
-rw-r--r--tex/context/base/mkiv/mlib-pdf.lua5
1 files changed, 5 insertions, 0 deletions
diff --git a/tex/context/base/mkiv/mlib-pdf.lua b/tex/context/base/mkiv/mlib-pdf.lua
index 92fde5e13..65f3b2016 100644
--- a/tex/context/base/mkiv/mlib-pdf.lua
+++ b/tex/context/base/mkiv/mlib-pdf.lua
@@ -400,6 +400,7 @@ function metapost.flush(specification,result)
local linecap = -1
local linejoin = -1
local dashed = false
+local linewidth = false
local llx = properties.llx
local lly = properties.lly
local urx = properties.urx
@@ -527,7 +528,10 @@ function metapost.flush(specification,result)
if pen then
if pen.type == "elliptical" then
transformed, penwidth = pen_characteristics(original) -- boolean, value
+if penwidth ~= linewidth then
result[#result+1] = f_w(penwidth) -- todo: only if changed
+ linewidth = penwidth
+end
if objecttype == "fill" then
objecttype = "both"
end
@@ -614,6 +618,7 @@ function metapost.flush(specification,result)
if object.grouped then
-- can be qQ'd so changes can end up in groups
miterlimit, linecap, linejoin, dashed = -1, -1, -1, "" -- was false
+linewidth = false
end
end
end