From 438b065a2337ee587442f25ddc587c4762f4d0b0 Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Mon, 9 Sep 2019 14:55:35 +0200 Subject: 2019-09-09 13:52:00 --- tex/context/base/mkiv/mlib-pdf.lua | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'tex/context/base/mkiv/mlib-pdf.lua') 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 -- cgit v1.2.3