Re: フォントサイズの固定

名前: トノ
日時: 2005-05-27 00:18:33
IPアドレス: 58.0.12.*

>>36057

ちょっと話に乗り遅れてしまった感がありますが、*.clo を独自に読込むという
北見さんの大胆なアイデアを頂いて、*.clo の読込みはプレアンブルで済ませるように
してみました。いかがでしょう。

\documentclass[a4j,landscape]{jarticle}\relax
\begingroup
    \makeatletter
    \def\newcommand#1#2{%
        \global\@namedef{fontsizeshift\SizeOption\string#1}{#2}%
    }
    \let\renewcommand=\newcommand
    \def\SizeOption{10}\input{jsize\SizeOption.clo}
    \def\SizeOption{11}\input{jsize\SizeOption.clo}
    \def\SizeOption{12}\input{jsize\SizeOption.clo}
\endgroup
\newenvironment{fontsizeshift}[1]{%
    \expandafter\let\expandafter\tiny \csname fontsizeshift#1\string\tiny\endcsname
    \expandafter\let\expandafter\scriptsize \csname fontsizeshift#1\string\scriptsize\endcsname
    \expandafter\let\expandafter\footnotesize \csname fontsizeshift#1\string\footnotesize\endcsname
    \expandafter\let\expandafter\small \csname fontsizeshift#1\string\small\endcsname
    \expandafter\let\expandafter\normalsize \csname fontsizeshift#1\string\normalsize\endcsname
    \expandafter\let\expandafter\large \csname fontsizeshift#1\string\large\endcsname
    \expandafter\let\expandafter\Large \csname fontsizeshift#1\string\Large\endcsname
    \expandafter\let\expandafter\LARGE \csname fontsizeshift#1\string\LARGE\endcsname
    \expandafter\let\expandafter\huge \csname fontsizeshift#1\string\huge\endcsname
    \expandafter\let\expandafter\Huge \csname fontsizeshift#1\string\Huge\endcsname
}{}
\begin{document}
\tiny tiny \scriptsize scriptsize \footnotesize footnotesize \small small
\normalsize normalsize \large large \Large Large \LARGE LARGE
\huge huge \Huge Huge

\begin{fontsizeshift}{10}
\tiny tiny \scriptsize scriptsize \footnotesize footnotesize \small small
\normalsize normalsize \large large \Large Large \LARGE LARGE
\huge huge \Huge Huge
\end{fontsizeshift}

\begin{fontsizeshift}{11}
\tiny tiny \scriptsize scriptsize \footnotesize footnotesize \small small
\normalsize normalsize \large large \Large Large \LARGE LARGE
\huge huge \Huge Huge
\end{fontsizeshift}

\begin{fontsizeshift}{12}
\tiny tiny \scriptsize scriptsize \footnotesize footnotesize \small small
\normalsize normalsize \large large \Large Large \LARGE LARGE
\huge huge \Huge Huge
\end{fontsizeshift}

\end{document}

この書き込みへの返事：