test/test04-jfm.tex

   1 %#!luatex
   2 \input luatexja-core.sty
   3
   4 \def\head#1{\medskip\noindent{\bf\tengt ■ #1}\par}
   5 \jfont\rml={psft:Ryumin-Light:jfm=ujis} at 10pt
   6 \rml あ\inhibitglue\char"201Cあ・い←Ryumin-Light
   7
   8 \jfont\rml={file:ipam.ttf:jfm=ujis} at 10pt
   9 \rml あ\inhibitglue\char"201Cあ・い←IPA\hbox{}明朝 (ipam)
  10
  11 \jfont\rml={file:KozMinPr6N-Regular.otf:jfm=ujis} at 10pt
  12 \rml あ\inhibitglue\char"201Cあ・い←KozMinPr6N-Regular
  13
  14 \jfont\rml={file:ipamp.ttf:jfm=ujis} at 10pt
  15 \rml あ\inhibitglue\char"201Cあ・い←IPA P\hbox{}明朝 (ipamp)
  16
  17 {\scrollmode
  18 \globaljfont\rml={psft:GothicBBB-Medium:jfm=bad} at 10pt % must be error
  19 }
  20 \rml あ123 % \rml は未定義となる
  21 {\tt\meaning\rml}
  22
  23 \bigskip
  24 \font\rml={file:ipaexg.ttf} at 10pt\rml
  25
  26 ここからは，欧文文字フォントはIPA EXゴシック
  27
  28
  29 \head{文字範囲の代入/取得テスト}
  30
  31 \ltjdefcharrange{2}{`あ,"E0-"FF}
  32 「\char"F4」は2番の文字範囲なので，和文扱いのはず
  33
  34 {iso8859-1 和文扱い:\ltjsetparameter{jacharrange={1}}%
  35 \ltjgetparameter{jacharrange}{1}%
  36 § ¶ ° £ ¥ \char"F4}
  37
  38 {iso8859-1 欧文扱い:\ltjsetparameter{jacharrange={-1}}%
  39 \ltjgetparameter{jacharrange}{1}%
  40 § ¶ ° £ ¥ \char"F4}
  41
  42
  43 \head{文字範囲の状況取得}
  44 \ltjgetparameter{jacharrange}{0}
  45 \ltjgetparameter{jacharrange}{1}
  46 \ltjgetparameter{jacharrange}{2}
  47
  48 \head{文字コード→文字範囲}
  49 \ltjgetparameter{chartorange}{`い} % must be 217
  50 \ltjgetparameter{chartorange}{`§} % must be 1
  51 \ltjgetparameter{chartorange}{"F7} % must be 2
  52 \ltjgetparameter{chartorange}{-1}  % must be error "
  53
  54 \medskip
  55 \ltjsetparameter{jacharrange={-217}}
  56 ほとんど欧文扱い．2番は別（「あ」）
  57 \ltjsetparameter{jacharrange={218}}
  58 和文扱いにもどる
  59
  60 ↓「あ」「い」「え」「お」以外はプロポーショナル組（IPA P明朝）
  61
  62 \jfont\rmlh={file:ipamp.ttf:jfm=hang} at 10pt
  63 \rmlh プロポーショナルのテスト！あいうえおさ，かき・くけこ
  64
  65
  66
  67 \vfill\eject
  68 \head{‘lineend’検証}
  69 \jfont\rmlh={psft:Ryumin-Light:jfm=hang} at 10pt
  70 \jfont\sixgt={psft:GothicBBB-Medium:jfm=ujis} at 6pt
  71 \font\sixtt=cmtt10 at 6pt
  72
  73
  74 \def\dumplist#1{\par\noindent\leavevmode
  75 \hbox to 0.2\hsize{\copy#1\hss}%
  76 \vbox{\hsize=0.6\hsize\sixtt\baselineskip=7.2pt\sixgt\let\\=\relax
  77 \directlua{ltj.ext_show_node_list(tex.getbox(#1).head, '\\par', tex.print)}\hrule}}
  78
  79 \setbox0=\hbox{\rmlh あえあいえ}
  80 \dumplist0
  81
  82 \medskip
  83 \ltjsetparameter{postbreakpenalty={`あ,100}}
  84 \ltjsetparameter{postbreakpenalty={`い,100}}
  85 \ltjsetparameter{postbreakpenalty={`う,100}}
  86 \ltjsetparameter{postbreakpenalty={`え,100}}
  87 \setbox0=\hbox{\rmlh あえあいえ}
  88 \dumplist0
  89
  90 \head{italic correction}
  91
  92 \setbox0=\hbox{x{\rmlh お\/}（{\rmlh お\/}あ}
  93 \dumplist0
  94
  95 \setbox0=\hbox{x{\it f\/}（{\it g\/}あ}
  96 \dumplist0
  97
  98 \end