blob: ed560d4d5b7aa052096c5736a4cfe83373685396 (
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
|
\font\cgetIXrm=etr at 9pt\font\cgetIXit=eti at 9pt
\font\cgetIXbd=etb at 9pt \font\cgetIXmi=mthit at 9pt
\font\cgetIXsy=symbola at 9pt \font\cgetIXex=ext at 9pt
\font\cgetIXbi=etbi at 9pt \font\cgetIXtt=elite at 9pt
\font\cgetIXcc=etsc at 9pt\font\cgetIXmrm=mthrm at 9pt
\expandafter\newdimen\csname\the\naMEtok ilsixet\endcsname
\global\csname\the\naMEtok ilsixet\endcsname=\bAseSkip
\ifdim\csname\the\naMEtok ilsixet\endcsname=0pt
\csname\the\naMEtok ilsixet\endcsname=11pt\fi%
\expandafter\xdef\csname\the\naMEtok\endcsname{%
\def\noexpand\rm{\fam0\cgetIXrm}%
\def\noexpand\mi{\fam1\cgetIXmi}%
\def\noexpand\sy{\fam2\cgetIXsy}%
\def\noexpand\ex{\fam3\cgetIXex}%
\textfont0=\cgetIXmrm \textfont1=\cgetIXmi
\textfont2=\cgetIXsy \textfont3=\cgetIXex
\textfont\itfam=\cgetIXit\textfont\bifam=\cgetIXbi
\textfont\ttfam=\cgetIXtt \textfont\bffam=\cgetIXbd
\textfont\ccfam=\cgetIXcc
\def\noexpand\bd{\fam\bffam\cgetIXbd}%
\def\noexpand\it{\fam\itfam\cgetIXit}%
\def\noexpand\bi{\fam\bifam\cgetIXbi}%
\def\noexpand\tt{\fam\ttfam\cgetIXtt}%
\def\noexpand\cc{\fam\ccfam\cgetIXcc}%
\noexpand\rm%
\noexpand\nonIBM%
\noexpand\let\noexpand\italic=\noexpand\it
\noexpand\let\noexpand\bold=\noexpand\bd
\noexpand\let\noexpand\bolditalic=\noexpand\bi%
\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 ilsixet\noexpand\endcsname}}%
|
