% smaller.sty % % % Original author: ??? (appeared in an old TeXhax) % Adrian Clark's dates.sty % Changes: -- Paul L. Allen, Feb 1990 (UKTeX 91, 6) % -- Bernd Raichle, Oct 1991 (added NFSS V1 support) % -- Bernard Gaulle, Jan 1992 (environment protected,@ restored) % -- Daniel Taupin & BG, 3/94 (simulation of \sm@ller for NFSS2) % -- Bernard Gaulle 03/28/94 (\l@rger simulated for NFSS2 too) % -- Removing superfluous spaces. --bg 05/10/94 % % Usage: {\smaller TEXT} % - sets TEXT in a smaller size in the same typeface. % {\larger TEXT} % - sets TEXT in a larger size in the same typeface. \ifx\larger\undefined\else\expandafter\endinput\fi% {\gdef\makeatletter{\catcode`\@=11\relax}% \gdef\makeatother{\catcode`\@=12\relax}% \ifcat/@ \makeatletter\let\resetat\makeatother% \else\let\resetat\relax\fi% %\@ifundefined{selectfont}{...}{...}% \expandafter\ifx\csname selectfont\endcsname\relax% % % Old Font Selection: % \csname newcount\endcsname\f@m% \gdef\sm@ller{\relax\f@m\fam% % \ifx\@currsize\tiny \tiny\fi% \ifx\@currsize\scriptsize \tiny\fi% \ifx\@currsize\footnotesize \scriptsize\fi% \ifx\@currsize\small \footnotesize\fi% \ifx\@currsize\normalsize \small\fi% \ifx\@currsize\large \normalsize\fi% \ifx\@currsize\Large \large\fi% \ifx\@currsize\LARGE \Large\fi% \ifx\@currsize\huge \LARGE\fi% \ifx\@currsize\Huge \huge\fi% \ifcase\f@m\rm\or\mit\or\cal\or\tenex % not sure about the tenex% \or\it\or\sl\or\bf\or\tt\or\sf\or\sc\or\ly\fi}% \gdef\l@rger{\relax\f@m\fam% % \ifx\@currsize\Huge \Huge\fi% \ifx\@currsize\huge \Huge\fi% \ifx\@currsize\LARGE \huge\fi% \ifx\@currsize\Large \LARGE\fi% \ifx\@currsize\large \Large\fi% \ifx\@currsize\normalsize \large\fi% \ifx\@currsize\small \normalsize\fi% \ifx\@currsize\footnotesize \small\fi% \ifx\@currsize\scriptsize \footnotesize\fi% \ifx\@currsize\tiny \scriptsize\fi% \ifcase\f@m\rm\or\mit\or\cal\or\tenex % not sure about the tenex% \or\it\or\sl\or\bf\or\tt\or\sf\or\sc\or\ly\fi}% %% \else% %% % New Font Selection V1: % % Perhaps it would be better to use different macros for % the different \@ptsize 10pt, 11pt and 12pt. % (Now for 12pt: {\normalsize {\smaller a}} = {\footnotsize a}) % \ifx\DeclareFontShape\undefined% the following for NFSS V1% \gdef\sm@ller{\relax\@nomath\smaller% \ifx\f@size\@vpt \else% \ifx\f@size\@vipt \size\@vpt{6pt}\fi% \ifx\f@size\@viipt \size\@vpt{6pt}\fi% \ifx\f@size\@viiipt \size\@viipt{8pt}\fi %\@vipt% \ifx\f@size\@ixpt \size\@viiipt{9.5pt}\fi% \ifx\f@size\@xpt \size\@ixpt{11pt}\fi% \ifx\f@size\@xipt \size\@xpt{12pt}\fi% \ifx\f@size\@xiipt \size\@xpt{12pt}\fi% \ifx\f@size\@xivpt \size\@xiipt{14pt}\fi% \ifx\f@size\@xviipt \size\@xivpt{18pt}\fi% \ifx\f@size\@xxpt \size\@xviipt{22pt}\fi% \ifx\f@size\@xxvpt \size\@xxpt{25pt}\fi% \selectfont% \fi}% \gdef\l@rger{\relax\@nomath\larger% \ifx\f@size\@xxvpt \else% \ifx\f@size\@xxpt \size\@xxvpt{30pt}\fi% \ifx\f@size\@xviipt \size\@xxpt{25pt}\fi% \ifx\f@size\@xivpt \size\@xviip{22pt}\fi% \ifx\f@size\@xiipt \size\@xivpt{18pt}\fi% \ifx\f@size\@xipt \size\@xiipt{14pt}\fi% \ifx\f@size\@xpt \size\@xiipt{14pt}\fi% \ifx\f@size\@ixpt \size\@xpt{12pt}\fi% \ifx\f@size\@viiipt \size\@ixp{11pt}\fi% \ifx\f@size\@viipt \size\@viiipt{9.5pt}\fi% \ifx\f@size\@vipt \size\@viiipt{9.5pt}\fi% \ifx\f@size\@vpt \size\@viipt{8pt}\fi% \selectfont% \fi}% \else% Now for NFSS V2 %%%%%%%%%%%%%%%%%%%%%%%%%%% \gdef\sm@ller{\small}% how to proceed?% \gdef\l@rger{\relax}% % proposed by D. Taupin on Mar, 24, 1994: \global\let\tiny@ORI\tiny\gdef\tiny{\tiny@ORI\def\sm@ller{\tiny}% \def\l@rger{\scriptsize}}% \global\let\scriptsize@ORI\scriptsize% \gdef\scriptsize{\scriptsize@ORI\def\sm@ller{\tiny}% \def\l@rger{\footnotesize}}% \global\let\footnotesize@ORI\footnotesize% \gdef\footnotesize{\footnotesize@ORI\def\sm@ller{\scriptsize}% \def\l@rger{\small}}% \global\let\small@ORI\small% \gdef\small{\small@ORI\def\sm@ller{\footnotesize}% \def\l@rger{\normalsize}}% \global\let\normalsize@ORI\normalsize% \gdef\normalsize{\normalsize@ORI\def\sm@ller{\small}% \def\l@rger{\large}}% \global\let\large@ORI\large% \gdef\large{\large@ORI\def\sm@ller{\normalsize}% \def\l@rger{\Large}}% \global\let\Large@ORI\Large% \gdef\Large{\Large@ORI\def\sm@ller{\large}% \def\l@rger{\LARGE}}% \global\let\LARGE@ORI\LARGE% \gdef\LARGE{\LARGE@ORI\def\sm@ller{\Large}% \def\l@rger{\huge}}% \global\let\huge@ORI\huge% \gdef\huge{\huge@ORI\def\sm@ller{\LARGE}% \def\l@rger{\Huge}}% \global\let\Huge@ORI\Huge% \gdef\Huge{\Huge@ORI\def\sm@ller{\huge}% \def\l@rger{\Huge}}% \fi% %% \fi% \gdef\smaller{\protect\sm@ller}% \gdef\larger{\protect\l@rger}% \resetat}% \ifx\ProvidesPackage\undefined\else% \ProvidesPackage{mysmall}[1994/12/12 Temporary ``smaller'' package % from the french dist.]% \fi% \endinput%%%%%%%%%%%%%%%%%%%%%%%