test/test51b-vorg.tex

   1 \documentclass{ltjarticle}
   2 \usepackage[margin=15mm,centering]{geometry}
   3 \usepackage{lltjext,xcolor}
   4 %\usepackage{lua-visual-debug}
   5 \makeatletter
   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}
  10 \begin{document}
  11 \sffamily
  12 \def\V#1{%
  13   \setbox0=\hbox to0pt{\yoko\hss\smash{#1}　\kern-\zw\hss}%
  14   \box0\relax
  15 }
  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%
  18   \kern120pt\YL%
  19   \tfont\A=#1:jfm=ujisv at 10pt\A
  20   \jfont\B=#1:jfm=ujis at 10pt\B
  21   国\V Ｔ\V ｙ\V ｐ\V ｏ\V ｇ\V ｒ\V ａ\V ｐ\V ｈ\V Ｙ国\V Ｑ国
  22   \V Ｊ国\V{\ltjjachar`Å}国\V{\ltjjachar`β}国
  23   \hss}}%
  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   国ＴｙｐｏｇｒａｐｈＹ国Ｑ国Ｊ国\ltjjachar`Å国\ltjjachar`β国\ltjjachar"3031国
  28   \ltjjachar"41国
  29   \hss}}\quad}
  30
  31 % AJ1-6 には Å の pre-rotated glyph あり→こいつは回転してはいけない
  32 % TODO: notdef があると乱れる
  33
  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
  39 }}}}
  40
  41 \leavevmode
  42 \TL
  43 \TEST{IPAExMincho}
  44 \TEST{HiraMinProN-W3}
  45 \TEST{KozMinPr6N-Regular}
  46 \TEST{YuMincho}
  47 \TEST{SourceHanSerif-Regular}
  48
  49 \end{document}
  50