X-Git-Url: http://git.osdn.jp/view?a=blobdiff_plain;f=no_runtime%2Fmk-rmlgbm-data.tex;h=363d01b124dbb17f76254ffc522df21bf2b9151b;hb=80bbcf52bf096105cf1797a4422a38d400b3fa05;hp=d3b7cddf44ba605b42abfea93ceabc6ef56dc9df;hpb=ec1b9f05249315f983376b65de9469858acf696b;p=luatex-ja%2Fluatexja.git

diff --git a/no_runtime/mk-rmlgbm-data.tex b/no_runtime/mk-rmlgbm-data.tex
index d3b7cdd..363d01b 100644
--- a/no_runtime/mk-rmlgbm-data.tex
+++ b/no_runtime/mk-rmlgbm-data.tex
@@ -2,12 +2,27 @@
 \documentclass{article}
 
 \usepackage{luaotfload}
-\usepackage{luacode}
 
+\font\a=file:AdobeMingStd-Light.otf
+\font\b=file:AdobeMyungjoStd-Medium.otf
+\usepackage{luacode}
 \begin{luacode}
+-- only for debug
+function table_search(tbl, name, prefix)
+  for i,x in pairs(tbl) do
+    if string.match(i, name) then
+      print('found: entry' .. prefix .. '.' .. i)
+    elseif type(x) == 'string' and string.match(x, name)  then
+      print('found: entry' .. prefix .. '.' .. i .. ' = ' .. x)
+    elseif type(x) == 'table' then
+      table_search(x, name, prefix .. '.' .. i)
+    end
+  end
+end
+
 function mkrmlgbm(nonfilename,opfilename)
-	local fontdata = containers.read(fonts.otf.cache, nonfilename)
-		
+	local fontdata = containers.read(fonts.otf.cache, string.lower(nonfilename))
+	
 	-- from fonts.otf.otf_to_tfm()
 	local tfmdata
 	fontdata.shared = fontdata.shared or {
@@ -62,18 +77,46 @@ function mkrmlgbm(nonfilename,opfilename)
 	tfmdata.cache = 'yes'
 	
 	for k, v in pairs(tfmdata.characters) do
-	   tfmdata.characters[k].height = nil
+	   v.height = nil
+	   v.depth = nil
+       if v.width == 655360 then v.width = nil     -- 全角
+       elseif v.width == 327680 then v.width = 327680 -- 半角
+       elseif v.width == 163840 then v.width = 163840 -- 1/4 角
+       elseif v.width == 218234.88 then v.width = 218234.88 -- 1/3 角
+       elseif k>=128 then v.width = nil 
+       end
 	end
 	
+    if fontdata then -- remove gpos data
+      local tmpt = fontdata.shared.featuredata
+      tmpt.gpos_single  = {}
+      tmpt.gpos_pair  = {}
+      tmpt.gpos_reversecontextchain  = {}
+      tmpt.gpos_contextchain  = {}
+      tmpt.gpos_cursive  = {}
+      tmpt.gpos_mark2base  = {}
+      tmpt.gpos_mark2ligature = {}
+      tmpt.gpos_mark2mark = {}
+      shared.otfdata.luatex.features.gpos = nil
+      for i,x in pairs(tfmdata.shared.otfdata.luatex.sequences) do
+        if string.match(x.type,'gpos') then x.subtables = {} end
+      end
+      -- Following features use proportional glyphs, so remove them.
+      shared.otfdata.luatex.features.gsub.pwid = nil
+      shared.otfdata.luatex.features.gsub.pkna = nil
+      shared.otfdata.luatex.features.gsub.palt = nil
+    end
+
 	-- for luaotfload
-	fontdata.pfminfo.os2_capheight = 0
-	
+	if fontdata.pfminfo then
+	  fontdata.pfminfo.os2_capheight = 0
+	end
 	table.tofile(opfilename, tfmdata, 'return', false, true, false)
 end
-mkrmlgbm('AdobeMingStd-Light', 'luatexja-cid-std-adobe-cns1.lua')
-mkrmlgbm('AdobeSongStd-Light', 'luatexja-cid-std-adobe-gb1.lua')
-mkrmlgbm('KozMinPr6N-Regular', 'luatexja-cid-std-adobe-japan1.lua')
-mkrmlgbm('AdobeMyungjoStd-Medium', 'luatexja-cid-std-adobe-korea1.lua')
+mkrmlgbm('AdobeMingStd-Light', 'ltj-cid-adobe-cns1.lua')
+mkrmlgbm('AdobeSongStd-Light', 'ltj-cid-adobe-gb1.lua')
+mkrmlgbm('KozMinPr6N-Regular', 'ltj-cid-adobe-japan1.lua')
+mkrmlgbm('AdobeMyungjoStd-Medium', 'ltj-cid-adobe-korea1.lua')
 \end{luacode}
 
 \begin{document}