X-Git-Url: http://git.osdn.jp/view?a=blobdiff_plain;f=test%2Ftest51a-vert_vrt2.tex;h=3465bb0d12ff2fc4d187bd8a3ecfc4b62d5d30ba;hb=f078ac2f7998a102c7ec765e725f2269eed9f872;hp=62325949acd8a6dfb7b6f7c8bc3608d68097c8c9;hpb=49feaba67a4e52f1fa1bcf35a5b2187222412a46;p=luatex-ja%2Fluatexja.git

diff --git a/test/test51a-vert_vrt2.tex b/test/test51a-vert_vrt2.tex
index 6232594..3465bb0 100644
--- a/test/test51a-vert_vrt2.tex
+++ b/test/test51a-vert_vrt2.tex
@@ -1,40 +1,64 @@
-\input luatexja.sty
-\def\FN{KozMinPr6N-Regular}
-\hoffset-10mm
-\voffset-10mm
-\hsize180mm
-\vsize260mm
+\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}
 
-\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
+\begin{document}
 \ltjsetparameter{jacharrange={+8}}
-\catcode`\@=11
 \parindent0pt
+\def\ISFEAT#1{}
 
-\def\TESTA{\leavevmode
-\vbox{\hsize=21\zw\TEST}
-\ \vrule\ 
-\vbox{\hsize=210pt\VD\TEST \hfill\break\null\hfill~~~~default}
-\ \vrule\ 
-\vbox{\hsize=210pt\VB\TEST \hfill\break\null\hfill+vert +vrt2}
-\ \vrule\ 
-\vbox{\hsize=210pt\VN\TEST \hfill\break\null\hfill-vert -vrt2}
-\ \vrule\ 
-\vbox{\hsize=210pt\VT\TEST \hfill\break\null\hfill+vert -vrt2}
-\ \vrule\ 
-\vbox{\hsize=210pt\VU\TEST \hfill\break\null\hfill-vert +vrt2}
-\par
-\expandafter\@gobble\TEST\par}
+\def\TESTA#1{\leavevmode\bgroup
+  \def\FN{#1}%
+  \jfont\HN=\FN:jfm=ujis;script=hani
+  \tfont\VN=\FN:-vert;script=hani;jfm=ujisv
+  \tfont\VT=\FN:+vert;script=hani;jfm=ujisv
+  \tfont\VU=\FN:+vrt2;script=hani;jfm=ujisv
+  \tfont\VB=\FN:+vert;script=hani;+vrt2;jfm=ujisv
+  \tfont\VD=\FN:jfm=ujisv;script=hani
+  \HN\VD font: \texttt{\FN}\directlua{myfeat()}
+  \par\nobreak\medskip\ttfamily
+  \parbox<t>{210pt}{\VD ■default\\\TEST}\ \vrule\ 
+  \parbox<t>{210pt}{\VB ■+vert~+vrt2\\\TEST}\ \vrule\ 
+  \parbox<t>{210pt}{\VN ■-vert~-vrt2\\\TEST}\ \vrule\ 
+  \parbox<t>{210pt}{\VT ■+vert~-vrt2\\\TEST}\ \vrule\ 
+  \parbox<t>{210pt}{\VU ■-vert~+vrt2\\\TEST}
+  \par\smallskip\hrule\smallskip
+  \parbox<y>{210pt}{\HN ■よこぐみ\\\TEST}
+  \par\egroup\bigskip
+}
 
-\def\TEST{\tate
+\def\TEST{
   左←↑↓→☜☝☟☞⇦⇧⇩⇨⬅⬆⬇➡右¶\ltjjachar"253B\ltjjachar"0165\relax
-  あ：いーう，え、お．か。き；け“こ”さ‘し’す
+  あ：いーう，え、お．か。き；け\ltjjachar"201Cこ\ltjjachar"301D%
+  さ\ltjjachar"301Fし\ltjjachar"201Dす\ltjjachar"2015せ\ltjjachar"2014そ
   ‥…〜ー＝―‐゠㍉㌔㌢㍍㌘㌧㌃㌶㍑㍗㌍㌦㌣㌫㍊㌻㍾㍽㍼㍻＝≒≠≡}
-\TESTA
 
-\bye
+
+\TESTA{MogaMincho}
+\TESTA{IPAexMincho}
+\TESTA{KozMinPr6N-Regular}
+
+\end{document}