summaryrefslogtreecommitdiff
path: root/tex/context/base/mkxl/mlib-pps.lmt
diff options
context:
space:
mode:
authorHans Hagen <pragma@wxs.nl>2022-07-06 22:05:18 +0200
committerContext Git Mirror Bot <phg@phi-gamma.net>2022-07-06 22:05:18 +0200
commit82c674fdcf5bcff4ad0dc0936d638fc729145616 (patch)
tree6ab4ee4417aa22180cd5b3c50ede6a031f8ce3f9 /tex/context/base/mkxl/mlib-pps.lmt
parent3a55e11c7295abf8f2dfe5e9d1c8b153f4518824 (diff)
downloadcontext-82c674fdcf5bcff4ad0dc0936d638fc729145616.tar.gz
2022-07-06 21:35:00
Diffstat (limited to 'tex/context/base/mkxl/mlib-pps.lmt')
-rw-r--r--tex/context/base/mkxl/mlib-pps.lmt4
1 files changed, 3 insertions, 1 deletions
diff --git a/tex/context/base/mkxl/mlib-pps.lmt b/tex/context/base/mkxl/mlib-pps.lmt
index 5d91f0799..3cb26d044 100644
--- a/tex/context/base/mkxl/mlib-pps.lmt
+++ b/tex/context/base/mkxl/mlib-pps.lmt
@@ -759,7 +759,7 @@ local function cm(object)
local ry = fourth.x_coord - tx
if sx == 0 then sx = 0.00001 end
if sy == 0 then sy = 0.00001 end
- return sx, rx, ry, sy, tx, ty
+ return sx, rx, ry, sy, tx, ty -- different order elsewhere !
end
end
return 1, 0, 0, 1, 0, 0 -- weird case
@@ -1620,6 +1620,8 @@ local function pt_process(object,prescript,before,after)
local llx, lly, urx, ury = getcorners(object.path)
if abs(llx) < 0.0001 then llx = 0 end
if abs(lly) < 0.0001 then lly = 0 end
+ if abs(urx) < 0.0001 then urx = 0 end
+ if abs(ury) < 0.0001 then ury = 0 end
before[#before+1] = function()
if pt_action == "set" then
pattern_index = pattern_index + 1