-\input luatexja.sty
-\def\FN{KozMinPr6N-Regular}
-
-\leavevmode
-\tfont\VN=\FN:-vert;jfm=ujisv
-\tfont\VT=\FN:+vert;jfm=ujisv
-\tfont\VU=\FN:+vrt2;jfm=ujisv
-\tfont\VB=\FN:+vert;+vrt2;jfm=ujisv
-\tfont\VD=\FN:jfm=ujisv
-\tentt
+\documentclass{ltjarticle}
+\usepackage[margin=15mm,centering]{geometry}
+\usepackage{lltjext,cancel,luacode}
+%\usepackage{lua-visual-debug}
+\begin{luacode}
+local provides_feature = luaotfload.aux.provides_feature
+local function myfeat_sub(fn,t,a)
+ if provides_feature(
+ fn, t.properties.script, t.properties.language, a
+ ) then
+ tex.sprint('~\\fbox{\\footnotesize\\ttfamily ' .. a .. '}')
+ else
+ tex.sprint('~\\ensuremath{\\xcancel{\\fbox{\\footnotesize\\ttfamily '
+ .. a .. '}}}')
+ end
+end
+function myfeat()
+ local fn = tex.getattribute('ltj@curtfnt')
+ local t = fonts.hashes.identifiers[fn]
+ tex.sprint('~script(lang): \\texttt{' ..
+ t.properties.script .. '}(\\texttt{' .. t.properties.language .. '})')
+ myfeat_sub(fn,t,'vert')
+ myfeat_sub(fn,t,'vrt2')
+end
+\end{luacode}
+
+\begin{document}
\ltjsetparameter{jacharrange={+8}}
-\def\TEST{\tate 上⇦⇧⇩⇨⬅⬆⬇➡下¶\ltjjachar"253B\ltjjachar"0165,}
-\hbox{\TEST}
-\hbox{\VD\TEST ~~~~~default}
-\hbox{\VB\TEST +vert +vrt2}
-\hbox{\VN\TEST -vert -vrt2}
-\hbox{\VT\TEST +vert -vrt2}
-\hbox{\VU\TEST -vert +vrt2}
+\parindent0pt
+\def\ISFEAT#1{}
-\par
+\def\TESTA#1{\newpage
+ \TESTB{#1}{hani}\TESTB{#1}{latn}
+}
+\def\TESTB#1#2{\leavevmode\bgroup
+ \def\FN{#1}%
+ \jfont\HN=\FN:jfm=ujis;script=#2
+ \tfont\VN=\FN:-vert;script=#2;jfm=ujisv
+ \tfont\VT=\FN:+vert;script=#2;jfm=ujisv
+ \tfont\VU=\FN:+vrt2;script=#2;jfm=ujisv
+ \tfont\VB=\FN:+vert;script=#2;+vrt2;jfm=ujisv
+ \tfont\VD=\FN:jfm=ujisv;script=#2
+ \HN\VD font: \texttt{\FN}\directlua{myfeat()}
+ \par\nobreak\medskip\ttfamily
+ \parbox<t>{210pt}{\VD ■default (auto)\\\TEST0}\ \vrule\
+ \parbox<t>{210pt}{\VB ■+vert~+vrt2\\\TEST1}\ \vrule\
+ \parbox<t>{210pt}{\VN ■-vert~-vrt2\\\TEST1}\ \vrule\
+ \parbox<t>{210pt}{\VT ■+vert~-vrt2\\\TEST1}\ \vrule\
+ \parbox<t>{210pt}{\VU ■-vert~+vrt2\\\TEST1}
+ \par\smallskip\hrule\smallskip
+ \parbox<y>{210pt}{\HN ■よこぐみ\\\TEST0}
+ \par\egroup\bigskip
+}
\catcode`\@=11
-\expandafter\@gobble\TEST
+\def\TEST#1{\ltj@vert@ori#1
+ 左←↑↓→☜☝☟☞⇦⇧⇩⇨⬅⬆⬇➡右¶\ltjjachar"253B\ltjjachar"0165\relax
+ あ:いーう,え、お.か。き;け\ltjjachar"201Cこ\ltjjachar"301D%
+ さ\ltjjachar"301Fし\ltjjachar"201Dす\ltjjachar"2015せ\ltjjachar"2014そ
+ ‥…〜ー=―‐゠㍉㌔㌢㍍㌘㌧㌃㌶㍑㍗㌍㌦㌣㌫㍊㌻㍾㍽㍼㍻=≒≠≡\ltjjachar`β%
+ \ltjjachar`Å\ltjjachar`Б}
+
+
+\TESTA{MogaMincho}
+\TESTA{IPAexMincho}
+\TESTA{hgrsmp04.ttf}
+\TESTA{BIZ-UDMinchoM.ttc}
+
+\TESTA{KozMinPr6N-Regular}
+\TESTA{SourceHanSerif-Regular}
+\TESTA{HiraMinProN-W3}
-\bye
+\end{document}