Fix ticket #34631

diff --git a/src/ltj-setwidth.lua b/src/ltj-setwidth.lua
index 7d282d5..0a5c678 100644 (file)
--- a/src/ltj-setwidth.lua
+++ b/src/ltj-setwidth.lua
@@ -179,9 +179,9 @@ local function capsule_glyph_tate(p, met, class, head, dir)
    local ws = node_new(id_whatsit, sid_save)
    local wm = node_new(id_whatsit, sid_matrix)
    setfield(wm, 'data', '0 1 -1 0')
-   local pwnh = - 0.5*getfield(p, 'width')
-   local k2 = node_new(id_kern); setfield(k2, 'kern', - 0.5*getfield(p, 'width'))
-   local k3 = node_copy(k2)
+   local pwnh = -round(0.5*getfield(p, 'width'))
+   local k2 = node_new(id_kern); setfield(k2, 'kern', pwnh)
+   local k3 = node_new(id_kern); setfield(k3, 'kern', -getfield(p, 'width')-pwnh)
    local wr = node_new(id_whatsit, sid_restore)
    setfield(box, 'head', ws)
    setfield(ws, 'next', wm);  setfield(wm, 'next', k2);