- fshift = call_callback("luatexja.set_width", fshift, met, class)
- local fheight, fdepth = char_data.height, char_data.depth
-
- setfield(p, 'char', ltjd.get_vert_glyph(getfont(p), getchar(p)))
-
- local y_shift
- = - getfield(p, 'yoffset') + (has_attr(p,attr_tkblshift) or 0)
- local q
- head, q = node_remove(head, p)
- local box = node_new(id_hlist)
- setfield(box, 'width', fwidth)
- setfield(box, 'height', fheight)
- setfield(box, 'depth', fdepth)
- setfield(box, 'shift', y_shift)
- setfield(box, 'dir', dir)
-
- local k1 = node_new(id_kern)
- setfield(k1, 'kern',
- getfield(p, 'xoffset') + ascent
- + char_data.align*(fwidth-pwidth) - fshift.left)
- local ws = node_new(id_whatsit, sid_save)
- local wm = node_new(id_whatsit, sid_matrix)
- setfield(wm, 'data', '0 1 -1 0')
- local k2 = node_new(id_kern)
- setfield(k2, 'kern', -fshift.down - fdepth)
- local k3 = node_new(id_kern)
- setfield(k3, 'kern', - getfield(p, 'width') +fshift.down + fdepth)
- local wr = node_new(id_whatsit, sid_restore)
- setfield(box, 'head', k1); setfield(k1, 'next', ws)
- setfield(ws, 'next', wm); setfield(wm, 'next', k2);
- setfield(k2, 'next', p); setfield(p, 'next', k3);
- setfield(k3, 'next', wr);
-
- set_attr(box, attr_icflag, PACKED + get_pr_begin_flag(p))
- head = q and node_insert_before(head, q, box)
- or node_insert_after(head, node_tail(head), box)
- return q
+ fshift = call_callback("luatexja.set_width", fshift, met, char_data)
+ local fheight = char_data.height or 0
+ local fdepth = char_data.depth or 0
+ local xo, yo = getoffsets(p)
+ local y_shift = xo + (has_attr(p,attr_tkblshift) or 0)
+ local q
+ head, q = node_remove(head, p)
+ local box = node_new(id_hlist)
+ setwhd(box, fwidth, fheight, fdepth)
+ setfield(box, 'shift', y_shift)
+ setdir(box, dir)
+
+ setoffsets(p, -fshift.down,
+ yo -(ascent + char_data.align*(fwidth-pwidth) - fshift.left) )
+ 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 = -round(0.5*getwidth(p))
+ local k2 = node_new(id_kern, 1); setkern(k2, pwnh)
+ local k3 = node_new(id_kern, 1); setkern(k3, -getwidth(p)-pwnh)
+ local wr = node_new(id_whatsit, sid_restore)
+ setfield(box, 'head', ws)
+ setnext(ws, wm); setnext(wm, k2);
+ setnext(k2, p); setnext(p, k3);
+ setnext(k3, wr);
+
+ set_attr(box, attr_icflag, PACKED)
+ head = q and node_insert_before(head, q, box)
+ or node_insert_after(head, node_tail(head), box)
+ return q, head, box