texlive[50816] Master/texmf-dist: luatexko (6apr19)

[commits+karl at tug.org]

Revision: 50816
          http://tug.org/svn/texlive?view=revision&revision=50816
Author:   karl
Date:     2019-04-06 23:13:13 +0200 (Sat, 06 Apr 2019)
Log Message:
-----------
luatexko (6apr19)

Modified Paths:
--------------
    trunk/Master/texmf-dist/doc/luatex/luatexko/ChangeLog
    trunk/Master/texmf-dist/doc/luatex/luatexko/README
    trunk/Master/texmf-dist/doc/luatex/luatexko/luatexko-doc.pdf
    trunk/Master/texmf-dist/doc/luatex/luatexko/luatexko-doc.tex
    trunk/Master/texmf-dist/tex/luatex/luatexko/luatexko.lua
    trunk/Master/texmf-dist/tex/luatex/luatexko/luatexko.sty

Modified: trunk/Master/texmf-dist/doc/luatex/luatexko/ChangeLog
===================================================================
--- trunk/Master/texmf-dist/doc/luatex/luatexko/ChangeLog	2019-04-06 21:12:54 UTC (rev 50815)
+++ trunk/Master/texmf-dist/doc/luatex/luatexko/ChangeLog	2019-04-06 21:13:13 UTC (rev 50816)
@@ -1,3 +1,9 @@
+2019-04-06      Dohyun Kim <nomos at ktug org>
+
+	Version 1.24
+
+	* luatexko.lua: fix a bug regarding vertical typesetting
+
 2019-03-24      Dohyun Kim <nomos at ktug org>
 
 	Version 1.23

Modified: trunk/Master/texmf-dist/doc/luatex/luatexko/README
===================================================================
--- trunk/Master/texmf-dist/doc/luatex/luatexko/README	2019-04-06 21:12:54 UTC (rev 50815)
+++ trunk/Master/texmf-dist/doc/luatex/luatexko/README	2019-04-06 21:13:13 UTC (rev 50816)
@@ -1,4 +1,4 @@
-LuaTeX-ko Package version 1.23 (2019/03/24)
+LuaTeX-ko Package version 1.24 (2019/04/06)
 ===========================================
 
 This is a Lua(La)TeX macro package that supports typesetting Korean

Modified: trunk/Master/texmf-dist/doc/luatex/luatexko/luatexko-doc.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/doc/luatex/luatexko/luatexko-doc.tex
===================================================================
--- trunk/Master/texmf-dist/doc/luatex/luatexko/luatexko-doc.tex	2019-04-06 21:12:54 UTC (rev 50815)
+++ trunk/Master/texmf-dist/doc/luatex/luatexko/luatexko-doc.tex	2019-04-06 21:13:13 UTC (rev 50816)
@@ -65,7 +65,7 @@
 \author{Dohyun Kim \normalsize |<nomos at ktug org>| \and
         Soojin Nam \normalsize |<jsunam at gmail com>| \and
   \normalsize <\url{http://github.com/dohyunkim/luatexko}>}
-\date{Version 1.23\quad 2019/03/24}
+\date{Version 1.24\quad 2019/04/06}
 \maketitle
 
 \begin{quote}\small

Modified: trunk/Master/texmf-dist/tex/luatex/luatexko/luatexko.lua
===================================================================
--- trunk/Master/texmf-dist/tex/luatex/luatexko/luatexko.lua	2019-04-06 21:12:54 UTC (rev 50815)
+++ trunk/Master/texmf-dist/tex/luatex/luatexko/luatexko.lua	2019-04-06 21:13:13 UTC (rev 50816)
@@ -13,8 +13,8 @@
 
 luatexbase.provides_module {
   name        = 'luatexko',
-  date        = '2019/03/24',
-  version     = '1.23',
+  date        = '2019/04/06',
+  version     = '1.24',
   description = 'Korean linebreaking and font-switching',
   author      = 'Dohyun Kim, Soojin Nam',
   license     = 'LPPL v1.3+',
@@ -844,8 +844,8 @@
         d_set_attribute(curr, finemathattr, 1)
         cjk_insert_nodes(head,curr,0,nil,prevchar,prevfont,was_penalty)
         d_unset_attribute(curr,finemathattr)
+        prevchar,prevfont,prevfine = 0,nil,nil -- treat \verb as latin character.
       end
-      prevchar,prevfont,prevfine = 0,nil,nil -- treat \verb as latin character.
     end
     curr = d_getnext(curr)
   end
@@ -2048,18 +2048,16 @@
     return
   end
 
-  local id = fontdefine(table.copy(vf)) -- fastcopy takes time too long.
-
-  vf.type = 'virtual'
-  vf.fonts = {{ id = id }}
   local params    = vf.parameters   or {}
   local shared    = vf.shared       or {}
   local quad      = params.quad     or 655360
   local ascender  = params.ascender or quad*0.8
+  local descender = params.descender or quad*0.2
   local factor    = params.factor   or 655.36
   local xheight   = params.x_height or quad/2
   local goffset   = xheight/2 - quad/2
   local descriptions = shared.rawdata and shared.rawdata.descriptions
+  local spbp = 65536*(7227/7200)
   for i,v in pairs(vf.characters) do
     local dsc     = descriptions[i]
     local gl      = v.index
@@ -2070,19 +2068,18 @@
     local asc     = bb4 and tsb and (bb4+tsb)*factor or ascender
     local hw      = v.width or quad
     local offset  = hw/2 + goffset
-    local vh      = hw > 0 and hw/2 or nil
+    local vh      = hw > 0 and hw or 0
+    asc = asc/spbp; offset = offset/spbp
     v.commands = {
-      {'right',   asc}, -- bbox4 + top_side_bearing
-      {'down',    offset},
-      {'special', 'pdf: q 0 1 -1 0 0 0 cm'},
+      {'special', stringformat('pdf:q 0 1 -1 0 %.3f %.3f cm', asc, -offset)},
       {'push'},
       {'char',    i},
       {'pop'},
-      {'special', 'pdf: Q'},
+      {'special', 'pdf:Q'},
     }
     v.width   = vw
-    v.height  = vh
-    v.depth   = vh
+    v.height  = vh*(ascender/quad)
+    v.depth   = vh*(descender/quad)
     v.italic  = nil
   end
   --- vertical gpos

Modified: trunk/Master/texmf-dist/tex/luatex/luatexko/luatexko.sty
===================================================================
--- trunk/Master/texmf-dist/tex/luatex/luatexko/luatexko.sty	2019-04-06 21:12:54 UTC (rev 50815)
+++ trunk/Master/texmf-dist/tex/luatex/luatexko/luatexko.sty	2019-04-06 21:13:13 UTC (rev 50816)
@@ -23,7 +23,7 @@
   \expandafter\endinput
 \fi
 
-\ProvidesPackage{luatexko}[2019/03/24 v1.23 Typesetting Korean with LuaLaTeX]
+\ProvidesPackage{luatexko}[2019/04/06 v1.24 Typesetting Korean with LuaLaTeX]
 
 \ifdefined\adjustspacing\else % luatex < 0.87
   \let\adjustspacing\pdfadjustspacing