summaryrefslogtreecommitdiff
path: root/macros/text1/macros/cm8.textext
diff options
context:
space:
mode:
Diffstat (limited to 'macros/text1/macros/cm8.textext')
-rw-r--r--macros/text1/macros/cm8.textext40
1 files changed, 40 insertions, 0 deletions
diff --git a/macros/text1/macros/cm8.textext b/macros/text1/macros/cm8.textext
new file mode 100644
index 0000000000..ea69af7705
--- /dev/null
+++ b/macros/text1/macros/cm8.textext
@@ -0,0 +1,40 @@
+\global\newif\ifcmVIIIbierr
+\font\cmVIIIcc=cmcsc8
+\font\cmVIIIrm=cmr8 \font\cmVIIIit=cmti8
+\font\cmVIIIbd=cmbx8 \font\cmVIIImi=cmmi8
+\font\cmVIIItt=cmtt8
+\expandafter\newdimen\csname\the\naMEtok ilsviii\endcsname
+\global\csname\the\naMEtok ilsviii\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsviii\endcsname=0pt
+\csname\the\naMEtok ilsviii\endcsname=10pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\cmVIIIrm}%
+\def\noexpand\mi{\fam1\cmVIIImi}%
+\def\noexpand\sy{\fam2\tensy}%
+\def\noexpand\ex{\fam3\tenex}%
+ \textfont0=\cmVIIIrm \textfont1=\cmVIIImi
+ \textfont2=\tensy \textfont3=\tenex
+ \textfont\itfam=\cmVIIIit
+ \textfont\ttfam=\cmVIIItt \textfont\bffam=\cmVIIIbd
+ \textfont\ccfam=\cmVIIIcc
+\def\noexpand\bd{\fam\bffam\cmVIIIbd}%
+\def\noexpand\it{\fam\itfam\cmVIIIit}%
+\def\noexpand\tt{\fam\ttfam\cmVIIItt}%
+\def\noexpand\cc{\fam\ccfam\cmVIIIcc}%
+\def\noexpand\bi{\noexpand\ifcmVIIIbierr\noexpand\it%
+\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %
+No bold italic font in CM8. Will print italic font .}%
+\noexpand\global\noexpand\cmVIIIbierrtrue \noexpand\fi}%
+\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 ilsviii\noexpand\endcsname}}%