1 %#!luatex test04-jfm.tex
3 % 標準フォント・kanjiskip は以前のバージョンとの互換性
4 \catcode`\@=11 \def\ltj@stdmcfont{IPAExMincho}\def\ltj@stdgtfont{IPAExGothic}
5 \input luatexja-core.sty
6 \ltjsetparameter{kanjiskip=0pt plus .4pt minus .4pt}
8 \def\head#1{\medskip\penalty-100\noindent{\bf\tengt ■ #1}\par\penalty10000 }
9 \jfont\rml={psft:Ryumin-Light:jfm=ujis} at 10pt
10 \rml あ\inhibitglue\char"201Cあ・い\inhibitglue ()あ←Ryumin-Light
12 \jfont\rml={file:ipam.ttf:jfm=ujis} at 10pt
13 \rml あ\inhibitglue\char"201Cあ・い←IPA\hbox{}明朝 (ipam)
15 \jfont\rml={file:KozMinPr6N-Regular.otf:jfm=ujis} at 10pt
16 \rml あ\inhibitglue\char"201Cあ・い←KozMinPr6N-Regular
18 \jfont\rml={file:ipamp.ttf:jfm=ujis} at 10pt
19 \rml あ\inhibitglue\char"201Cあ・い←IPA P\hbox{}明朝 (ipamp)
22 \globaljfont\rml={psft:GothicBBB-Medium:jfm=bad} at 10pt % must be error
24 \rml あ123 % \rml は未定義となる
28 \font\rml={file:ipaexg.ttf} at 10pt\rml
30 ここからは,欧文文字フォントはIPA EXゴシック
35 \ltjdefcharrange{9}{`あ,"E0-"FF}
36 「\char"F4」は9番の文字範囲なので,和文扱いのはず
38 {iso8859-1 和文扱い:\ltjsetparameter{jacharrange={1,8}}%
39 \ltjgetparameter{jacharrange}{1}%
42 {iso8859-1 欧文扱い:\ltjsetparameter{jacharrange={-1,-8}}%
43 \ltjgetparameter{jacharrange}{1}%
47 \ltjgetparameter{jacharrange}{1}%
52 \ltjgetparameter{jacharrange}{0}
53 \ltjgetparameter{jacharrange}{1}
54 \ltjgetparameter{jacharrange}{2}
57 \ltjgetparameter{chartorange}{`A} % must be -1
58 \ltjgetparameter{chartorange}{`い} % must be 6
59 \ltjgetparameter{chartorange}{`§} % must be 8
60 \ltjgetparameter{chartorange}{"F7} % must be 9
61 \ltjgetparameter{chartorange}{-1} % must be error "
62 \ltjgetparameter{chartorange}{"CFFFF} % must be 217"
65 \ltjsetparameter{jacharrange={-217}}
67 \ltjgetparameter{jacharrange}{\ltjgetparameter{chartorange}{"CFFFF}}←CFFFF欧文扱い
68 \ltjsetparameter{jacharrange={218}}
70 \ltjgetparameter{jacharrange}{\ltjgetparameter{chartorange}{"CFFFF}}←CFFFF和文扱い
73 \setbox0=\hbox{\ltjsetparameter{kanjiskip=-5pt}
74 あいうえお\hbox{\ltjsetparameter{kanjiskip=12pt}かきくけこ}さしすせそ\par a}\copy0
77 {\ltjsetparameter{kanjiskip=3pt}
78 あいうえお{\ltjsetparameter{kanjiskip=-5pt}% this setting is ignored
81 {\ltjsetparameter{kanjiskip=3pt}
84 \vfill\eject\tracingonline=0
85 \noindent{\bf\gt 以下はJFMグルー挿入検証}
86 \jfont\rmlh={psft:Ryumin-Light:jfm=test} at 10pt
87 \jfont\sixgt={psft:GothicBBB-Medium:jfm=ujis} at 6pt
88 \font\sixtt=cmtt10 at 6pt
91 \directlua{function print_fn(...)
93 tex.print('\\par ', ...)
95 \unless\ifdefined\ltjgetwd \let\ltjgetwd\wd\fi
96 \def\dumplist#1{\par\noindent\leavevmode
97 {\dimen0=\ltjgetwd#1}%
98 \hbox to 0.2\hsize{\copy#1\hss}%
99 \vbox{\hsize=0.6\hsize\sixtt\baselineskip=7.2pt\sixgt\let\\=\relax
100 \directlua{print('======')
101 luatexja.ext_show_node_list(tex.getbox(#1).head, '', print_fn)
102 print('======')}\hrule}%
106 %\tracingonline=1\tracingoutput=1\showboxdepth=3\showboxbreadth=100
108 \head{JA--JA (penなし)}
110 \setbox0=\hbox{\rmlh あア}\dumplist0
112 \setbox0=\hbox{\rmlh あイ}\dumplist0
114 \setbox0=\hbox{\rmlh あウ}\dumplist0
116 \setbox0=\hbox{\rmlh いア}\dumplist0
118 \setbox0=\hbox{\rmlh いイ}\dumplist0
120 \setbox0=\hbox{\rmlh いウ}\dumplist0
122 \head{JA--EN (penなし)}
124 \setbox0=\hbox{\rmlh あa}\dumplist0
126 \setbox0=\hbox{\rmlh あ(}\dumplist0
128 \setbox0=\hbox{\rmlh あ)}\dumplist0
130 \setbox0=\hbox{\rmlh いa}\dumplist0
132 \setbox0=\hbox{\rmlh うa}\dumplist0
134 \setbox0=\hbox{\rmlh えa}\dumplist0
136 \setbox0=\hbox{\rmlh おa}\dumplist0
138 \head{EN--JA (penなし)}
140 \setbox0=\hbox{\rmlh aあ}\dumplist0
142 \setbox0=\hbox{\rmlh (あ}\dumplist0
144 \setbox0=\hbox{\rmlh )あ}\dumplist0
146 \setbox0=\hbox{\rmlh aい}\dumplist0
148 \setbox0=\hbox{\rmlh aう}\dumplist0
150 \head{JA--明kern (penなし)}
152 \setbox0=\hbox{\rmlh あ\kern3pt}\dumplist0
154 \setbox0=\hbox{\rmlh い\kern3pt}\dumplist0
156 \setbox0=\hbox{\rmlh う\kern3pt}\dumplist0
158 \head{明kern--JA (penなし)}
160 \setbox0=\hbox{\rmlh \kern3ptあ}\dumplist0
162 \setbox0=\hbox{\rmlh \kern3ptい}\dumplist0
164 \setbox0=\hbox{\rmlh \kern3ptう}\dumplist0
166 \head{JA--hbox (penなし)}
168 \setbox0=\hbox{\rmlh あ\hbox{}}\dumplist0
170 \setbox0=\hbox{\rmlh い\hbox{}}\dumplist0
172 \setbox0=\hbox{\rmlh う\hbox{}}\dumplist0
174 \setbox0=\hbox{\rmlh え\hbox{}}\dumplist0
176 \setbox0=\hbox{\rmlh あ\hbox{ア}}\dumplist0
178 \setbox0=\hbox{\rmlh あ\hbox{a}}\dumplist0
180 \setbox0=\hbox{\rmlh い\hbox{a}}\dumplist0
182 \head{hbox--JA (penなし)}
184 \setbox0=\hbox{\rmlh \hbox{}あ}\dumplist0
186 \setbox0=\hbox{\rmlh \hbox{}い}\dumplist0
188 \setbox0=\hbox{\rmlh \hbox{}う}\dumplist0
192 \ltjsetparameter{prebreakpenalty={`(,123}}
193 \ltjsetparameter{postbreakpenalty={`あ,123}}
194 \ltjsetparameter{prebreakpenalty={`い,571}, postbreakpenalty={`い,123}}
195 \ltjsetparameter{postbreakpenalty={`う,123}}
196 \ltjsetparameter{postbreakpenalty={`え,123}}
197 \ltjsetparameter{postbreakpenalty={`お,123}}
198 \ltjsetparameter{postbreakpenalty={`a,321}}
199 \head{JA--JA (penあり)}
201 \setbox0=\hbox{\rmlh あア}\dumplist0
203 \setbox0=\hbox{\rmlh あイ}\dumplist0
205 \setbox0=\hbox{\rmlh あウ}\dumplist0
207 \setbox0=\hbox{\rmlh いア}\dumplist0
209 \setbox0=\hbox{\rmlh いイ}\dumplist0
211 \setbox0=\hbox{\rmlh いウ}\dumplist0
213 \head{JA--EN (penあり)}
215 \setbox0=\hbox{\rmlh あa}\dumplist0
217 \setbox0=\hbox{\rmlh いa}\dumplist0
219 \setbox0=\hbox{\rmlh うa}\dumplist0
221 \setbox0=\hbox{\rmlh えa}\dumplist0
223 \setbox0=\hbox{\rmlh おa}\dumplist0
225 \head{EN--JA (penあり)}
227 \setbox0=\hbox{\rmlh aあ}\dumplist0
229 \setbox0=\hbox{\rmlh aい}\dumplist0
231 \setbox0=\hbox{\rmlh aう}\dumplist0
233 \head{JA--hbox (penあり)}
235 \setbox0=\hbox{\rmlh あ\hbox{}}\dumplist0
237 \setbox0=\hbox{\rmlh い\hbox{}}\dumplist0
239 \setbox0=\hbox{\rmlh う\hbox{}}\dumplist0
241 \setbox0=\hbox{\rmlh え\hbox{}}\dumplist0
243 \setbox0=\hbox{\rmlh あ\hbox{ア}}\dumplist0
245 \setbox0=\hbox{\rmlh あ\hbox{a}}\dumplist0
247 \setbox0=\hbox{\rmlh い\hbox{a}}\dumplist0
249 \setbox0=\hbox{\rmlh \hbox{(}い\hbox{)}}\dumplist0
251 \head{hbox--JA (penあり)}
253 \setbox0=\hbox{\rmlh \hbox{}あ}\dumplist0
255 \setbox0=\hbox{\rmlh \hbox{}い}\dumplist0
257 \setbox0=\hbox{\rmlh \hbox{}う}\dumplist0
259 \head{italic correction}
261 \setbox0=\hbox{\it f\/(\/あ}\dumplist0
266 \noindent{\gt\bf [x]kanjiskipの挿入}
268 \head{kanjiskip from JFM, autospacing (JA--JA)}
269 \setbox0=\hbox{\rmlh ああ}\dumplist0
271 {\ltjsetparameter{kanjiskip=\maxdimen}
272 \setbox0=\hbox{\rmlh ああ}\dumplist0
273 \jfont\rmlk={psft:Ryumin-Light:jfm=test} at 12pt
274 \setbox0=\hbox{\rmlk は\rmlh あ}\dumplist0}
276 \def\naspc{\ltjsetparameter{autospacing=false}\relax}
277 \def\naxspc{\ltjsetparameter{autoxspacing=false}\relax}
278 \setbox0=\hbox{\rmlh あ\naspc ああ}\dumplist0
280 \head{kanjiskip from JFM/autoxspacing (JA--EN)}
281 \setbox0=\hbox{\rmlh まx}\dumplist0
283 \setbox0=\hbox{\rmlh ま\naxspc x}\dumplist0
285 \setbox0=\hbox{\naxspc\rmlh まx}\dumplist0
287 {\ltjsetparameter{xkanjiskip=\maxdimen}\setbox0=\hbox{\rmlh まx}\dumplist0}
289 {\ltjsetparameter{jaxspmode={`ま,preonly}}
290 \setbox0=\hbox{\rmlh まx}\dumplist0}
291 {\ltjsetparameter{alxspmode={`x,postonly}}
292 \setbox0=\hbox{\rmlh まx}\dumplist0}
294 \head{xkanjiskip from JFM/autoxspacing (EN--JA)}
295 \setbox0=\hbox{\rmlh xま}\dumplist0
297 \setbox0=\hbox{\rmlh x\naxspc ま}\dumplist0
299 \setbox0=\hbox{\naxspc\rmlh xま}\dumplist0
301 {\ltjsetparameter{xkanjiskip=\maxdimen}\setbox0=\hbox{\rmlh xま}\dumplist0}
303 {\ltjsetparameter{jaxspmode={`ま,postonly}}
304 \setbox0=\hbox{\rmlh xま}\dumplist0}
305 {\ltjsetparameter{alxspmode={`x,inhibit}}
306 \setbox0=\hbox{\rmlh xまおx}\dumplist0}
308 \head{more than one penalty}
310 \setbox0=\hbox{\rmlh お\penalty1701\penalty1701\penalty1701い}
312 \setbox0=\hbox{\rmlh お\penalty1701\penalty1701\penalty1701お}
314 \setbox0=\hbox{\rmlh あ\penalty1701\penalty1701\penalty1701い}
316 \setbox0=\hbox{\rmlh あ\penalty1701\penalty1701\penalty1701お}
319 \head{その他: italic correction and accents}
321 \setbox0=\hbox{\tenrm あ\/j}
323 \setbox0=\hbox{\tenrm )\/j}
325 \setbox0=\hbox{\tenrm\rmlh れ\v{A})}
328 \head{その他: box boundary}
330 \setbox0=\hbox{\rmlh かあか}
332 \setbox0=\hbox{a\setbox3=\hbox{\rmlh かあか}\unhbox3a}
334 \setbox0=\hbox{a\setbox3=\hbox{\rmlh か}\box3a}
336 \setbox0=\hbox{\rmlh き\hbox{か}き\hbox{き}き}
339 {\ltjsetparameter{postbreakpenalty={`あ,1000},prebreakpenalty={`あ,1000}}
340 \setbox0=\hbox{あ\hbox{(}あ\setbox3=\hbox{(}\unhbox3あ}
344 \head{その他: paragraph, hbox and math boundary}
346 \setbox1=\vbox{\parindent19.2pt \rmlh\hsize=100pt\parfillskip=30pt
347 かエ\par\global\setbox0=\lastbox}
350 \setbox1=\vbox{\noindent\rmlh\hsize=100pt\parfillskip=30pt
351 かエ\par\global\setbox0=\lastbox}
354 \setbox0=\hbox{\rmlh かエ}
357 \setbox0=\hbox{\rmlh あ$a$さ$a$か}
360 \head{その他: unhbox の連続}
362 \setbox0=\hbox{\tenmin\setbox1=\hbox{)}\setbox2=\hbox{a}\unhbox1\unhbox2}
365 \setbox3=\hbox{\tenmin\setbox1=\hbox{)}\setbox2=\hbox{a}\unhbox1\unhbox2}
366 \setbox0=\hbox{\unhbox3}
369 \setbox0=\hbox{\tenmin\setbox1=\hbox{()}\setbox2=\hbox{「」}%
370 \unhcopy1\unhbox1\unhbox2}
373 \setbox0=\hbox{\tenmin\setbox1=\hbox{}あ\unhbox1い}
376 \setbox0=\hbox{\tenmin\setbox1=\hbox{\tate }あ\unhbox1い}
379 \head{その他: 「前由来」「後由来」JFM由来グルー}
380 \setbox0=\hbox{\tenmin あ\fivemin (}
383 \setbox0=\hbox{\fivemin あ\tenmin (}
386 \setbox0=\hbox{\fivemin .\tenmin ・}
389 \setbox0=\hbox{\tenmin .\fivemin ・}
392 \head{その他: JFM and kerning}
393 \jfont\kmd=KozMinPr6N-Regular.otf:jfm=test;script=latn;+kern;+liga
394 \jfont\kmn=KozMinPr6N-Regular.otf:jfm=test;-kern
396 \setbox0=\hbox{\kmd タノタイクノ}
399 \setbox0=\hbox{\kmn タノタイクノ}
402 \setbox0=\hbox{\kmd タ\/ノ}
405 \setbox0=\hbox{\kmd 」カ゚.}
408 \head{その他: kanjiskip with inf stretch}
409 \jfont\knx=KozMinPr6N-Regular.otf:jfm=test2;-kern
411 {\ltjsetparameter{kanjiskip=1pt plus 1.25fil minus 2.75fill}
412 \ltjsetparameter{differentjfm=average}
413 \setbox0=\hbox{感感」\knx 感}
416 \head{inhibitglue and disinhibitglue}
417 \setbox0=\hbox{あ(あ\disinhibitglue (あ\inhibitglue\disinhibitglue (}
419 \setbox0=\hbox{あ\inhibitglue (あ\disinhibitglue\inhibitglue (}
422 \head{insertxkanjiskip and insertkanjiskip}
423 \setbox0=\hbox{あ\insertxkanjiskip (\insertxkanjiskip あ\insertxkanjiskip )(\insertxkanjiskip )}
426 \setbox0=\hbox{あ\insertxkanjiskip あaあ\ltjsetparameter{xkanjiskip=6.2pt plus 3pt}cあ\insertxkanjiskip あ}
429 \setbox0=\hbox{あ\insertxkanjiskip lateあaあ\ltjsetparameter{xkanjiskip=6.2pt plus 3pt}cあ\insertxkanjiskip lateあ}
432 \setbox0=\hbox{あ\ltjsetparameter{xkanjiskip=\maxdimen plus 3pt}cあ\insertxkanjiskip あ\insertxkanjiskip lateあ}
435 \setbox0=\hbox{)\insertxkanjiskip\unskip あ)}