%#! lualatex
-\documentclass{article}
-\usepackage{luatexja}
-\usepackage{luatexja-fontspec}
+\documentclass{ltjsarticle}
+%\nonstopmode
\makeatletter
-% from jsclasses
-\def\@setfontsize#1#2#3{%
- \ifx\protect\@typeset@protect
- \let\@currsize#1%
- \fi
- \fontsize{#2}{#3}\selectfont
- \ifdim\parindent>\z@
- \parindent=1\zw
- \fi
- \ltjsetparameter{kanjiskip={0\zw plus .1\zw minus .01\zw}}%
- \@tempskipa=\ltjgetparameter{xkanjiskip}%
- \ifdim\@tempskipa>\z@
- \ltjsetparameter{xkanjiskip={0.25em plus 0.15em minus 0.06em}}%
- \fi}
-\makeatother
-
-\setmainfont{TeXGyreTermes}
-\setsansfont{TeXGyreHeros}
-\setmainjfont[Scale=.95,BoldFont=IPAexGothic]{IPAexMincho} % default: JFM=ujis
-\setsansjfont[Scale=.95]{IPAexGothic}
+% for test
+\DeclareTextFontCommand{\textix}{\fontshape{ix}\selectfont}
+\DeclareFontFamily{OT1}{hoge}{}\DeclareFontShape{OT1}{hoge}{m}{n}{<-> pagk7t}{}
+\DeclareKanjiFamily{JY3}{hoge}{}
+\DeclareFontShape{JY3}{hoge}{m}{n}{<-> file:ipaexg.ttf:jfm=ujis}{}
-\newjfontfamily\ipajisninety[Scale=.95,CJKShape=JIS1990]{IPAexMincho}
+\DeclareFontSubstitution{OT1}{cmss}{m}{n}
+\makeatother
\begin{document}
-\section{NFSS2}
-
+\section{NFSS2 のテスト}
◆あいうえおabcかきく{\gt かきくa{\bf uyあ}いう}
-{\ltjsetparameter{xkanjiskip=0pt}イタリック補正\textit{f}◆\par}
+{\ltjsetparameter{xkanjiskip=0pt}イタリック補正\textit{f}◆{\it f\/}◆\par}
\DeclareFixedFont{\dr}{JY3}{gt}{m}{n}{12}
あいうえおpqr{\dr かaiu}きく）{\bf （漢字}
-{\tiny ◆あいうえおabcかきく{\gt かきくa{\bf uyあ}いう}}
+{abcdfghjfgあいう辻）\textbf{（辻あ{\Large あ}いう）}}
-{\scriptsize ◆あいうえおabcかきく{\gt かきくa{\bf uyあ}いう}}
+{abcdfghjfgあいう辻）\textbf{\unkern（辻あ{\Large あ}いう}}
-{\footnotesize ◆あいうえおabcかきく{\gt かきくa{\bf uyあ}いう}}
+\noindent{\tiny ◆あいうえおabcかきく{\gt かきくa{\bf uyあ}いう}}
-{\small ◆あいうえおabcかきく{\gt かきくa{\bf uyあ}いう}}
+\noindent{\scriptsize ◆あいうえおabcかきく{\gt かきくa{\bf uyあ}いう}}
-{\normalsize ◆あいうえおabcかきく{\gt かきくa{\bf uyあ}いう}}
+\noindent{\footnotesize ◆あいうえおabcかきく{\gt かきくa{\bf uyあ}いう}}
-{\large ◆あいうえおabcかきく{\gt かきくa{\bf uyあ}いう}}
+\noindent{\small ◆あいうえおabcかきく{\gt かきくa{\bf uyあ}いう}}
-{\Large ◆あいうえおabcかきく{\gt かきくa{\bf uyあ}いう}}
+\noindent{\normalsize ◆あいうえおabcかきく{\gt かきくa{\bf uyあ}いう}}
-{\LARGE ◆あいうえおabcかきく{\gt かきくa{\bf uyあ}いう}}
+\noindent{\large ◆あいうえおabcかきく{\gt かきくa{\bf uyあ}いう}}
-{\huge ◆あいうえおabcかきく{\gt かきくa{\bf uyあ}いう}}
+\noindent{\Large ◆あいうえおabcかきく{\gt かきくa{\bf uyあ}いう}}
-{\Huge ◆あいうえおabcかきく{\gt かきくa{\bf uyあ}いう}}
+\noindent{\LARGE ◆あいうえおabcかきく{\gt かきくa{\bf uyあ}いう}}
+%\end{document}
-\section{fontspec}
+\section{slanted, extended}
+\DeclareFontShape{JY3}{mc}{m}{sl}{<-> s*[0.962216]
+ psft:Ryumin-Light:slant=0.25;jfm=ujiso25}{}
+\DeclareFontShape{JY3}{mc}{x}{n}{<-> s*[0.962216]
+ psft:Ryumin-Light:extend=1.5;jfm=ujisx50}{}
+\DeclareFontShape{JY3}{gt}{m}{sl}{<-> s*[0.962216]
+ file:ipam.ttf:slant=0.25;jfm=ujiso25}{}
+\DeclareFontShape{JY3}{gt}{x}{n}{<-> s*[0.962216]
+ file:ipag.ttf:extend=1.5;jfm=ujisx50}{}
-通常：「あいうえお」、（かきくけこ）。
+% for test
+\DeclareFontShape{JY3}{gt}{m}{ix}{<-> s*[0.962216]
+ file:ipag.ttf:slant=0.25;jfm=ujiso25}{}
-{\jfontspec[Scale=.95,JFM=mono]{IPAexMincho}
-\noindent 等幅：「あいうえお」、（かきくけこ）。
-}
+\paragraph{psft prefix でもOK?}\
-\subsection{JIS2004}
-逢芦飴溢茨鰯淫迂厩噂餌襖迦牙廻恢晦蟹葛鞄釜翰翫徽
-祇汲灸笈卿饗僅喰櫛屑粂祁隙倦捲牽鍵諺巷梗膏鵠甑叉
-榊薩鯖錆鮫餐杓灼酋楯薯藷哨鞘杖蝕訊逗摺撰煎煽穿箭
-詮噌遡揃遜腿蛸辿樽歎註瀦捗槌鎚辻挺鄭擢溺兎堵屠賭
-瀞遁謎灘楢禰牌這秤駁箸叛挽誹樋稗逼謬豹廟瀕斧蔽瞥
-蔑篇娩鞭庖蓬鱒迄儲餅籾爺鑓愈猷漣煉簾榔屢冤叟咬嘲
-囀徘扁棘橙狡甕甦疼祟竈筵篝腱艘芒虔蜃蠅訝靄靱騙鴉
+\textsl{日本語の機械的な斜体}直立，
+\textsl{あいう■\textup{■え■■}■おかき}
-\subsection{JIS1990}
-{\ipajisninety
-逢芦飴溢茨鰯淫迂厩噂餌襖迦牙廻恢晦蟹葛鞄釜翰翫徽
-祇汲灸笈卿饗僅喰櫛屑粂祁隙倦捲牽鍵諺巷梗膏鵠甑叉
-榊薩鯖錆鮫餐杓灼酋楯薯藷哨鞘杖蝕訊逗摺撰煎煽穿箭
-詮噌遡揃遜腿蛸辿樽歎註瀦捗槌鎚辻挺鄭擢溺兎堵屠賭
-瀞遁謎灘楢禰牌這秤駁箸叛挽誹樋稗逼謬豹廟瀕斧蔽瞥
-蔑篇娩鞭庖蓬鱒迄儲餅籾爺鑓愈猷漣煉簾榔屢冤叟咬嘲
-囀徘扁棘橙狡甕甦疼祟竈筵篝腱艘芒虔蜃蠅訝靄靱騙鴉
-}
+{\fontfamily{mc}\fontseries{x}\selectfont あいう}
+\paragraph{TTF, OTFではOK}\
-\end{document}
+\textgt{\textsl{日本語の機械的な斜体}直立，
+\textsl{あいう■\textup{■え■■}■おかき}}
+{\fontfamily{gt}\fontseries{x}\selectfont あいう}
-%%%%%%%%%%%%%%%%%%%%% OLD TEST
-\documentclass{article}
-\usepackage{fontspec,pdftexcmds}
-
-\input luatexja-core.sty
-
-\ExplSyntaxOn
-\xetex_or_luatex:nnn { \tl_set:Nn \l_fontspec_pre_feat_sclist }
- {
- \bool_if:NT \l_fontspec_icu_bool {
- \tl_if_empty:NF \l_fontspec_script_tl
- {
- script = \l_fontspec_script_tl ;
- language = \l_fontspec_lang_tl ;jfm=ujis;
- }
- }
- }
- {
- mode = \l_fontspec_mode_tl ;
- \tl_if_empty:NF \l_fontspec_script_tl
- {
- script = \l_fontspec_script_tl ;
- language = \l_fontspec_lang_tl ;jfm=ujis;
- }
- }
-\ExplSyntaxOff
-
-\newopentypefeature{Style}{OLDJIS}{+jp90}
-\newfontfamily\goth[BoldFont={ipaexg.ttf},Style=OLDJIS]{ipaexm.ttf}
+\paragraph{italic correction inserted by {\tt\char92text...}}\
-\begin{document}
+font series `ix': 欧文は未定義，和文は機械的斜体．
+
+{\gt■\textix{■あabcい■\textup{■うxyzえ■■}■おpqrか■}■}
+
+{\gt■f\textix{f■あい■f\textup{f■うえ■■f}f■おか■f}f■}
+
+イタリック補正なし：{\gt {\slshape ■}■}
+イタリック補正あり：{\gt {\slshape ■\/}■}
+
+\newpage{\obeylines\tt
+\setbox0=\hbox{\gt\textsl{あいう■\textup{■え■}■おかき}}
+\directlua{luatexja.ext_show_node_list(tex.box[0].head, '', tex.print)}\par}
+
+\bigskip
+
+正しい補正量：$0.962216\times 10 \times 0.88\times 0.25 \simeq
+\directlua{tex.print(0.962216*10*0.88*0.25)}\,\textrm{pt}$
+
+\paragraph{fontfamily}\
\makeatletter
-\def\extract@font{%
- \get@external@font
- \ifnum\pdf@strcmp{\f@encoding}{EU2}=0
- \expandafter\globaljfont\font@name\external@font\relax
- \font@name\global\zw=\zw\global\zh=\zh
- \else
- \global\expandafter\font\font@name\external@font\relax
- \font@name
- \fi
- \ifnum\pdf@strcmp{\f@encoding}{EU2}=0%
- \ltjglobalsetparameter{kanjiskip={0pt plus 0.4pt minus 0.4pt},
- xkanjiskip={0.25\zw plus 0.083333\zw minus 0.083333\zw}}%
- \fi
- \csname \f@encoding+\f@family\endcsname
- \csname\curr@fontshape\endcsname
- }
-% ! The font "ipaexg.ttf/I" cannot be found. というエラーが出る
-
-
-\goth abcdfghjfgあいう辻）\textbf{\unkern（辻あ{\Large あ}いう}
-
-\goth abcdfghjfgあいう辻）\textbf{（辻あ{\Large あ}いう}
-% \unkern がないとうなくいかない
-
-\tracingonline=1\scrollmode\showboxdepth=10000\showboxbreadth=10000\showlists
+\def\TEST#1{\par{\fontfamily{#1}\selectfont あいうabc: font\hfill(#1: \k@family, \f@family)}}
+
+\gt
+\TEST{mc}
+\TEST{fuga}
+\TEST{fuga}
+\TEST{mc}
+
+{\fontfamily{hoge}\selectfont あいうabc: font\hfill(\k@family, \f@family)}
+
+{\romanfamily{hoge}\selectfont あいうabc: roman\hfill(\k@family, \f@family)}
+
+{\kanjifamily{hoge}\selectfont あいうabc: kanji\hfill(\k@family, \f@family)}
+
+\TEST{mc}
+\TEST{ptm}
+\TEST{ptm}
+
+\makeatletter
+\let\@@fontfamily=\fontfamily
+\def\fontfamily#1{(\k@family, \f@family)\@@fontfamily{#1}(\k@family, \f@family)}
+
+あい{うえお\texttt{abc}\globaldefs1あ\/い}うえお
+
+あいうえお{\tt abc}あいうえお
\end{document}
OSDN Git Service
