2 \documentclass{ltjsarticle}
3 \usepackage{luatexja-fontspec,luatexja-otf, luacode, booktabs,array,xcolor}
4 \usepackage[scale=0.80]{geometry}
6 \setsansjfont{KozGoPr6N-Regular}
10 local fallback_color = 'red' -- IVS がないときは,この色で既定文字を出力
11 local list_color = 'blue!50!black' -- リスト表示の色
13 local attr_curjfnt = luatexbase.attributes['ltj@curjfnt']
14 local ubyte = unicode.utf8.byte
15 local uchar = unicode.utf8.char
16 local sort = table.sort
19 local pt = luatexja.otf.font_ivs_table[tex.attribute[attr_curjfnt]][c]
22 for i,_ in pairs(pt) do t[1+#t]=i end
23 sort(t); tex.sprint('\\textcolor{' .. list_color .. '}{')
24 for _,i in ipairs(t) do
25 if i<0xF0 then -- only IVS
26 tex.sprint('\\oalign{' .. s .. uchar(i+0xE0100)
27 .. '\\crcr\\hss\\tiny' .. tostring(i) .. '\\hss\\crcr}')
32 tex.sprint('\\textcolor{' .. fallback_color .. '}{' .. s .. '}')
39 %%%%% \IVS[<selector number>]{<character>}
40 %%%%% or \IVS<selector number>{<character>}
41 %%%%% (<selector number>: 0--239, or `?')
42 \def\ltj@ivs@out#1#2{#2\char\numexpr "E0100+#1\relax} % IVS"
43 \def\ltj@ivs@list?#1{\directlua{list_ivs('#1')}}
44 \def\ltj@ivs@grab@num{\expandafter\expandafter\expandafter\ltj@ivs@out\ltj@grab@num}
45 \def\ltj@ivs@nobracket{\@ifnextchar?{\ltj@ivs@list}{\ltj@ivs@grab@num}}
46 \def\ltj@ivs@bracket[#1]{\ltj@ivs@nobracket#1}
47 \def\IVS{\@ifnextchar[{\ltj@ivs@bracket}{\ltj@ivs@nobracket}}
52 \jfontspec{ipamjm} % IPAmj明朝
54 例文はZRさんのブログ記事「ipamjmパッケージでアレしてみた」\footnote{%
55 \verb+http://d.hatena.ne.jp/zrbabbler/20131214/1387029624+}より引用.
57 \paragraph{標準状態では……} 見事に異体字セレクタの部分が全角空きになっている.
60 渡邉󠄏さんとか% { } の中は U+9089 U+E010F
61 渡𫟪󠄂さんとか。% { } の中は U+2B7EA U+E0102
64 \paragraph{IVS処理コードをここで有効化した.}\
65 \directlua{luatexja.otf.enable_ivs()}
69 \MJI15{邉}\MJI25{邉}\MJI27{邉}\MJI26{邉}\MJI26{邉}\MJI16{邊}
70 \MJI18{邊}\textcolor{blue}{\MJI2{𫟪}}\MJI17{邊}〓\\
71 \MJI28{邉}\MJI29{邉}\MJI23{邉}\MJI15{邊}\MJI8{邊}\MJI20{邉}
72 \MJI24{邉}\MJI19{邉}\MJI18{邉}\MJI16{邉}\\
73 \MJI14{邊}\MJI10{邊}\MJI12{邊}\MJI11{邊}\MJI13{邊}\MJI9{邊}
74 \textcolor{blue}{\MJI0{𫟪}}\textcolor{blue}{\MJI1{𫟪}}〓\MJI21{邉}
76 MJ番号を直接指定していたところは,このソース中では無視して下駄「〓」にした.
77 なぜか青色で示した「𫟪」(U+2B7EA)のIVSが機能していないようだが,フォント側にその記述がない,ということ?
79 \directlua{luatexja.otf.enable_ivs()}
82 渡邉󠄏さんとか% { } の中は U+9089 U+E010F
83 渡𫟪󠄂さんとか。% { } の中は U+2B7EA U+E0102
92 \paragraph{IVSとopentype featureの干渉テスト}
96 {\jfontspec{KozMinPr6N-Regular}\TEST}\\
97 {\jfontspec[CJKShape=JIS1978]{KozMinPr6N-Regular}\TEST}\\
98 {\jfontspec[CJKShape=JIS1990]{KozMinPr6N-Regular}\TEST}
107 \begin{tabular}{c>{\tt}ll}
120 \TABLE{IPAmj明朝}{ipamjm}
121 \TABLE{小塚明朝 Pr6N R}{kozminpr6n-regular}
122 %\TABLE{花園明朝A}{hanamina}
123 \TABLE{花園明朝 OpenType}{hanaminotpr6n-regular}
125 \begin{lstlisting}[basicstyle=\tt, columns=fixed, basewidth=.5em]