summaryrefslogtreecommitdiff
path: root/macros/inrstex/inrsinputs/spfont.tex
blob: ecf578ed5b789cac9b74da66da2c0b03f5afa1db (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
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
\catcode`\@=11
% --------- This is the "cm" version --------
% a family is produced by redefining the special font forms in 

% \genpoint ... the names reflect the base fonts 


\def\rescale #1#2{\count255=#1\multiply\count255 by #2\relax
                              \divide\count255 by 100 
                              \advance\count 255 by 5 % rounding
                              \divide\count 255 by 10 }

\def\fontset scaled #1 {
\font\tensprm =cmr10 scaled #1
\font\sevensprm  = cmr7  scaled #1
\font\fivesprm = cmr5 scaled #1 
\font\tenspi =  cmmi10 scaled #1 
\font\sevenspi = cmmi7 scaled #1 
\font\fivespi = cmmi5 scaled #1 
\font\tenspsy  = cmsy10 scaled #1 
\font\sevenspsy  = cmsy7 scaled #1
\font\fivespsy =  cmsy5 scaled #1 
\font\tenspit =  cmti10 scaled #1 
\font\tenspsl =  cmsl10 scaled #1
\font\tenspbfx =  cmbx10 scaled #1
\font\sevenspbfx =  cmbx7 scaled #1
\font\fivespbfx =  cmbx5 scaled #1
\font\tensptt =  cmtt10 scaled #1 
\font\tenspex = cmex10 scaled #1
\def\tenspscsm{\rescale {800}{#1}
               \font\t@enspscsm =  cmcc10 scaled \the\count255\relax
               \let\tenspscsm=\t@enspscsm\tenspscsm}               
\def\tensprmbig{\rescale {1200}{#1}
                \font\t@ensprmbig =  cmr10 scaled \the\count255\relax 
               \let\tensprmbig=\t@ensprmbig\tensprmbig}
\def\tenspbfxbig{\rescale {1200}{#1}
                 \font\t@enspbfxbig =  cmbx10 scaled \the\count255\relax 
               \let\tenspbfxbig=\t@enspbfxbig\tenspbfxbig}
\def\tenspbfxbigg{\rescale {1440}{#1}
                 \font\t@enspbfxbigg =  cmbx10 scaled \the\count255\relax 
               \let\tenspbfxbigg=\t@enspbfxbigg\tenspbfxbigg}
\def\tensprmbigg{\rescale {1440}{#1}
                 \font\t@ensprmbigg =  cmr10 scaled \the\count255\relax 
                 \let\tensprmbigg=\t@ensprmbigg\tensprmbigg}
 \let\tensprmbiggg = \tensprmbigg }

\def\genpoint{\def\rm{\fam0\tensprm}%
  \textfont0=\tensprm \scriptfont0=\sevensprm \scriptscriptfont0=\fivesprm
  \textfont1=\tenspi \scriptfont1=\sevenspi \scriptscriptfont1=\fivespi
  \textfont2=\tenspsy \scriptfont2=\sevenspsy \scriptscriptfont2=\fivespsy
  \textfont3=\tenspex \scriptfont3=\tenspex \scriptscriptfont3=\tenspex
\def\it{\fam\itfam\tenspit}%
\textfont\itfam=\tenspit
\def\sl{\fam\slfam\tenspsl}%
\textfont\slfam=\tenspsl
\def\bf{\fam\bffam\tenspbfx}%
  \textfont\bffam=\tenspbfx \scriptfont\bffam=\sevenspbfx
\scriptscriptfont\bffam=\fivespbfx
\def\tt{\fam\ttfam\tensptt}%
\textfont\ttfam=\tensptt
\tt \ttglue=.5em plus .25em minus .15em
\def\normalbaselines{\baselineskip 2.8ex \lineskip 1pt \lineskiplimit \z@}%
\setbox\strutbox=\hbox{\vrule height 2.32ex  depth .48ex width\z@}%
\normalbaselines\rm 
  \ifd@ocsty \let\footerfont =\tenspit 
              \let\headerfont=\tenspit 
%              \let\footnotefont = \smallpoint
%              \let\smallerfont = \smallpoint
              \def\cheadfont{\tensprmbigg}\relax
              \def\sheadfont{\tenspbfxbig}\relax
              \def\ssheadfont{\tenspbfx}\relax
              \def\sssheadfont{\tenspbfx}\relax
              \def\dsssheadfont{\tenspbfx}\relax
              \setspacings \fi
\def\bigfont{\tenspbfxbig}\def\biggfont{\tenspbfxbigg}\relax
\def\bigggfont{\tenspbfxbiggg}\let\titlefont = \biggfont
  \let\sc=\tenspccsm }

\catcode`\@=12