summaryrefslogtreecommitdiff
path: root/macros/text1/macros/cm5.textext
blob: 3cdb0205e3584b5027b7b244b1ad8bea9624e0cb (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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
\global\newif\ifVbierr                                                          
\global\newif\ifVccerr                                                          
\global\newif\ifVtterr                                                          
\global\newif\ifViterr                                                          
\global\newif\ifVbderr                                                          
\expandafter\newdimen\csname\the\naMEtok ilsv\endcsname                         
\global\csname\the\naMEtok ilsv\endcsname=\bAseSkip                             
\ifdim\csname\the\naMEtok ilsv\endcsname=0pt                                    
\csname\the\naMEtok ilsv\endcsname=8pt\fi%                                      
\expandafter\xdef\csname\the\naMEtok\endcsname{%                                
\def\noexpand\rm{\fam0\fiverm}%                                                 
\def\noexpand\mi{\fam1\fivei}%                                                  
\def\noexpand\sy{\fam2\fivesy}%                                                 
\def\noexpand\ex{\fam3\tenex}%                                                  
    \textfont0=\fiverm\textfont1=\fivei                                         
    \textfont2=\fivesy\textfont3=\tenex                                         
    \textfont\bffam=\fivebf                                                     
\def\noexpand\bd{\noexpand\ifVbderr\noexpand\fam\bffam\fivebf%                  
\noexpand\else\noexpand\fam\bffam\fivebf%                                       
\noexpand\message{<TEXT1> Warning. %                                            
No bold  font in CM5. Will print bold extended font .}%                         
\noexpand\global\noexpand\Vbderrtrue \noexpand\fi}%                             
\def\noexpand\it{\noexpand\ifViterr\noexpand\rm%                                
\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %                  
No italic  font in CM5. Will print roman font .}%                               
\noexpand\global\noexpand\Viterrtrue \noexpand\fi}%                             
\def\noexpand\tt{\noexpand\ifVtterr\noexpand\rm%                                
\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %                  
No typewriter  font in CM5. Will print roman font .}%                           
\noexpand\global\noexpand\Vtterrtrue \noexpand\fi}%                             
\def\noexpand\bi{\noexpand\ifVbierr\noexpand\it%                                
\noexpand\else\noexpand\it\noexpand\message{<TEXT1> Warning. %                  
No bold italic  font in CM5. Will print italic font .}%                         
\noexpand\global\noexpand\Vbierrtrue \noexpand\fi}%                             
\def\noexpand\cc{\noexpand\ifVccerr\noexpand\rm%                                
\noexpand\else\noexpand\rm\noexpand\message{<TEXT1> Warning. %                  
No small caps font  in CM5. Will print roman font .}%                           
\noexpand\global\noexpand\Vccerrtrue \noexpand\fi}%                             
\noexpand\rm%                                                                   
\noexpand\nonIBM%                                                               
\noexpand\let\noexpand\bolditalic=\noexpand\bi%                                 
\noexpand\let\noexpand\italic=\noexpand\it%                                     
\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 ilsv\noexpand\endcsname}}%