Re: 文字サイズの指定

名前: nide
日時: 2002-03-15 15:06:10
IPアドレス: 160.11.72.*

>>7350
  最近、\normalsizeを10.5ptとして組む必要に迫られた時、同じような
ことをやってました。

% LaTeX2eの\DeclareFontShapeを改造した\AppendFontShape(5引数)
\def\AppendFontShape{\begingroup
  \nfss@catcodes \expandafter\endgroup \AppendFontShape@}
\def\AppendFontShape@#1#2#3#4#5{%
  \expandafter\ifx\csname #1+#2\endcsname\relax
    \@latex@error{Font family `#1+#2' unknown}\@eha
  \else
    \expandafter\let\csname @tmpfontinfo\expandafter\endcsname
      \csname #1/#2/#3/#4\endcsname
    \edef\@tmpfontinfo{\expandafter\string\@tmpfontinfo}%
    \edef\@tmpfontinfo{\expandafter\@gobble\@tmpfontinfo}%
    \expandafter\let\csname reserved@a\expandafter\endcsname
      \csname\@tmpfontinfo\endcsname
    \expandafter\xdef\csname#1/#2/#3/#4\endcsname{%
      \expandafter\noexpand \csname\@tmpfontinfo #5\endcsname
    }%
    \global
    \expandafter\let\csname\@tmpfontinfo #5\expandafter\endcsname
      \csname\@tmpfontinfo\endcsname
  \fi
}
\AppendFontShape{OT1}{cmr}{m}{n}{<10.5> cmr10}
\AppendFontShape{OT1}{cmr}{m}{it}{<10.5> cmti10}
\AppendFontShape{OT1}{cmr}{m}{sl}{<10.5> cmsl10}
% 以下、使う各フォントについて同様
\DeclareMathSizes{10.5}{10.5}{7}{5}
\normalsize\parindent1zw

% 設定を最小限にするため既存の\normalsize命令をサイズだけ書き換える
\let\orig@normalsize\normalsize
\def\normalsize{\orig@normalsize\@setfontsize\normalsize{10.5}{18}}
% より大きい字の方が行送りが小さいのはおかしいので調整
\def\large{\@setfontsize\large{12}{19.6}}
\def\Large{\@setfontsize\Large{14.4}{22.1}}

この書き込みへの返事：