1 %#!luatex test04-jfm.tex
2 \input luatexja-core.sty
3 \def\head#1{\medskip\penalty-100\noindent{\bf\tengt ■ #1}\par\penalty10000 }
4 \jfont\rml={psft:Ryumin-Light:jfm=ujis} at 10pt
5 \rml あ\inhibitglue\char"201Cあ・い\inhibitglue ()あ←Ryumin-Light
7 \jfont\rml={file:ipam.ttf:jfm=ujis} at 10pt
8 \rml あ\inhibitglue\char"201Cあ・い←IPA\hbox{}明朝 (ipam)
10 \jfont\rml={file:KozMinPr6N-Regular.otf:jfm=ujis} at 10pt
11 \rml あ\inhibitglue\char"201Cあ・い←KozMinPr6N-Regular
13 \jfont\rml={file:ipamp.ttf:jfm=ujis} at 10pt
14 \rml あ\inhibitglue\char"201Cあ・い←IPA P\hbox{}明朝 (ipamp)
17 \globaljfont\rml={psft:GothicBBB-Medium:jfm=bad} at 10pt % must be error
19 \rml あ123 % \rml は未定義となる
23 \font\rml={file:ipaexg.ttf} at 10pt\rml
25 ここからは,欧文文字フォントはIPA EXゴシック
30 \ltjdefcharrange{9}{`あ,"E0-"FF}
31 「\char"F4」は9番の文字範囲なので,和文扱いのはず
33 {iso8859-1 和文扱い:\ltjsetparameter{jacharrange={1,8}}%
34 \ltjgetparameter{jacharrange}{1}%
37 {iso8859-1 欧文扱い:\ltjsetparameter{jacharrange={-1,-8}}%
38 \ltjgetparameter{jacharrange}{1}%
42 \ltjgetparameter{jacharrange}{1}%
47 \ltjgetparameter{jacharrange}{0}
48 \ltjgetparameter{jacharrange}{1}
49 \ltjgetparameter{jacharrange}{2}
52 \ltjgetparameter{chartorange}{`A} % must be -1
53 \ltjgetparameter{chartorange}{`い} % must be 6
54 \ltjgetparameter{chartorange}{`§} % must be 8
55 \ltjgetparameter{chartorange}{"F7} % must be 9
56 \ltjgetparameter{chartorange}{-1} % must be error "
57 \ltjgetparameter{chartorange}{"CFFFF} % must be 217"
60 \ltjsetparameter{jacharrange={-217}}
62 \ltjgetparameter{jacharrange}{\ltjgetparameter{chartorange}{"CFFFF}}←CFFFF欧文扱い
63 \ltjsetparameter{jacharrange={218}}
65 \ltjgetparameter{jacharrange}{\ltjgetparameter{chartorange}{"CFFFF}}←CFFFF和文扱い
68 \setbox0=\hbox{\ltjsetparameter{kanjiskip=-5pt}
69 あいうえお\hbox{\ltjsetparameter{kanjiskip=12pt}かきくけこ}さしすせそ\par a}\copy0
72 {\ltjsetparameter{kanjiskip=3pt}
73 あいうえお{\ltjsetparameter{kanjiskip=-5pt}% this setting is ignored
76 {\ltjsetparameter{kanjiskip=3pt}
79 \vfill\eject\tracingonline=0
80 \noindent{\bf\gt 以下はJFMグルー挿入検証}
81 \jfont\rmlh={psft:Ryumin-Light:jfm=test} at 10pt
82 \jfont\sixgt={psft:GothicBBB-Medium:jfm=ujis} at 6pt
83 \font\sixtt=cmtt10 at 6pt
86 \directlua{function print_fn(...)
88 tex.print('\\par ', ...)
90 \unless\ifdefined\ltjgetwd \let\ltjgetwd\wd\fi
91 \def\dumplist#1{\par\noindent\leavevmode
92 {\dimen0=\ltjgetwd#1}%
93 \hbox to 0.2\hsize{\copy#1\hss}%
94 \vbox{\hsize=0.6\hsize\sixtt\baselineskip=7.2pt\sixgt\let\\=\relax
95 \directlua{print('======')
96 luatexja.ext_show_node_list(tex.getbox(#1).head, '', print_fn)
97 print('======')}\hrule}%
101 %\tracingonline=1\tracingoutput=1\showboxdepth=3\showboxbreadth=100
103 \head{JA--JA (penなし)}
105 \setbox0=\hbox{\rmlh あア}\dumplist0
107 \setbox0=\hbox{\rmlh あイ}\dumplist0
109 \setbox0=\hbox{\rmlh あウ}\dumplist0
111 \setbox0=\hbox{\rmlh いア}\dumplist0
113 \setbox0=\hbox{\rmlh いイ}\dumplist0
115 \setbox0=\hbox{\rmlh いウ}\dumplist0
117 \head{JA--EN (penなし)}
119 \setbox0=\hbox{\rmlh あa}\dumplist0
121 \setbox0=\hbox{\rmlh あ(}\dumplist0
123 \setbox0=\hbox{\rmlh あ)}\dumplist0
125 \setbox0=\hbox{\rmlh いa}\dumplist0
127 \setbox0=\hbox{\rmlh うa}\dumplist0
129 \setbox0=\hbox{\rmlh えa}\dumplist0
131 \setbox0=\hbox{\rmlh おa}\dumplist0
133 \head{EN--JA (penなし)}
135 \setbox0=\hbox{\rmlh aあ}\dumplist0
137 \setbox0=\hbox{\rmlh (あ}\dumplist0
139 \setbox0=\hbox{\rmlh )あ}\dumplist0
141 \setbox0=\hbox{\rmlh aい}\dumplist0
143 \setbox0=\hbox{\rmlh aう}\dumplist0
145 \head{JA--明kern (penなし)}
147 \setbox0=\hbox{\rmlh あ\kern3pt}\dumplist0
149 \setbox0=\hbox{\rmlh い\kern3pt}\dumplist0
151 \setbox0=\hbox{\rmlh う\kern3pt}\dumplist0
153 \head{明kern--JA (penなし)}
155 \setbox0=\hbox{\rmlh \kern3ptあ}\dumplist0
157 \setbox0=\hbox{\rmlh \kern3ptい}\dumplist0
159 \setbox0=\hbox{\rmlh \kern3ptう}\dumplist0
161 \head{JA--hbox (penなし)}
163 \setbox0=\hbox{\rmlh あ\hbox{}}\dumplist0
165 \setbox0=\hbox{\rmlh い\hbox{}}\dumplist0
167 \setbox0=\hbox{\rmlh う\hbox{}}\dumplist0
169 \setbox0=\hbox{\rmlh え\hbox{}}\dumplist0
171 \setbox0=\hbox{\rmlh あ\hbox{ア}}\dumplist0
173 \setbox0=\hbox{\rmlh あ\hbox{a}}\dumplist0
175 \setbox0=\hbox{\rmlh い\hbox{a}}\dumplist0
177 \head{hbox--JA (penなし)}
179 \setbox0=\hbox{\rmlh \hbox{}あ}\dumplist0
181 \setbox0=\hbox{\rmlh \hbox{}い}\dumplist0
183 \setbox0=\hbox{\rmlh \hbox{}う}\dumplist0
187 \ltjsetparameter{prebreakpenalty={`(,123}}
188 \ltjsetparameter{postbreakpenalty={`あ,123}}
189 \ltjsetparameter{prebreakpenalty={`い,571}, postbreakpenalty={`い,123}}
190 \ltjsetparameter{postbreakpenalty={`う,123}}
191 \ltjsetparameter{postbreakpenalty={`え,123}}
192 \ltjsetparameter{postbreakpenalty={`お,123}}
193 \ltjsetparameter{postbreakpenalty={`a,321}}
194 \head{JA--JA (penあり)}
196 \setbox0=\hbox{\rmlh あア}\dumplist0
198 \setbox0=\hbox{\rmlh あイ}\dumplist0
200 \setbox0=\hbox{\rmlh あウ}\dumplist0
202 \setbox0=\hbox{\rmlh いア}\dumplist0
204 \setbox0=\hbox{\rmlh いイ}\dumplist0
206 \setbox0=\hbox{\rmlh いウ}\dumplist0
208 \head{JA--EN (penあり)}
210 \setbox0=\hbox{\rmlh あa}\dumplist0
212 \setbox0=\hbox{\rmlh いa}\dumplist0
214 \setbox0=\hbox{\rmlh うa}\dumplist0
216 \setbox0=\hbox{\rmlh えa}\dumplist0
218 \setbox0=\hbox{\rmlh おa}\dumplist0
220 \head{EN--JA (penあり)}
222 \setbox0=\hbox{\rmlh aあ}\dumplist0
224 \setbox0=\hbox{\rmlh aい}\dumplist0
226 \setbox0=\hbox{\rmlh aう}\dumplist0
228 \head{JA--hbox (penあり)}
230 \setbox0=\hbox{\rmlh あ\hbox{}}\dumplist0
232 \setbox0=\hbox{\rmlh い\hbox{}}\dumplist0
234 \setbox0=\hbox{\rmlh う\hbox{}}\dumplist0
236 \setbox0=\hbox{\rmlh え\hbox{}}\dumplist0
238 \setbox0=\hbox{\rmlh あ\hbox{ア}}\dumplist0
240 \setbox0=\hbox{\rmlh あ\hbox{a}}\dumplist0
242 \setbox0=\hbox{\rmlh い\hbox{a}}\dumplist0
244 \setbox0=\hbox{\rmlh \hbox{(}い\hbox{)}}\dumplist0
246 \head{hbox--JA (penあり)}
248 \setbox0=\hbox{\rmlh \hbox{}あ}\dumplist0
250 \setbox0=\hbox{\rmlh \hbox{}い}\dumplist0
252 \setbox0=\hbox{\rmlh \hbox{}う}\dumplist0
254 \head{italic correction}
256 \setbox0=\hbox{\it f\/(\/あ}\dumplist0
261 \noindent{\gt\bf [x]kanjiskipの挿入}
263 \head{kanjiskip from JFM, autospacing (JA--JA)}
264 \setbox0=\hbox{\rmlh ああ}\dumplist0
266 {\ltjsetparameter{kanjiskip=\maxdimen}
267 \setbox0=\hbox{\rmlh ああ}\dumplist0
268 \jfont\rmlk={psft:Ryumin-Light:jfm=test} at 12pt
269 \setbox0=\hbox{\rmlk は\rmlh あ}\dumplist0}
271 \def\naspc{\ltjsetparameter{autospacing=false}\relax}
272 \def\naxspc{\ltjsetparameter{autoxspacing=false}\relax}
273 \setbox0=\hbox{\rmlh あ\naspc ああ}\dumplist0
275 \head{kanjiskip from JFM/autoxspacing (JA--EN)}
276 \setbox0=\hbox{\rmlh まx}\dumplist0
278 \setbox0=\hbox{\rmlh ま\naxspc x}\dumplist0
280 \setbox0=\hbox{\naxspc\rmlh まx}\dumplist0
282 {\ltjsetparameter{xkanjiskip=\maxdimen}\setbox0=\hbox{\rmlh まx}\dumplist0}
284 {\ltjsetparameter{jaxspmode={`ま,preonly}}
285 \setbox0=\hbox{\rmlh まx}\dumplist0}
286 {\ltjsetparameter{alxspmode={`x,postonly}}
287 \setbox0=\hbox{\rmlh まx}\dumplist0}
289 \head{xkanjiskip from JFM/autoxspacing (EN--JA)}
290 \setbox0=\hbox{\rmlh xま}\dumplist0
292 \setbox0=\hbox{\rmlh x\naxspc ま}\dumplist0
294 \setbox0=\hbox{\naxspc\rmlh xま}\dumplist0
296 {\ltjsetparameter{xkanjiskip=\maxdimen}\setbox0=\hbox{\rmlh xま}\dumplist0}
298 {\ltjsetparameter{jaxspmode={`ま,postonly}}
299 \setbox0=\hbox{\rmlh xま}\dumplist0}
300 {\ltjsetparameter{alxspmode={`x,inhibit}}
301 \setbox0=\hbox{\rmlh xまおx}\dumplist0}
303 \head{more than one penalty}
305 \setbox0=\hbox{\rmlh お\penalty1701\penalty1701\penalty1701い}
307 \setbox0=\hbox{\rmlh お\penalty1701\penalty1701\penalty1701お}
309 \setbox0=\hbox{\rmlh あ\penalty1701\penalty1701\penalty1701い}
311 \setbox0=\hbox{\rmlh あ\penalty1701\penalty1701\penalty1701お}
314 \head{その他: italic correction and accents}
316 \setbox0=\hbox{\tenrm あ\/j}
318 \setbox0=\hbox{\tenrm )\/j}
320 \setbox0=\hbox{\tenrm\rmlh れ\v{A})}
323 \head{その他: box boundary}
325 \setbox0=\hbox{\rmlh かあか}
327 \setbox0=\hbox{a\setbox3=\hbox{\rmlh かあか}\unhbox3a}
329 \setbox0=\hbox{a\setbox3=\hbox{\rmlh か}\box3a}
331 \setbox0=\hbox{\rmlh き\hbox{か}き\hbox{き}き}
334 {\ltjsetparameter{postbreakpenalty={`あ,1000},prebreakpenalty={`あ,1000}}
335 \setbox0=\hbox{あ\hbox{(}あ\setbox3=\hbox{(}\unhbox3あ}
339 \head{その他: paragraph, hbox and math boundary}
341 \setbox1=\vbox{\parindent19.2pt \rmlh\hsize=100pt\parfillskip=30pt
342 かエ\par\global\setbox0=\lastbox}
345 \setbox1=\vbox{\noindent\rmlh\hsize=100pt\parfillskip=30pt
346 かエ\par\global\setbox0=\lastbox}
349 \setbox0=\hbox{\rmlh かエ}
352 \setbox0=\hbox{\rmlh あ$a$さ$a$か}
355 \head{その他: unhbox の連続}
357 \setbox0=\hbox{\tenmin\setbox1=\hbox{)}\setbox2=\hbox{a}\unhbox1\unhbox2}
360 \setbox3=\hbox{\tenmin\setbox1=\hbox{)}\setbox2=\hbox{a}\unhbox1\unhbox2}
361 \setbox0=\hbox{\unhbox3}
364 \setbox0=\hbox{\tenmin\setbox1=\hbox{()}\setbox2=\hbox{「」}%
365 \unhcopy1\unhbox1\unhbox2}
368 \setbox0=\hbox{\tenmin\setbox1=\hbox{}あ\unhbox1い}
371 \setbox0=\hbox{\tenmin\setbox1=\hbox{\tate }あ\unhbox1い}
374 \head{その他: 「前由来」「後由来」JFM由来グルー}
375 \setbox0=\hbox{\tenmin あ\fivemin (}
378 \setbox0=\hbox{\fivemin あ\tenmin (}
381 \setbox0=\hbox{\fivemin .\tenmin ・}
384 \setbox0=\hbox{\tenmin .\fivemin ・}
387 \head{その他: JFM and kerning}
388 \jfont\kmd=KozMinPr6N-Regular.otf:jfm=test;script=latn;+kern;+liga
389 \jfont\kmn=KozMinPr6N-Regular.otf:jfm=test;-kern
391 \setbox0=\hbox{\kmd タノタイクノ}
394 \setbox0=\hbox{\kmn タノタイクノ}
397 \setbox0=\hbox{\kmd タ\/ノ}
400 \setbox0=\hbox{\kmd 」カ゚.}