summaryrefslogtreecommitdiff
path: root/macros/plain/contrib/mtbe/eightpt.tex
blob: e277e06b800be668e6d4087b29273b96f2682949 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
%%% File: EightPt.tex
%%% From `Mathematical TeX by Example' by Arvind Borde
%%% (c) 1993, Academic Press.
%%% Contents: Provides a command for loading 8-point fonts, provides a 
%%% comprehensive font-switching command, and a command to use 8-point type 
%%% in footnotes. 

%----------------------------------------------------------------------------

\def\LoadEight {\font\Eightrm=cmr8  \font\Eightsl=cmsl8 
                \font\Eightit=cmti8 \font\Eightbf=cmbx8 
                \font\Eighttt=cmtt8 \font\Eighti=cmmi8 
                \font\Eightsy=cmsy8 
                \font\Eightcsc=cmcsc8
                \font\Sixrm=cmr6    \font\Sixbf=cmbx6   
                \font\Sixi=cmmi6    \font\Sixsy=cmsy6 
                \def\LoadEight{}}% 
% Note: The last line above protects against inefficiencies.

\def\Eightpoint {\def\rm{\fam0\Eightrm}%
  \textfont0=\Eightrm \scriptfont0=\Sixrm \scriptscriptfont0=\fiverm
  \textfont1=\Eighti  \scriptfont1=\Sixi  \scriptscriptfont1=\fivei
  \textfont2=\Eightsy \scriptfont2=\Sixsy \scriptscriptfont2=\fivesy
  \textfont3=\tenex   \scriptfont3=\tenex \scriptscriptfont3=\tenex
  \textfont\itfam=\Eightit  \def\it{\fam\itfam\Eightit}%
  \textfont\slfam=\Eightsl  \def\sl{\fam\slfam\Eightsl}%
  \textfont\ttfam=\Eighttt  \def\tt{\fam\ttfam\Eighttt}%
  \textfont\bffam=\Eightbf  \scriptfont\bffam=\Sixbf
     \scriptfont\bffam=\fivebf  \def\bf{\fam\bffam\Eightbf}%
  \let\Smallcaps=\Eightcsc 
  \let\Smallrm=\Eightrm  % This is needed just for the present book.
  \normalbaselineskip=9pt
  \setbox\strutbox=\hbox{\vrule height7pt depth2pt width0pt}%
  % Also reset the spacing around displays:
  \abovedisplayskip 8pt plus2pt  minus7pt
  \abovedisplayshortskip 0pt plus2pt 
  \belowdisplayskip 8pt plus2pt  minus7pt
  \belowdisplayshortskip 5pt plus2pt  minus3pt
  \normalbaselines \rm }
% For Footnotes: 
\let\FFFFFF=\footstrut  % Store the standard `value'.
\def\SmallFootnotes {\LoadEight 
  \def\footnoterule{}\def\footstrut{\Eightpoint\FFFFFF}}% 
\def\NormalFootnotes{\def\footstrut{\FFFFFF}%
  \def\footnoterule{\kern-3pt \hrule width2truein height.4pt \kern2.6pt}}%
%----------------------------------------------------------------------------
\endinput
_%%