summaryrefslogtreecommitdiff
path: root/macros/text1/compugraphics_8600/et18.textext
blob: e59a1bc47ea97974bae2a105ee8463f5fc527419 (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\cgetXVIIIrm=etr at 18pt\font\cgetXVIIIit=eti at 18pt
\font\cgetXVIIIbd=etb at 18pt \font\cgetXVIIImi=mthit at 18pt
\font\cgetXVIIIsy=symbola at 18pt \font\cgetXVIIIex=ext at 18pt
\font\cgetXVIIIbi=etbi at 18pt \font\cgetXVIIItt=elite at 18pt
\font\cgetXVIIIcc=etsc at 18pt\font\cgetXVIIImrm=mthrm at 18pt
\expandafter\newdimen\csname\the\naMEtok ilsxviiiet\endcsname
\global\csname\the\naMEtok ilsxviiiet\endcsname=\bAseSkip
\ifdim\csname\the\naMEtok ilsxviiiet\endcsname=0pt
\csname\the\naMEtok ilsxviiiet\endcsname=20pt\fi%
\expandafter\xdef\csname\the\naMEtok\endcsname{%
  \def\noexpand\rm{\fam0\cgetXVIIIrm}%
  \def\noexpand\mi{\fam1\cgetXVIIImi}%
  \def\noexpand\sy{\fam2\cgetXVIIIsy}%
  \def\noexpand\ex{\fam3\cgetXVIIIex}%
    \textfont0=\cgetXVIIImrm \textfont1=\cgetXVIIImi
    \textfont2=\cgetXVIIIsy \textfont3=\cgetXVIIIex
    \textfont\itfam=\cgetXVIIIit\textfont\bifam=\cgetXVIIIbi
    \textfont\ttfam=\cgetXVIIItt \textfont\bffam=\cgetXVIIIbd
    \textfont\ccfam=\cgetXVIIIcc
  \def\noexpand\bd{\fam\bffam\cgetXVIIIbd}%
  \def\noexpand\it{\fam\itfam\cgetXVIIIit}%
  \def\noexpand\bi{\fam\bifam\cgetXVIIIbi}%
  \def\noexpand\tt{\fam\ttfam\cgetXVIIItt}%
  \def\noexpand\cc{\fam\ccfam\cgetXVIIIcc}%
\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 ilsxviiiet\noexpand\endcsname}}%