support vertical origin (requires luaotfload 2019-07-24 or later)

[luatex-ja/luatexja.git] / test / test19-ivs.tex

diff --git a/test/test19-ivs.tex b/test/test19-ivs.tex
index 670e8f3..3f28997 100644 (file)
--- a/test/test19-ivs.tex
+++ b/test/test19-ivs.tex
@@ -2,9 +2,12 @@
 \documentclass{ltjsarticle}
 \usepackage{luatexja-fontspec,luatexja-otf, luacode, booktabs,array,xcolor}
 \usepackage[scale=0.80]{geometry}
+\usepackage{listings}
+\setsansjfont{KozGoPr6N-Regular}
 
 % \IVS[?] 用
 \begin{luacode}
+   local identifiers = fonts.hashes.identifiers
    local fallback_color = 'red'  -- IVS がないときは，この色で既定文字を出力
    local list_color = 'blue!50!black'     -- リスト表示の色
 
@@ -14,15 +17,19 @@
    local sort = table.sort
    function list_ivs(s)
       local c = ubyte(s)
-      local pt = luatexja.otf.font_ivs_table[tex.attribute[attr_curjfnt]][c]
+      local pt = identifiers[tex.getattribute(attr_curjfnt)].resources
+      pt = pt and pt.variants
       if pt then
          local t = {}
-         for i,_ in pairs(pt) do t[1+#t]=i end
-         sort(t); tex.sprint('\\textcolor{' .. list_color .. '}{')
-         for _,i in ipairs(t) do 
-            if i<0xF0 then -- only IVS
-               tex.sprint('\\oalign{' .. s .. uchar(i+0xE0100)
-                          .. '\\crcr\\hss\\tiny' .. tostring(i) .. '\\hss\\crcr}') 
+         for i,v in pairs(pt) do
+           if v[c] then t[#t+1]={i,v[c]} end
+         end
+         sort(t, function(a,b) return a[1]<b[1] end)
+         tex.sprint('\\textcolor{' .. list_color .. '}{')
+         for _,i in ipairs(t) do
+            if i[1]>=0xE0100 then -- only IVS
+               tex.sprint('\\oalign{' .. s .. uchar(i[1])
+                          .. '\\crcr\\hss\\tiny' .. tostring(i[1]-0xE0100) .. '\\hss\\crcr}')
             end
          end
          tex.sprint('}')
@@ -37,7 +44,7 @@
 %%%%%    \IVS[<selector number>]{<character>}
 %%%%% or \IVS<selector number>{<character>}
 %%%%% (<selector number>: 0--239, or `?')
-\def\ltj@ivs@out#1#2{#2\char\numexpr "E0100+#1\relax} % IVS
+\def\ltj@ivs@out#1#2{#2\char\numexpr "E0100+#1\relax} % IVS"
 \def\ltj@ivs@list?#1{\directlua{list_ivs('#1')}}
 \def\ltj@ivs@grab@num{\expandafter\expandafter\expandafter\ltj@ivs@out\ltj@grab@num}
 \def\ltj@ivs@nobracket{\@ifnextchar?{\ltj@ivs@list}{\ltj@ivs@grab@num}}
@@ -52,15 +59,12 @@
 例文はZRさんのブログ記事「ipamjmパッケージでアレしてみた」\footnote{%
 \verb+http://d.hatena.ne.jp/zrbabbler/20131214/1387029624+}より引用．
 
-\paragraph{標準状態では……} 見事に異体字セレクタの部分が全角空きになっている．
 \begin{quote}
 \LARGE
 渡邉󠄏さんとか%    { } の中は U+9089 U+E010F
 渡𫟪󠄂さんとか。% { } の中は U+2B7EA U+E0102
 \end{quote}
 
-\paragraph{IVS処理コードをここで有効化した．}\ 
-\directlua{luatexja.otf.enable_ivs()}
 
 \begin{quote}
 \LARGE
@@ -72,9 +76,8 @@
 \textcolor{blue}{\MJI0{𫟪}}\textcolor{blue}{\MJI1{𫟪}}〓\MJI21{邉}
 \end{quote}
 MJ番号を直接指定していたところは，このソース中では無視して下駄「〓」にした．
-なぜか青色で示した「𫟪」(U+2B7EA)のIVSが機能していないようだが，フォント側にその記述がない，ということ？
+青色は「𫟪」(U+2B7EA)のIVS．
 
-\directlua{luatexja.otf.enable_ivs()}
 \begin{quote}
 \LARGE
 渡邉󠄏さんとか%    { } の中は U+9089 U+E010F
@@ -106,6 +109,7 @@ MJ番号を直接指定していたところは，このソース中では無視
       \toprule
       文字&Unicode&異体字\\
       \midrule
+      今&U+4ECA&\IVS?{今}\\
       邉&U+9089&\IVS?{邉}\\
       邊&U+908A&\IVS?{邊}\\
       𫟪&U+2B7EA&\IVS?{𫟪}\\
@@ -117,7 +121,11 @@ MJ番号を直接指定していたところは，このソース中では無視
 
 \TABLE{IPAmj明朝}{ipamjm}
 \TABLE{小塚明朝 Pr6N R}{kozminpr6n-regular}
-\TABLE{花園明朝A}{hanamina}
-\TABLE{花園明朝 OpenType}{hanaminotpr6n-regular}
+\TABLE{Source Han Serif Regular}{Source\space Han\space Serif\space Regular}
+
+\begin{lstlisting}[basicstyle=\tt, columns=fixed, basewidth=.5em]
+奈良県葛󠄀城市と東京都葛󠄁飾区．%
+江戸川区葛西はどっち？
+\end{lstlisting}
 
-\end{document}
\ No newline at end of file
+\end{document}