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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
%%
%% This is file `cmtiupgn.mf',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% cmtiup.dtx (with options: `cmtiupgn')
%%
%% IMPORTANT NOTICE:
%%
%% For the copyright see the source file.
%%
%% Any modified versions of this file must be renamed
%% with new filenames distinct from cmtiupgn.mf.
%%
%% For distribution of the original source see the terms
%% for copying and modification in the file cmtiup.dtx.
%%
%% This generated file may be distributed as long as the
%% original source files, as listed above, are part of the
%% same distribution. (The sources need not necessarily be
%% in the same archive or directory.)
%% The Computer Modern Text Italic family (by D. E. Knuth, 1979--1985)
%% driver with the unslanted digits and symbols by SVZ (1.3 2003/01/03)
mode_setup; font_setup;
input itall; % lower case (minuscules)
input italsp; % lowercase specials (dotless \i, ligature \ae, etc.)
if ligs>1: font_coding_scheme:="TeX text";
spanish_shriek=oct"074"; spanish_query=oct"076";
%% input italig; % letter ligatures
input cmtiuplg; % unproper here kerning removed from Knuth italig.mf;
else: font_coding_scheme:=if ligs=0: "TeX typewriter text"
else: "TeX text without f-ligatures" fi;
spanish_shriek=oct"016"; spanish_query=oct"017"; fi
font_slant slant; font_x_height x_height#;
if monospace: font_normal_space 9u#; % no stretching or shrinking
font_quad 18u#;
font_extra_space 9u#;
letter_fit#:=letter_fit:=0;
else: font_normal_space 6u#+2letter_fit#;
font_normal_stretch 3u#; font_normal_shrink 2u#;
font_quad 18u#+4letter_fit#;
font_extra_space 2u#; fi
input romanu; % upper case (majuscules)
input greeku; % upper case greek letters
input romspu; % uppercase specials (\AE, \OE, \O)
input accent; % accents common to roman and italic text
if ligs>0: input comlig; fi % ligatures common with roman text
if ligs<=1: input romsub; fi % substitutes for ligatures
new_slant=slant;
input cmtiupp
input romand; % numerals
input punct; % punctuation symbols common to roman and italic text
ligtable "!": "`" =: spanish_shriek;
ligtable "?": "`" =: spanish_query;
slant:=new_slant;
font_setup;
def addkern=":"kern 3u#,
";"kern 3u#,"!"kern 3u#,"("kern 3u#,")"kern 3u#,"]"kern 3u#,"["kern 3u#,
"?"kern 3u#,"0"kern 3u#,"1"kern 3u#,"2"kern 3u#,"3"kern 3u#,"4"kern 3u#,
"5"kern 3u#,"6"kern 3u#,"7"kern 3u#,"8"kern 3u#,"9"kern 3u#,
"#"kern 3u#,"%"kern 3u#,"@"kern 3u#,
"*"kern 1.5u#,"+"kern 1.5u#,"/"kern 3u#, spanish_shriek kern 3u#,
spanish_query kern 3u# enddef;
def addkerns=":"kern 1.5u#,
";"kern 1.5u#,"!"kern 2u#,"("kern 2u#,")"kern 2u#,"]"kern 2u#,"["kern 2u#,
"?"kern 2u#,"0"kern 1.5u#,"1"kern 2u#,"2"kern 2u#,"3"kern 2u#,"4"kern 1.5u#,
"5"kern 2u#,"6"kern 1.5u#,"7"kern 2u#,"8"kern 2u#,"9"kern 2u#,
"#"kern 2u#,"%"kern 1.5u#,"@"kern 2u#,
"*"kern 1.5u#,"+"kern 1.5u#,"/"kern 2u#, spanish_shriek kern 2u#,
spanish_query kern 2u# enddef;
def addkernss=":"kern u#,
";"kern u#,"!"kern u#,"("kern u#,")"kern u#,"]"kern u#,"["kern u#,
"?"kern u#,"0"kern u#,"1"kern u#,"2"kern u#,"3"kern u#,"4"kern u#,
"5"kern u#,"6"kern u#,"7"kern u#,"8"kern u#,"9"kern u#,
"#"kern u#,"%"kern u#,"@"kern u#,
"*"kern u#,"+"kern u#,"/"kern u#, spanish_shriek kern u#,
spanish_query kern u# enddef;
if not monospace:
k#:=-.5u#; kk#:=-1.5u#; kkk#:=-2u#; % three degrees of kerning
ligtable "d": "w": "l": "l" kern +u#, addkerns;
ligtable "F": "V": "o" kern kk#, "e" kern kk#,
"u" kern kk#, "r" kern kk#, "a" kern kk#, "A" kern kkk#,
"K": "X": "O" kern k#, "C" kern k#, "G" kern k#, "Q" kern k#, addkerns;
ligtable "T": "y" kern kk#,
"Y": "e" kern kk#, "o" kern kk#, "r" kern kk#, "a" kern kk#, "u" kern kk#,
"W": "A" kern kk#, addkern;
ligtable "P": "A" kern kk#, addkerns;
ligtable "O": "D": "X" kern k#, "W" kern k#, "A" kern k#,
"V" kern k#, "Y" kern k#, addkerns;
ligtable "A": "n" kern k#, "l" kern k#, "r" kern k#, "u" kern k#,
"m" kern k#, "t" kern k#, "i" kern k#, "C" kern k#, "O" kern k#,
"G" kern k#, "h" kern k#, "b" kern k#, "U" kern k#, "k" kern k#,
"v" kern k#, "w" kern k#, "Q" kern k#,
"T" kern kk#, "Y" kern kk#,
"V" kern kkk#, "W" kern kkk#,
"e" kern -u#, "a" kern -u#, "o" kern -u#,
"d" kern -u#, "c" kern -u#, "g" kern -u#, "q" kern -u#, addkernss;
ligtable "R": "n" kern k#, "l" kern k#, "r" kern k#, "u" kern k#,
"m" kern k#, "t" kern k#, "i" kern k#, "C" kern k#, "O" kern k#,
"G" kern k#, "h" kern k#, "b" kern k#, "U" kern k#, "k" kern k#,
"v" kern k#, "w" kern k#, "Q" kern k#,
"L": "T" kern kk#, "Y" kern kk#, "V" kern kkk#, "W" kern kkk#, addkerns,
"e" kern -u#, "a" kern -u#, "o" kern -u#, "d" kern -u#, "c" kern -u#,
"g" kern -u#, "q" kern -u#;
ligtable "b": "c": "e": "o": "p": "r": "e" kern -u#, "a" kern -u#,
"o" kern -u#, "d" kern -u#, "c" kern -u#, "g" kern -u#, "q" kern -u#,
addkernss;
ligtable "n": "'" kern kkk#, addkerns;
ligtable "U": "I": "H": "J":"M": "N":"Z": addkern;
ligtable "Q": "E": "S": "G": "B": "C": "q": "t": "y": "u": "i": "a":
"s": "g": "h": "j": "k": "m": "v": "x": "z": addkerns;
ligtable "f": "i"=:oct"014", "f"=:oct"013", "l"=:oct"015","'" kern 2u#,
addkern;
ligtable oct"013": "i"=:oct"016", "l"=:oct"017","'" kern 2u#,
addkern;
fi
%% there are ligature/kern programs
%% for |"-"|, |"`"|, and |"'"| in the {\tt comlig} file
bye.
endinput;
|
