test/test51a-vert_vrt2.tex

   1 \documentclass{ltjarticle}
   2 \usepackage[margin=15mm,centering]{geometry}
   3 \usepackage{lltjext,cancel,luacode}
   4 %\usepackage{lua-visual-debug}
   5 \begin{luacode}
   6 local provides_feature = luaotfload.aux.provides_feature
   7 local function myfeat_sub(fn,t,a)
   8   if provides_feature(
   9     fn, t.properties.script, t.properties.language, a
  10   ) then
  11     tex.sprint('~\\fbox{\\footnotesize\\ttfamily ' .. a .. '}')
  12   else
  13     tex.sprint('~\\ensuremath{\\xcancel{\\fbox{\\footnotesize\\ttfamily '
  14       .. a .. '}}}')
  15   end
  16 end
  17 function myfeat()
  18   local fn = tex.getattribute('ltj@curtfnt')
  19   local t = fonts.hashes.identifiers[fn]
  20   tex.sprint('~script(lang): \\texttt{' ..
  21     t.properties.script .. '}(\\texttt{' .. t.properties.language .. '})')
  22   myfeat_sub(fn,t,'vert')
  23   myfeat_sub(fn,t,'vrt2')
  24 end
  25 \end{luacode}
  26
  27 \begin{document}
  28 \ltjsetparameter{jacharrange={+8}}
  29 \parindent0pt
  30 \def\ISFEAT#1{}
  31
  32 \def\TESTA#1{\newpage
  33     \TESTB{#1}{hani}\TESTB{#1}{latn}
  34 }
  35 \def\TESTB#1#2{\leavevmode\bgroup
  36   \def\FN{#1}%
  37   \jfont\HN=\FN:jfm=ujis;script=#2
  38   \tfont\VN=\FN:-vert;script=#2;jfm=ujisv
  39   \tfont\VT=\FN:+vert;script=#2;jfm=ujisv
  40   \tfont\VU=\FN:+vrt2;script=#2;jfm=ujisv
  41   \tfont\VB=\FN:+vert;script=#2;+vrt2;jfm=ujisv
  42   \tfont\VD=\FN:jfm=ujisv;script=#2
  43   \HN\VD font: \texttt{\FN}\directlua{myfeat()}
  44   \par\nobreak\medskip\ttfamily
  45   \parbox<t>{210pt}{\VD ■default (auto)\\\TEST0}\ \vrule\
  46   \parbox<t>{210pt}{\VB ■+vert~+vrt2\\\TEST1}\ \vrule\
  47   \parbox<t>{210pt}{\VN ■-vert~-vrt2\\\TEST1}\ \vrule\
  48   \parbox<t>{210pt}{\VT ■+vert~-vrt2\\\TEST1}\ \vrule\
  49   \parbox<t>{210pt}{\VU ■-vert~+vrt2\\\TEST1}
  50   \par\smallskip\hrule\smallskip
  51   \parbox<y>{210pt}{\HN ■よこぐみ\\\TEST0}
  52   \par\egroup\bigskip
  53 }
  54
  55 \catcode`\@=11
  56 \def\TEST#1{\ltj@vert@ori#1
  57   左←↑↓→☜☝☟☞⇦⇧⇩⇨⬅⬆⬇➡右¶\ltjjachar"253B\ltjjachar"0165\relax
  58   あ：いーう，え、お．か。き；け\ltjjachar"201Cこ\ltjjachar"301D%
  59   さ\ltjjachar"301Fし\ltjjachar"201Dす\ltjjachar"2015せ\ltjjachar"2014そ
  60   ‥…〜ー＝―‐゠㍉㌔㌢㍍㌘㌧㌃㌶㍑㍗㌍㌦㌣㌫㍊㌻㍾㍽㍼㍻＝≒≠≡\ltjjachar`β%
  61   \ltjjachar`Å\ltjjachar`Б}
  62
  63
  64 \TESTA{MogaMincho}
  65 \TESTA{IPAexMincho}
  66 \TESTA{hgrsmp04.ttf}
  67 \TESTA{BIZ-UDMinchoM.ttc}
  68
  69 \TESTA{KozMinPr6N-Regular}
  70 \TESTA{SourceHanSerif-Regular}
  71 \TESTA{HiraMinProN-W3}
  72
  73 \end{document}
  74