1 \documentclass{ltjarticle}
2 \usepackage[margin=15mm,centering]{geometry}
3 \usepackage{lltjext,xcolor}
4 %\usepackage{lua-visual-debug}
6 \protected\def\ltjuprightchar{\afterassignment\ltj@@uprightcharchar\ltj@tempcnta}
7 \def\ltj@@uprightchar{{\directlua{tex.globaldefs=0}\ltj@alljachar
8 \ltj@vert@ori\@ne\ltj@@origchar\ltj@tempcnta}}
9 \def\ltjvertupright{\ltj@vert@ori\@ne}
13 \setbox0=\hbox to0pt{\yoko\hss\smash{#1} \kern-\zw\hss}%
16 \def\YL{\rlap{\textcolor{cyan!50!white}{\vrule height 0.05mm depth 0.05mm width 500pt}}}
17 \def\TEST#1{\smash{\hbox to 0pt{\tate%
19 \tfont\A=#1:jfm=ujisv at 10pt\A
20 \jfont\B=#1:jfm=ujis at 10pt\B
21 国\V T\V y\V p\V o\V g\V r\V a\V p\V h\V Y国\V Q国
22 \V J国\V{\ltjjachar`Å}国\V{\ltjjachar`β}国
24 \smash{\hbox to 0pt{\tate\ltjvertupright%
25 \hbox to 120pt{\ttfamily #1\hss}\YL%
26 \tfont\A=#1:jfm=ujisv;notdef=false at 10pt\A
27 国TypographY国Q国J国\ltjjachar`Å国\ltjjachar`β国\ltjjachar"3031国
31 % AJ1-6 には Å の pre-rotated glyph あり→こいつは回転してはいけない
32 % TODO: notdef があると乱れる
34 \def\TL{\smash{\rlap{\hbox to 0pt{\tate%
35 \kern120pt\color{cyan}\kern-0.05mm%
36 \count2=0 \loop\ifnum\count2<50
37 \vrule height 400pt depth 0pt width 0.1mm\kern\dimexpr10pt-0.1mm%
38 \advance\count2 by 1\relax\repeat
45 \TEST{KozMinPr6N-Regular}
47 \TEST{SourceHanSerif-Regular}