blob: dc416e85d77d6f4671d0ad464c3ac811c061e313 (
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
|
%----------------------------------------------------------------------------%
% Cassette-cover macros for TeX: CASCFONT.TEX (font selection) %
% Files supplied: CASCOVER.TEX, CASCFONT.TEX, NORMAL.CAS, SMALL.CAS, %
% CCMANMAC.TEX, MANUAL.TEX, MANUAL.DVI, MANUAL.DOC, %
% EXAMPLES.TEX, EXAMPLES.DVI %
% Author: Stijn Raaijmakers %
% Date: 10/2/94 %
% Package is freeware. %
%----------------------------------------------------------------------------%
\newcount\fontsize \newcount\fonttype
\font\twelverm=cmr12 \font\sevencond=cmrcd7
\font\twelveit=cmti12 \font\sevenit=cmti7
\let\twelvecond=\relax \let\tencond=\relax
\def\small{\fontsize=0 \updatefont} \def\rm{\fonttype=0 \updatefont}
\def\normalsize{\fontsize=1 \updatefont}
\def\large{\fontsize=2 \updatefont} \def\it{\fonttype=1 \updatefont}
\def\cond{\fonttype=2 \updatefont}
\def\updatefont{\ifcase\fonttype
\ifcase\fontsize \sevenrm \or\tenrm \or\twelverm \fi \or
\ifcase\fontsize \sevenit \or\tenit \or\twelveit \fi \or
\ifcase\fontsize \sevencond \or\tencond \or\twelvecond \fi \fi
\baselineskip=\ifcase\fontsize 9pt \or12pt \or14pt \fi}
\let\em=\it
\rm\normalsize
|