blob: 710177059fa700f87fce1e159bf6262d73b265e8 (
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
|
\global\newif\ifcmVIIIssbierr
\global\newif\ifcmVIIIssccerr
\global\newif\ifcmVIIIsstterr
\global\newif\ifcmVIIIssbderr
\font\cmVIIIssit=cmssi8
\font\cmVIIIssrm=cmss8 \font\cmVIIIssmi=cmmi8
\font\cmVIIIsssy=cmsy8 \font\cmVIIIssex=cmex10
\expandafter\newdimen\csname\the\naMEtok ilsviiiss\endcsname
\global\csname\the\naMEtok ilsviiiss\endcsname=\bAseSkip
\ifdim\csname\the\naMEtok ilsviiiss\endcsname=0pt
\csname\the\naMEtok ilsviiiss\endcsname=10pt\fi%
\expandafter\xdef\csname\the\naMEtok\endcsname{%
\def\noexpand\rm{\fam0\cmVIIIssrm}%
\def\noexpand\mi{\fam1\cmVIIIssmi}%
\def\noexpand\sy{\fam2\cmVIIIsssy}%
\def\noexpand\ex{\fam3\cmVIIIssex}%
\textfont0=\cmVIIIssrm \textfont1=\cmVIIIssmi
\textfont2=\cmVIIIsssy \textfont3=\cmVIIIssex
\textfont\itfam=\cmVIIIssit
\def\noexpand\it{\fam\itfam\cmVIIIssit}%
\def\noexpand\bd{\noexpand\ifcmVIIIssbderr\noexpand\rm%
\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
No bold font in CMSAN8. Will print roman font .}%
\noexpand\global\noexpand\cmVIIIssbderrtrue \noexpand\fi}%
\def\noexpand\bi{\noexpand\ifcmVIIIssbierr\noexpand\it%
\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %
No bold italic font in CMSAN8. Will print italic font .}%
\noexpand\global\noexpand\cmVIIIssbierrtrue \noexpand\fi}%
\def\noexpand\tt{\noexpand\ifcmVIIIsstterr\noexpand\rm%
\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
No typewriter font in CMSAN8. Will print roman font .}%
\noexpand\global\noexpand\cmVIIIsstterrtrue \noexpand\fi}%
\def\noexpand\cc{\noexpand\ifcmVIIIssccerr\noexpand\rm%
\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
No small caps font in CMSAN8. Will print roman font .}%
\noexpand\global\noexpand\cmVIIIssccerrtrue \noexpand\fi}%
\noexpand\rm%
\noexpand\nonIBM%
\noexpand\let\noexpand\bolditalic=\noexpand\bi%
\noexpand\let\noexpand\italic=\noexpand\it%
\noexpand\let\noexpand\bold=\noexpand\bd%
\noexpand\let\noexpand\caps=\noexpand\cc%
\noexpand\let\noexpand\typewriter=\noexpand\tt%
\noexpand\let\noexpand\roman=\noexpand\rm%
\noexpand\let\noexpand\symbol=\noexpand\sy%
\noexpand\let\noexpand\mathitalic=\noexpand\mi%
\noexpand\let\noexpand\extension=\noexpand\ex%
\noexpand\interlineskip{%
\noexpand\csname\the\naMEtok ilsviiiss\noexpand\endcsname}}%
|