diff options
Diffstat (limited to 'macros/text1/compugraphics_8600/et18.textext')
-rw-r--r-- | macros/text1/compugraphics_8600/et18.textext | 37 |
1 files changed, 37 insertions, 0 deletions
diff --git a/macros/text1/compugraphics_8600/et18.textext b/macros/text1/compugraphics_8600/et18.textext new file mode 100644 index 0000000000..e59a1bc47e --- /dev/null +++ b/macros/text1/compugraphics_8600/et18.textext @@ -0,0 +1,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}}% |