summaryrefslogtreecommitdiff
path: root/macros/text1/pc/misc/cmsan18.txt
diff options
context:
space:
mode:
Diffstat (limited to 'macros/text1/pc/misc/cmsan18.txt')
-rw-r--r--macros/text1/pc/misc/cmsan18.txt46
1 files changed, 46 insertions, 0 deletions
diff --git a/macros/text1/pc/misc/cmsan18.txt b/macros/text1/pc/misc/cmsan18.txt
new file mode 100644
index 0000000000..a1a581291e
--- /dev/null
+++ b/macros/text1/pc/misc/cmsan18.txt
@@ -0,0 +1,46 @@
+\global\newif\ifXVIIIssbierr
+\global\newif\ifXVIIIssccerr
+\global\newif\ifXVIIIsstterr
+\font\cmXVIIIssrm=cmss18 \font\cmXVIIIssit=cmssi18
+\font\cmXVIIIssbd=cmssbx18 \font\cmXVIIIssmi=cmmi18
+\font\cmXVIIIsssy=cmsy18 \font\cmXVIIIssex=cmex18
+\expandafter\newdimen\csname\the\naMEtok ilsxviiiss\endcsname
+\global\csname\the\naMEtok ilsxviiiss\endcsname=\bAseSkip
+\ifdim\csname\the\naMEtok ilsxviiiss\endcsname=0pt
+\csname\the\naMEtok ilsxviiiss\endcsname=20pt\fi%
+\expandafter\xdef\csname\the\naMEtok\endcsname{%
+\def\noexpand\rm{\fam0\cmXVIIIssrm}%
+\def\noexpand\mi{\fam1\cmXVIIIssmi}%
+\def\noexpand\sy{\fam2\cmXVIIIsssy}%
+\def\noexpand\ex{\fam3\cmXVIIIssex}%
+ \textfont0=\cmXVIIIssrm \textfont1=\cmXVIIIssmi
+ \textfont2=\cmXVIIIsssy \textfont3=\cmXVIIIssex
+ \textfont\itfam=\cmXVIIIssit
+ \textfont\bffam=\cmXVIIIssbd
+\def\noexpand\bd{\fam\bffam\cmXVIIIssbd}%
+\def\noexpand\it{\fam\itfam\cmXVIIIssit}%
+\def\noexpand\bi{\noexpand\ifXVIIIssbierr\noexpand\it%
+\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %
+No bold italic font in CMSAN18. Will print italic font .}%
+\noexpand\global\noexpand\XVIIIssbierrtrue \noexpand\fi}%
+\def\noexpand\tt{\noexpand\ifXVIIIsstterr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No typewriter font in CMSAN18. Will print roman font .}%
+\noexpand\global\noexpand\XVIIIsstterrtrue \noexpand\fi}%
+\def\noexpand\cc{\noexpand\ifXVIIIssccerr\noexpand\rm%
+\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %
+No small caps font in CMSAN18. Will print roman font .}%
+\noexpand\global\noexpand\XVIIIssccerrtrue \noexpand\fi}%
+\noexpand\rm%
+\noexpand\nonIBM%
+\noexpand\let\noexpand\italic=\noexpand\it%
+\noexpand\let\noexpand\bolditalic=\noexpand\bi%
+\noexpand\let\noexpand\bold=\noexpand\bd%
+\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 ilsxviiiss\noexpand\endcsname}}%