summaryrefslogtreecommitdiff
path: root/macros/text1/compugraphics_8600/et18.textext
diff options
context:
space:
mode:
Diffstat (limited to 'macros/text1/compugraphics_8600/et18.textext')
-rw-r--r--macros/text1/compugraphics_8600/et18.textext37
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}}%