2
% Washington Roman Indic lowercase base file
4
% based on ITALL.MF (Computer Modern Roman Italic lowercase base file)
6
% Modified by: Thomas Ridgeway <ridgeway@u.washington.edu>, June 19 1993
7
% Updated: Anshuman Pandey <apandey@u.washington.edu>, Feb 18 1998
9
% Changes: modified accent positions of some characters
12
if unknown dotson: boolean dotson; dotson=true; fi
14
% cmchar "Italic letter a";
15
newchar(a,9u#,x_height#,0);
16
italcorr 1/3x_height#*slant+.5hair#+.5u#;
17
adjust_fit(0,0); pickup fine.nib;
18
pos0(hair,0); pos1(vair,90); pos2(curve,180); pos3(vair,270);
19
pos4(stem,0); x4=x0; y4+.5stem=vround .98h;
20
x1=x3=.5[x0,x2]; lft x2r=hround(1.5u-.5curve);
21
rt x4r=hround(w-2.5u+.5stem);
22
top y1r=h+oo; bot y3r=-oo; y0=y2=.5[y1,y3];
23
filldraw stroke super_arc.e(0,1) & pulled_arc.e(1,2)
24
& pulled_arc.e(2,3) & super_arc.e(3,0); % bowl
25
x5=x4; x7=w; hook_out(5,6,7); % closing hook
26
filldraw circ_stroke z4e--z5e; % stem
27
pairequate(tca,z1); %top center accentpoint
28
pairequate(lca,z3); %low center accentpoint
29
pairequate(tra,z4); %top right accentpoint
30
pairequate(tla,tca); %top left accentpoint
31
pairequate(lla,lca); %low left accentpoint
32
pairequate(lra,z6); %low right accentpoint
33
math_fit(-.3x_height#*slant+.5curve#-u#,ic#);
34
penlabels(0,1,2,3,4,5,6,7); endchar;
36
% cmchar "Italic letter b";
37
newchar(b,8u#,asc_height#,0);
38
italcorr .7x_height#*slant+.5curve#-u# if math_fitting:-.5u# fi;
39
adjust_fit(0,0); pickup tiny.nib;
40
pos1(stem,0); pos2(stem,0); x1=x2;
41
lft x1l=hround(1.5u-.5stem); top y1=h; y2=.5x_height;
42
filldraw stroke z1e--z2e; % stem
43
sloped_serif.l(1,2,a,1/3,jut,serif_drop); % serif
44
pickup fine.nib; pos2'(stem,-180); pos3(vair,-90);
45
pos4(curve,0); pos5(vair,90); pos0(hair,180);
46
z0=z2=z2'; x3=x5=.5[x2,x4]; rt x4r=hround(w-1.5u+.5curve);
47
bot y3r=-oo; top y5r=x_height+oo; y4=y2;
48
filldraw stroke pulled_arc.e(2',3) & pulled_arc.e(3,4)
49
& pulled_arc.e(4,5) & super_arc.e(5,0); % bowl
50
pairassign(tca,x5,asc_height); %top center accentpoint
51
pairequate(lca,z3); %low center accentpoint
52
pairequate(tra,tca); %top right accentpoint
53
pairequate(tla,z1); %top left accentpoint
54
pairequate(lla,lca); %low left accentpoint
55
pairequate(lra,lca); %low right accentpoint
56
math_fit(-.3x_height#*slant+.5curve#-u#,ic#);
57
penlabels(0,1,2,3,4,5); endchar;
59
% cmchar "Italic letter c";
60
newchar(c,8u#,x_height#,0);
61
italcorr if math_fitting:1/3x_height#*slant else:x_height#*slant-u# fi;
62
adjust_fit(0,0); pickup fine.nib;
63
pos0(flare,0); pos1(hair,0); pos2(vair,90);
64
pos3(curve,180); pos4(vair,270); pos5(hair,320);
65
x2=x4=.5(w+u); rt x1r=max(rt x2,hround(w-u))+eps;
66
lft x3r=hround(1.5u-.5curve); x5r=good.x(w-eps); x6=x5;
67
y1=.5[bar_height,h]; top y2r=h+oo; bulb(2,1,0); % bulb
68
bot y4r=-oo; y3=.5[y2,y4]; top y5l=vround .5bar_height; y6=bar_height;
69
path p; p=z4{right}..z5..z6;
70
filldraw stroke pulled_arc.e(2,3)
71
& pulled_arc.e(3,4)...{direction 1 of p}z5e; % arc
72
pairequate(tca,z2); %top center accentpoint
73
pairequate(lca,z4); %low center accentpoint
74
pairequate(tra,tca); %top right accentpoint
75
pairequate(tla,tca); %top left accentpoint
76
pairequate(lla,lca); %low left accentpoint
77
pairequate(lra,lca); %low right accentpoint
78
math_fit(-.3x_height#*slant+.5curve#-u#,ic#);
79
penlabels(0,1,2,3,4,5,6); endchar;
81
% cmchar "Italic letter d";
82
newchar(d,9u#,asc_height#,0);
83
italcorr max(1/3x_height#*slant+.5hair#+.5u#,
84
h#*slant+.5stem#-2u#) if math_fitting:-.5u# fi;
85
adjust_fit(0,0); pickup fine.nib;
86
pos0(hair,0); pos1(vair,90); pos2(curve,180); pos3(vair,270);
87
x0=x4; x1=x3=.5[x0,x2]; lft x2r=hround(1.5u-.5curve);
88
x4+.5stem=hround(w-2.5u+.5stem);
89
top y1r=x_height+oo; bot y3r=-oo; y0=y2=.5[y1,y3];
90
filldraw stroke super_arc.e(0,1) & pulled_arc.e(1,2)
91
& pulled_arc.e(2,3) & super_arc.e(3,0); % bowl
92
x5=x0; x7=w; hook_out(5,6,7); % closing hook
93
pickup tiny.nib; pos5'(stem,0); pos4(stem,0);
94
z5'=z5; top y4=h; filldraw stroke z4e--z5'e; % stem
95
sloped_serif.l(4,5',a,1/3,jut,serif_drop); % serif
96
pairassign(tca,x1,asc_height); %top center accentpoint
97
pairequate(lca,z3); %low center accentpoint
98
pairequate(tra,z4); %top right accentpoint
99
pairequate(tla,tca); %top left accentpoint
100
pairequate(lla,lca); %low left accentpoint
101
pairequate(lra,z6); %low right accentpoint
102
math_fit(-.3x_height#*slant+.5curve#-u#,ic#);
103
penlabels(0,1,2,3,4,5,6,7); endchar;
105
% cmchar "Italic letter e";
106
newchar(e,8u#,x_height#,0);
107
italcorr max(1/3x_height#*slant,x_height#*slant+.5(.2[hair#,stem#])-u#);
108
adjust_fit(0,0); pickup fine.nib;
109
numeric heavy_hair; heavy_hair=hround .2[hair,stem];
110
pos0(vair,-90); pos1(heavy_hair,0); pos2(vair,90);
111
pos3(curve,180); pos4(vair,270); pos5(hair,320);
112
x0=rt x3l; rt x1r=hround(w-1.5u+.5heavy_hair); x2=x4=.5(w+u);
113
lft x3r=hround(1.5u-.5curve); x5r=good.x(w-eps); x6=x5;
114
y0=y3=y6=bar_height; y1=.5[y0,y2]; top y2r=h+oo; bot y4r=-oo;
115
top y5l=vround .5bar_height; path p; p=z4{right}..z5..z6;
116
filldraw stroke z0e{right}...z1e{up}...pulled_arc.e(2,3)
117
& pulled_arc.e(3,4)...{direction 1 of p}z5e; % arc
118
pairequate(tca,z2); %top center accentpoint
119
pairequate(lca,z4); %low center accentpoint
120
pairequate(tra,tca); %top right accentpoint
121
pairequate(tla,tca); %top left accentpoint
122
pairequate(lla,lca); %low left accentpoint
123
pairequate(lra,lca); %low right accentpoint
124
math_fit(-.3x_height#*slant+.5curve#-u#,ic#);
125
penlabels(0,1,2,3,4,5,6); endchar;
127
% cmchar "Italic letter f";
128
newchar(f,max(1.5u#,stem#)+max(3.5u#,2flare#),asc_height#,desc_depth#);
129
italcorr asc_height#*slant+.75u#;
130
adjust_fit(if monospace:u#,u# else: 0,0 fi); pickup fine.nib;
131
numeric theta; z88=(.5w-.5u,h); z89=(.5w+.5u,-d); theta=angle(z88-z89);
132
pos0(flare,0); pos1(hair,0); pos2(vair,90);
133
pos3(.5[hair,stem],180); pos4(stem,theta+90);
134
pos5(stem,theta-90); pos6(.5[hair,stem],0);
135
pos7(vair,-90); pos8(hair,-180); pos9(flare,-180);
136
rt x1r=hround(w+.25u); lft x8r=hround-.35u; x2=.6[x1,x4]; x7=.6[x8,x5];
137
y9-.5flare=vround -.85d; y2-y0=y9-y7; top y2r=h+oo; bot y7r=-d-oo;
138
y4=.25[x_height,h]; y5=.5[-d,y4];
139
z4=whatever[z88,z89]; z5=whatever[z88,z89];
140
x3=.8[x2+x4-x88,x88]; x6=.8[x7+x5-x89,x89]; y3=.8[y4,y2]; y6=.8[y5,y7];
141
bulb(2,1,0); bulb(7,8,9); % bulbs
142
filldraw stroke z2e{left}...z3e...{z89-z88}z4e; % upper arc
143
filldraw z4r--z5l--z5r--z4l--cycle; % stem
144
filldraw stroke z5e{z89-z88}...z6e...{left}z7e; % lower arc
145
pickup crisp.nib; pos20(bar,90); pos21(bar,90);
146
top y20r=top y21r=x_height;
147
lft x20=lft x4r-.5stem-u; rt x21=rt x4l+.5stem+1.5u;
148
filldraw stroke z20e--z21e; % crossbar
149
pairequate(tca,z2); %top center accentpoint
150
pairequate(lca,z7); %low center accentpoint
151
pairequate(tra,tca); %top right accentpoint
152
pairequate(tla,tca); %top left accentpoint
153
pairequate(lla,lca); %low left accentpoint
154
pairequate(lra,lca); %low right accentpoint
155
math_fit(desc_depth#*slant+u#,x_height#*slant);
156
penlabels(0,1,2,3,4,5,6,7,8,9,20,21,88,89); endchar;
158
% cmchar "Italic letter g";
159
newchar(g,8u#,x_height#,desc_depth#);
160
italcorr x_height#*slant+.5stem#-u#;
161
adjust_fit(0,0); pickup fine.nib;
162
pos0(hair,0); pos1(vair,90); pos2(curve,180); pos3(vair,270);
163
x0=x4; x1=x3=.5[x0,x2]; lft x2r=hround(1.5u-.5curve);
164
x4+.5stem=hround(w-1.5u+.5stem);
165
top y1r=h+oo; bot y3r=0; y0=y2=.5[y1,y3];
166
filldraw stroke super_arc.e(0,1) & pulled_arc.e(1,2)
167
& pulled_arc.e(2,3) & super_arc.e(3,0); % bowl
168
pos4(stem,0); y4+.5stem=vround .98h;
169
pos5(stem,0); x5=x4; y5=-1/3d;
170
pos6(vair,-90); pos7(hair,-180); pos8(flare,-180);
171
bot y6r=-d-oo; y8-.5flare=vround -.9d;
172
lft x8r=hround(2u-.5flare); x6=x1; bulb(6,7,8); % bulb
173
filldraw circ_stroke z4e---z5e...{left}z6e; % stem and arc
174
pairequate(tca,z1); %top center accentpoint
175
pairequate(lca,z6); %low center accentpoint
176
pairequate(tra,z4); %top right accentpoint
177
pairequate(tla,tca); %top left accentpoint
178
pairequate(lla,lca); %low left accentpoint
179
pairequate(lra,lca); %low right accentpoint
180
math_fit(-min(.3x_height#*slant+.5curve#-u#,1.5u#-desc_depth#*slant),
181
ic#-1/3x_height#*slant); penlabels(0,1,2,3,4,5,6,7,8); endchar;
183
% cmchar "Italic letter h";
184
newchar(h,9u#,asc_height#,0);
185
italcorr 1/3x_height#*slant+.5hair#+.5u#;
186
adjust_fit(0,0); pickup tiny.nib;
187
pos1(stem,0); pos2(stem,0); x1=x2;
188
lft x1l=hround(1.5u-.5stem); top y1=h; y2-.5stem=-oo;
189
filldraw circ_stroke z2e--z1e; % left stem
190
sloped_serif.l(1,2,a,1/3,jut,serif_drop); % serif
191
pickup fine.nib; x4+.5stem=hround(w-2.5u+.5stem);
192
x5=x4-.25u; ital_arch(2,3,4); % arch
193
x7=w; hook_out(5,6,7)(skewed); % closing hook
194
filldraw stroke z4e{down}..{-u,-x_height}z5e; % right stem
195
pairassign(tca,x3,asc_height); %top center accentpoint
196
pairassign(lca,x3,0); %low center accentpoint
197
pairequate(tra,tca); %top right accentpoint
198
pairequate(tla,z1); %top left accentpoint
199
pairequate(lla,z2); %low left accentpoint
200
pairequate(lra,z6); %low right accentpoint
201
math_fit(0,ic#); penlabels(1,2,3,4,5,6,7); endchar;
203
% cmchar "Italic letter i";
204
newchar(i,5u#,min(asc_height#,10/7x_height#+.5flare#),0);
205
italcorr max(1/3x_height#*slant+.5hair#+.5u#,h#*slant+.5flare#-2u#);
206
adjust_fit(if monospace:u#,u# else: 0,0 fi); pickup fine.nib;
207
x0=0; x5=w; x2=.5w+.25u; x3=.5w-.25u;
208
hook_in(0,1,2)(skewed); hook_out(3,4,5)(skewed); % hooks
209
filldraw stroke z2e--z3e; % stem
210
pos8(flare,0); pos9(flare,90);
211
x8=.5w if not monospace:-.4(h-x_height)*slant fi; top y9r=h+1;
212
if bot y9l-top y1<slab: y9l:=min(y9r-eps,y1+fine+slab); fi
213
x8=x9; y8=.5[y9l,y9r];
214
if dotson: dot(8,9); fi % dot
215
pairassign(tca,.5[x1,x2],x_height); %top center accentpoint
216
pairassign(lca,.5[x3,x4],0); %low center accentpoint
217
pairequate(tra,tca); %top right accentpoint
218
pairequate(tla,tca); %top left accentpoint
219
pairequate(lla,lca); %low left accentpoint
220
pairequate(lra,lca); %low right accentpoint
221
math_fit(-2/3x_height#*slant+.5hair#+.5u#,ic#);
222
penlabels(0,1,2,3,4,5,8,9); endchar;
224
% cmchar "Italic letter j";
225
newchar(j,5u#,min(asc_height#,10/7x_height#+.5flare#),desc_depth#);
226
italcorr h#*slant+.5stem#-u#;
227
adjust_fit(if monospace:2u#,.5u# else: 0,0 fi); pickup fine.nib;
228
x0=0; x2=x3; pos3(stem,0); lft x3l=hround(w-1.5u-.5stem);
229
hook_in(0,1,2); % opening hook
230
pos4(vair,-90); pos5(hair,-180); pos6(flare,-180);
231
bot y3=-1/3d; bot y4r=-d-oo; y6-.5flare=-vround.9d;
232
x4=1/3(w-u); lft x5r=min(hround-.5u,lft x5r+x4-x5l-eps);
233
filldraw stroke z2e---z3e...{left}z4e; % stem and arc
235
pos8(flare,0); pos9(flare,90);
236
rt x8r=rt x2r if not monospace:-.6(h-x_height)*slant fi; top y9r=h+1;
237
if bot y9l-top y1<slab: y9l:=min(y9r-eps,y1+fine+slab); fi
238
x8=x9; y8=.5[y9l,y9r];
239
if dotson: dot(8,9); fi % dot
240
pairassign(tca,.5[x1,x2],x_height); %top center accentpoint
241
pairequate(lca,z4); %low center accentpoint
242
pairequate(tra,tca); %top right accentpoint
243
pairequate(tla,z1); %top left accentpoint
244
pairequate(lla,lca); %low left accentpoint
245
pairequate(lra,lca); %low right accentpoint
246
math_fit(desc_depth#*slant,x_height#*slant+.5stem#-u#);
247
penlabels(0,1,2,3,4,5,6,8,9); endchar;
249
% cmchar "Italic letter k";
250
newchar(k,8u#,asc_height#,0);
251
italcorr x_height#*slant;
252
adjust_fit(0,0); pickup tiny.nib;
253
pos1(stem,0); pos2(stem,0); x1=x2;
254
lft x1l=hround(1.5u-.5stem); top y1=h; y2-.5stem=-oo;
255
filldraw circ_stroke z2e--z1e; % left stem
256
sloped_serif.l(1,2,a,1/3,jut,serif_drop); % serif
257
pickup fine.nib; pos3(vair,90); x3=x1; y3=bar_height;
258
pos4(vair,90); x4=w-2u; top y4r=x_height+oo;
259
filldraw stroke z3e{right}..{right}z4e; % upper diagonal
260
pos5(hair,0); pos6(flare,0);
261
rt x5r=hround(w-.5u); y5+.5flare=vround(bot y4l-.03x_height);
263
pos7(stem,0); pos8(vair,90); pos9(hair,180);
264
x9+.5hair=hround(w+.5hair-eps); y9=1/3x_height;
265
lft x7l=hround(w-2.75u-.5stem); y7=1/2y3; x8=w-1.2u; bot y8l=-oo;
266
filldraw stroke z3e{right}...z7e{down}
267
...z8e{right}...{up}z9e; % lower diagonal
268
pairequate(tra,z4); %top right accentpoint
269
if unknown gltl.k: pairassign(tca,.5w,h); %top center accentpoint
271
if cp.k=gltl.k: pairequate(tca,tra);
272
else: pairassign(tca,.5w,h); %top center accentpoint
275
pairassign(lca,.5[x2,x8],0); %low center accentpoint
276
pairequate(tla,z1); %top left accentpoint
277
pairequate(lla,lca); %low left accentpoint
278
pairequate(lra,lca); %low right accentpoint
279
math_fit(0,1/3x_height#*slant+.5hair#+.5u#);
280
penlabels(1,2,3,4,5,6,7,8,9); endchar;
282
% cmchar "Italic letter l";
283
newchar(l,4u#,asc_height#,0); l_width#:=4u#;
284
italcorr max(1/3x_height#*slant+.5hair#+.5u#,
285
asc_height#*slant+.5stem#-2u#) if math_fitting:+.5u# fi;
286
adjust_fit(if monospace:u#,u# else: 0,0 fi); pickup fine.nib;
287
x2-.5stem=hround(1.5u-.5stem); x4=w; hook_out(2,3,4); % closing hook
288
pickup tiny.nib; pos1(stem,0); pos2'(stem,0); z2'=z2;
289
top y1=h; x1=x2; filldraw stroke z1e--z2e; % stem
290
sloped_serif.l(1,2,a,1/3,jut,serif_drop); % serif
291
pairassign(tra,x4,y4); %top right accentpoint
292
if unknown gltl.l: pairequate(tca,z1); %top center accentpoint
294
if cp.l=gltl.l: pairequate(tca,tra);
295
else: pairequate(tca,z1); %top center accentpoint
298
pairequate(lca,z3); %low center accentpoint
299
pairequate(tla,tca); %top left accentpoint
300
pairequate(lla,lca); %low left accentpoint
301
pairequate(lra,lca); %low right accentpoint
302
math_fit(-.5u#,1/3x_height#*slant+.5hair#+u#); penlabels(1,2,3,4); endchar;
304
% cmchar "Italic letter m";
305
newchar(m,15u#,x_height#,0);
306
italcorr 1/3x_height#*slant+.5hair#+.5u#;
307
adjust_fit(if monospace:-1.5u#,-2u# else: 0,0 fi); pickup fine.nib;
308
numeric shaved_stem; shaved_stem=mfudged.stem;
309
save stem; stem=shaved_stem;
311
if monospace: pos1(stem,0); lft x1l=hround(2.5u-.5stem); top y1=h;
312
else: x0=0; lft x2l=hround(2.5u-.5stem);
313
hook_in(0,a,1); fi % opening hook
314
y2-.5stem=-oo; filldraw circ_stroke z2e--z1e; % left stem
315
x4+.5stem=hround(.5w+.5stem); ital_arch(2,3,4); % left arch
316
pos5(stem,0); y5=y2; x5=x4;
317
filldraw circ_stroke z5e--z4e; % middle stem
318
x7+.5stem=hround(w-2.5u+.5stem);
319
x8=x7-.25u; ital_arch(5,6,7); % right arch
320
if monospace: pos9(vair,90); x9=good.x .5[x8,w]; bot y9l=0; y8=1/3h;
321
pos8(stem,0); filldraw stroke z8e{-u,-x_height}...{right}z9e; % terminal
322
else: x9=w; hook_out(8,b,9)(skewed); fi % closing hook
323
filldraw stroke z7e{down}..{-u,-x_height}z8e; % right stem
324
pairassign(tca,x4,x_height); %top center accentpoint
325
pairequate(lca,z5); %low center accentpoint
326
pairequate(tra,z6); %top right accentpoint
327
pairequate(tla,z.a); %top left accentpoint
328
pairequate(lla,z2); %low left accentpoint
329
pairequate(lra,z.b); %low right accentpoint
330
math_fit(-2/3x_height#*slant+.5hair#+.5u#,ic#);
331
penlabels(0,a,1,2,3,4,5,6,7,8,9); endchar;
333
% cmchar "Italic letter n";
334
newchar(n,10u#,x_height#,0);
335
italcorr 1/3x_height#*slant+.5hair#+.5u#;
336
adjust_fit(0,0); pickup fine.nib;
337
x0=0; x1=x2; pos2(stem,0); lft x2l=hround(2.5u-.5stem); y2-.5stem=-oo;
338
hook_in(0,a,1); % opening hook
339
filldraw circ_stroke z2e--z1e; % left stem
340
x4+.5stem=hround(w-2.5u+.5stem); x5=x4-.25u; ital_arch(2,3,4); % arch
341
x7=w; hook_out(5,6,7)(skewed); % closing hook
342
filldraw stroke z4e{down}..{-u,-x_height}z5e; % right stem
343
pairassign(tca,x3,x_height); %top center accentpoint
344
%pairequate(tca,z3); %top center accentpoint
345
pairassign(lca,x3,0); %low center accentpoint
346
pairequate(tra,tca); %top right accentpoint
347
pairequate(tla,z.a); %top left accentpoint
348
pairequate(lla,z2); %low left accentpoint
349
pairequate(lra,z6); %low right accentpoint
350
math_fit(-2/3x_height#*slant+.5hair#+.5u#,ic#);
351
penlabels(0,a,1,2,3,4,5,6,7); endchar;
353
% cmchar "Italic letter o";
354
newchar(o,9u#,x_height#,0);
355
italcorr .7x_height#*slant+.5curve#-u# if math_fitting:-.5u# fi;
356
adjust_fit(0,0); pickup fine.nib;
357
pos1(vair,90); pos2(curve,180); pos3(vair,270); pos4(curve,360);
358
x1=x3=.5w; lft x2r=hround(1.5u-.5curve); x4=w-x2;
359
top y1r=h+oo; y2=y4=.5[y1,y3]; bot y3r=-oo;
360
filldraw stroke pulled_arc.e(1,2) & pulled_arc.e(2,3)
361
& pulled_arc.e(3,4) & pulled_arc.e(4,1); % bowl
362
pairequate(tca,z1); %top center accentpoint
363
pairequate(lca,z3); %low center accentpoint
364
pairequate(tra,tca); %top right accentpoint
365
pairequate(tla,tca); %top left accentpoint
366
pairequate(lla,lca); %low left accentpoint
367
pairequate(lra,lca); %low right accentpoint
368
math_fit(-.3x_height#*slant+.5curve#-u#,ic#); penlabels(1,2,3,4); endchar;
370
% cmchar "Italic letter p";
371
newchar(p,9u#,x_height#,desc_depth#);
372
italcorr .7x_height#*slant+.5curve#-u# if math_fitting:-.5u# fi;
373
adjust_fit(0,0); pickup fine.nib;
374
x0=0; x2-.5stem=hround(2.5u-.5stem); hook_in(0,1,2); % opening hook
375
pos4(hair,-180); pos5(vair,-90); pos6(curve,0); pos7(vair,90);
376
x4=x2; rt x6r=hround(w-1.5u+.5curve); x5=x7=.5[x4,x6];
377
bot y5r=-oo; top y7r=h+oo; y4=y6=.5[y5,y7];
378
filldraw stroke super_arc.e(4,5) & pulled_arc.e(5,6)
379
& pulled_arc.e(6,7) & super_arc.e(7,4); % bowl
380
pickup tiny.nib; pos2'(stem,0); pos3(stem,0);
381
z2=z2'; x3=x2; bot y3=-d; filldraw stroke z2'e--z3e; % stem
382
dish_serif(3,2',a,1/3,.75jut,b,1/3,jut); % serif
383
pairequate(tca,z7); %top center accentpoint
384
pairequate(lca,z3); %low center accentpoint
385
pairequate(tra,tca); %top right accentpoint
386
pairequate(tla,z1); %top left accentpoint
387
pairequate(lla,lca); %low left accentpoint
388
pairequate(lra,lca); %low right accentpoint
389
math_fit(-min(2/3x_height#*slant-.5hair#-.5u#,
390
2u#-.5stem#-desc_depth#*slant),ic#);
391
penlabels(0,1,2,3,4,5,6,7); endchar;
393
% cmchar "Italic letter q";
394
newchar(q,8u#,x_height#,desc_depth#);
395
italcorr x_height#*slant+.5stem#-u#;
396
adjust_fit(0,0); pickup fine.nib;
397
pos0(hair,0); pos1(vair,90); pos2(curve,180); pos3(vair,270);
398
x0=x4; x1=x3=.5[x0,x2]; lft x2r=hround(1.5u-.5curve);
399
x4+.5stem=hround(w-1.5u+.5stem)+eps;
400
top y1r=h+oo; bot y3r=-oo; y0=y2=.5[y1,y3];
401
filldraw stroke super_arc.e(0,1) & pulled_arc.e(1,2)
402
& pulled_arc.e(2,3) & super_arc.e(3,0); % bowl
403
pickup tiny.nib; pos4(stem,0); pos5(stem,0);
404
x4=x5; x6=x5r; top y6=h+oo; bot y4=-d;
405
y5=ypart(((x4l,0)--(x4l,y6))intersectionpoint super_arc.r(0,1));
406
filldraw z6{2(x5l-x6),y5-y6}...z5l---z4l--z4r--cycle; % stem
407
dish_serif(4,5,a,1/3,jut,b,1/3,jut); % serif
408
pairequate(tca,z1); %top center accentpoint
409
pairequate(lca,z4); %low center accentpoint
410
pairequate(tra,tca); %top right accentpoint
411
pairequate(tla,z6); %top left accentpoint
412
pairequate(lla,lca); %low left accentpoint
413
pairequate(lra,lca); %low right accentpoint
414
math_fit(-.3x_height#*slant+.5curve#-u#,ic#-1/3x_height#*slant);
415
penlabels(0,1,2,3,4,5,6,7,8); endchar;
417
% cmchar "Italic letter r";
418
newchar(r,5.5u#+max(1.75u#,flare#),x_height#,0);
419
italcorr x_height#*slant;
420
adjust_fit(if monospace:.25u#,.5u# else: 0,0 fi); pickup fine.nib;
421
x0=0; x2=x3; pos3(stem,0); lft x3l=hround(2.5u-.5stem); y3-.5stem=-oo;
422
hook_in(0,1,2); % opening hook
423
filldraw circ_stroke z3e--z2e; % left stem
424
pos3'(hair,180); z3'=z3; pos4(vair,90); pos5(hair,0); pos6(flare,0);
425
x4=w-.5u-max(1.75u,flare); rt x5r=hround(r-.5u); top y4r=h+oo;
426
filldraw stroke z3'e{up}...z4e{right}; % link
427
y6+.5flare=vround(bot y4l-.03x_height); bulb(4,5,6); % bulb
428
math_fit(-2/3x_height#*slant+.5hair#+.5u#,ic#-.5u#);
429
pairequate(tca,z4); %top center accentpoint
430
pairequate(lca,z3); %low center accentpoint
431
pairequate(tra,tca); %top right accentpoint
432
pairequate(tla,z1); %top left accentpoint
433
pairequate(lla,lca); %low left accentpoint
434
pairequate(lra,lca); %low right accentpoint
435
penlabels(0,1,2,3,4,5,6); endchar;
437
% cmchar "Italic letter s";
438
newchar(s,5.25u#+max(1.75u#,flare#),x_height#,0);
439
italcorr x_height#*slant-.5u#;
440
adjust_fit(0,0); pickup fine.nib;
441
numeric theta; theta=90-angle(40u,h); slope:=-h/40u; % angle at middle
442
pos2(vair,-90); pos0(max(fine.breadth,ess),theta); pos7(vair,-90);
443
x2l=x0=x7=.5w; top y2l=h+oo; bot y7r=-oo;
444
y0-.5ess=y7l+.55(y2r-y7l-ess);
445
lft x3l=hround u-eps; rt x6r=hround(w-.5u)+eps;
446
x3r-x3l=x6r-x6l=hround .5[vair,ess]-fine;
447
ellipse_set(2l,3l,4l,0l); ellipse_set(2r,3r,4r,0r); y3=y3r;
448
ellipse_set(7l,6l,5l,0l); ellipse_set(7r,6r,5r,0r); y6=y6r;
449
interim superness:=more_super;
450
filldraw stroke super_arc.e(2,3) & z3e{down}
451
..z4e---z5e..z6e{down} & super_arc.e(6,7); % main stroke
452
pos1(hair,0); pos10(hround .75[hair,flare],0);
453
pos2'(vair,90); z2'=z2;
454
pos8(hair,-180); pos9(flare,-180);
455
rt x10r=hround(w-u)+2eps; lft x9r=hround .5u-2eps; y10=.78h; y9=.25h;
456
bulb(2',1,10); bulb(7,8,9); % bulbs
457
pairequate(tca,z2); %top center accentpoint
458
pairequate(lca,z7); %low center accentpoint
459
pairequate(tra,tca); %top right accentpoint
460
pairequate(tla,tca); %top left accentpoint
461
pairequate(lla,lca); %low left accentpoint
462
pairequate(lra,lca); %low right accentpoint
463
math_fit(0,ic#); penlabels(0,1,2,3,4,5,6,7,8,9,10); endchar;
465
% cmchar "Italic letter t";
466
newchar(t,5.5u#,min(asc_height#,10/7x_height#),0);
467
italcorr max(1/3x_height#*slant+.5hair#+.5u#,x_height#*slant-.25u#);
468
adjust_fit(if monospace:u#,u# else:0,0 fi); pickup fine.nib;
469
pos1(stem,0); lft x1l=hround(2u-.5stem); y1+.5stem=h+oo;
470
x2=x1; x4=w; hook_out(2,3,4); % closing hook
471
filldraw circ_stroke z1e--z2e; % stem
472
pickup crisp.nib; pos5(bar,90); pos6(bar,90);
473
lft x5=hround-.75u; rt x6=hround(w-.75u); top y5r=top y6r=x_height;
474
filldraw stroke z5e--z6e; % crossbar
475
pairequate(tra,z6); %top right accentpoint
476
if unknown gltl.t: pairequate(tca,z1); %top center accentpoint
478
if cp.t=gltl.t: pairequate(tca,tra);
479
else: pairequate(tca,z1); %top center accentpoint
482
pairequate(lca,z3); %low center accentpoint
483
pairequate(tla,tca); %top left accentpoint
484
pairequate(lla,lca); %low left accentpoint
485
pairequate(lra,lca); %low right accentpoint
486
math_fit(1.25u#-x_height#*slant,ic#); penlabels(1,2,3,4,5,6); endchar;
488
% cmchar "Italic letter u";
489
newchar(u,9.5u#,x_height#,0);
490
italcorr 1/3x_height#*slant+.5hair#+.5u#;
491
adjust_fit(0,0); pickup fine.nib; interim superness:=more_super;
492
x0=0; x2=x3+.25u; pos3(stem,-180); lft x3r=hround(2.5u-.5stem);
493
hook_in(0,1,2)(skewed); % opening hook
494
pos2'(stem,-180); z2'=z2;
495
pos4(vair,-90); pos5(hair,0); x4=.5[x3,x5];
496
pos6(stem,0); rt x6r=hround(w-2.5u+.5stem);
497
x5=x6=x7; x9=w; hook_out(7,8,9); % closing hook
498
y3=.7[y4,y5]; bot y4r=-oo; y5=.57h; y6+.5stem=h;
499
filldraw stroke z2'e{-u,-x_height}
500
...super_arc.e(3,4)...{up}z5e; % left stem and arc
501
filldraw circ_stroke z6e--z7e; % right stem
502
pairassign(tca,x4,x_height); %top center accentpoint
503
pairequate(lca,z4); %low center accentpoint
504
pairequate(tra,z6); %top right accentpoint
505
pairequate(tla,z1); %top left accentpoint
506
pairequate(lla,lca); %low left accentpoint
507
pairequate(lra,z8); %low right accentpoint
508
math_fit(-2/3x_height#*slant+.5hair#+.5u#,ic#);
509
penlabels(0,1,2,3,4,5,6,7,8,9); endchar;
511
% cmchar "Italic letter v";
512
newchar(v,8u#,x_height#,0);
513
italcorr x_height#*slant;
514
adjust_fit(0,0); pickup fine.nib; interim superness:=more_super;
515
x0=0; x2=x3+.25u; pos3(stem,-180); lft x3r=hround(2.5u-.5stem);
516
hook_in(0,1,2)(skewed); % opening hook
517
pos2'(stem,-180); z2'=z2; pos4(vair,-90); pos5(hair,0);
518
x4=.5w+u; rt x5r=hround(w-.5u); y3=.7[y4,y5]; bot y4r=-oo; y5=.57h;
519
filldraw stroke z2'e{-u,-x_height}...super_arc.e(3,4)
520
..tension atleast 1.05..{up}z5e; % left stem and arc
521
v_bulb(5,6); % closing bulb
522
pairassign(tca,x4,x_height); %top center accentpoint
523
pairequate(lca,z4); %low center accentpoint
524
pairequate(tra,z6); %top right accentpoint
525
pairequate(tla,z1); %top left accentpoint
526
pairequate(lla,lca); %low left accentpoint
527
pairequate(lra,lca); %low right accentpoint
528
math_fit(-2/3x_height#*slant+.5hair#+.5u#,2/3ic#);
529
penlabels(0,1,2,3,4,5,6); endchar;
531
% cmchar "Italic letter w";
532
newchar(w,12u#,x_height#,0);
533
italcorr x_height#*slant;
534
adjust_fit(if monospace:-1.5u#,-u# else: 0,0 fi);
535
pickup fine.nib; interim superness:=more_super; begingroup
536
forsuffixes $=hair,stem: shaved$:=mfudged$; save $; $=shaved$; endfor
537
x0=0; x2=x3+.25u; pos3(stem,-180); lft x3r=hround(2.5u-.5stem);
538
if monospace: pos1(vair,90); x1=good.x .5[x0,x2]; top y1r=h; y2=2/3h;
539
pos2(stem,0); filldraw stroke z1e{right}...{-u,-x_height}z2e;
540
else: hook_in(0,1,2)(skewed); fi % opening hook
541
pos2'(stem,-180); z2'=z2;
542
pos4(vair,-90); pos5(hair,0);
543
x4=.6[x2,x5]; x5=x6=x7; pos6(stem,-180); pos7(stem,-180);
544
y3=.7[y4,y5]; bot y4r=-oo; y5=.57h;
545
rt x6l=hround(rt x6l+.5w+.75u-x6); y6+.5stem=h; y7=y3;
546
pos8(vair,-90); pos9(hair,0);
547
x8=w-2.75u; rt x9r=hround(w-.5u); bot y8r=-oo; y9=y5;
548
filldraw stroke z2'e{-u,-x_height}
549
...super_arc.e(3,4)...{up}z5e; % left stem and arc
550
filldraw circ_stroke z6e..super_arc.e(7,8)...{up}z9e; % middle stem and arc
551
v_bulb(9,10); % closing bulb
552
endgroup; math_fit(-2/3x_height#*slant+.5hair#+.5u#,3/4ic#);
553
pairequate(tca,z6); %top center accentpoint
554
pairassign(lca,x5,0); %low center accentpoint
555
pairequate(tra,z10); %top right accentpoint
556
pairequate(tla,z1); %top left accentpoint
557
pairequate(lla,z4); %low left accentpoint
558
pairequate(lra,z8); %low right accentpoint
559
penlabels(0,1,2,3,4,5,6,7,8,9,10); endchar;
561
% cmchar "Italic letter x";
562
newchar(x,6.5u#+max(1.5u#,flare#),x_height#,0);
563
italcorr max(1/3x_height#*slant+.5hair#+.5u#,x_height#*slant+.25u#);
564
adjust_fit(0,0); pickup fine.nib;
565
pos0(hair,180); pos1(vair,90); pos2(stem,0);
566
pos3(stem,-180); pos4(vair,-90); pos5(hair,0);
567
y0=y2=2/3h; y3=y5=1/3h; top y1r=h+oo; bot y4r=-oo;
568
rt x2r=hround(.5w+.5stem-eps); x2=x3;
569
x0-.5hair=hround-.5hair; x5+.5hair=hround(w+.5hair-eps);
570
x1=.5[x0,x2]; x4=.5[x3,x5];
571
filldraw stroke z0e{up}...pulled_arc.e(1,2); % opening hook
572
filldraw z2l--z3r--z3l--z2r--cycle; % stem
573
filldraw stroke pulled_arc.e(3,4)...{up}z5e; % closing hook
574
pos3'(hair,180); pos6(hair,180); pos7(vair,90);
575
pos8(hair,0); pos9(flare,0);
576
x3'l=x6l=x3l; y3'=y3; y6=3/4h; x7=.5[x8,x2]; top y7r=h+oo;
577
rt x8r=hround(w-.25u); y8+.5flare=vround(bot y7l-.03x_height);
578
filldraw stroke z3'e---z6e...{right}z7e; bulb(7,8,9); % upper link and bulb
579
pos2'(hair,0); pos16(hair,0); pos17(vair,-90);
580
pos18(hair,-180); pos19(flare,-180);
581
x2'l=x16l=x2l; y2'=y2; y16=1/4h; x17=.5[x18,x3]; bot y17r=-oo;
582
lft x18r=hround.25u; y18-.5flare=vround(top y17l+.03x_height);
583
filldraw stroke z2'e---z16e...{left}z17e; bulb(17,18,19); % lower link and bulb
584
pairassign(tca,x2,x_height); %top center accentpoint
585
pairassign(lca,x3,0); %low center accentpoint
586
pairequate(tra,z7); %top right accentpoint
587
pairequate(tla,z1); %top left accentpoint
588
pairequate(lla,z17); %low left accentpoint
589
pairequate(lra,z4); %low right accentpoint
590
math_fit(0,ic#); penlabels(0,1,2,3,4,5,6,7,8,9,16,17,18,19); endchar;
592
% cmchar "Italic letter y";
593
newchar(y,8.5u#,x_height#,desc_depth#);
594
italcorr x_height#*slant+.5stem#-u#;
595
adjust_fit(0,0); pickup fine.nib; interim superness:=more_super;
596
x0=0; x2=x3+.25u; pos3(stem,-180); lft x3r=hround(2.5u-.5stem);
597
hook_in(0,1,2)(skewed); % opening hook
598
pos2'(stem,-180); z2'=z2;
599
pos4(vair,-90); pos5(hair,0); x4=.5[x3,x5];
600
pos6(stem,0); rt x6r=hround(w-1.5u+.5stem);
601
pos7(stem,0); pos8(vair,-90);
602
y3=.7[y4,y5]; bot y4r=-oo; y5=.57h; y6+.5stem=h;
603
y7=0; bot y8r=-d-oo; x5=x6=x7; x8=.5w;
604
pos9(hair,-180); pos10(flare,-180); y9=-.5d;
605
lft x9r=hround(2.75u-.5flare); bulb(8,9,10); % bulb
606
filldraw stroke z2'e{-u,-x_height}
607
...super_arc.e(3,4)...{up}z5e; % left stem and arc
608
filldraw circ_stroke z6e---z7e...{left}z8e; % right stem and link
609
pairassign(tca,x4,x_height); %top center accentpoint
610
pairequate(lca,z8); %low center accentpoint
611
pairequate(tra,z6); %top right accentpoint
612
pairequate(tla,z1); %top left accentpoint
613
pairequate(lla,lca); %low left accentpoint
614
pairequate(lra,lca); %low right accentpoint
615
math_fit(-2/3x_height#*slant+.5hair#+.5u#,ic#-1/3x_height#*slant);
616
penlabels(0,1,2,3,4,5,6,7,8,9,10); endchar;
618
% cmchar "Italic letter z";
619
newchar(z,5.5u#+max(1.5u#,stem#),x_height#,0);
620
italcorr x_height#*slant+.5hair#;
621
adjust_fit(if monospace:.5u#,.5u# else: 0,0 fi); pickup fine.nib;
622
pos1(hair,0); pos2(stem,-90); pos3(vair,-90); pos4(hair,0);
623
lft x1l=hround(u-.5hair); x2=2.5u; x3=w-2u; rt x4r=hround(w-.5u);
624
top y1=.78h; top y2l=top y4=h+oo; y3=.825h;
625
pos5(hair,0); pos6(vair,-90); pos7(stem,-90); pos8(hair,0);
626
x5=x1; x6=2.5u; x7=w-2u; x8+.5hair=hround(w+.5hair-eps);
627
bot y5=bot y7r=-oo; y6=.175h; bot y8=.31h;
628
pair p; p=(z4-z5) yscaled 2;
629
filldraw stroke z1e{up}...z2e{right}..z3e{right}...{p}z4e; % upper bar
630
filldraw stroke z5e{p}...z6e{right}..{right}z7e...{up}z8e; % lower bar
631
filldraw stroke z5e{p}..{p}z4e; % diagonal
632
pairassign(tca,.5[x5,x4],x_height); %top center accentpoint
633
pairassign(lca,.5[x5,x4],0); %low center accentpoint
634
pairequate(tra,z4); %top right accentpoint
635
pairequate(tla,z2); %top left accentpoint
636
pairequate(lla,z5); %low left accentpoint
637
pairequate(lra,z7); %low right accentpoint
638
math_fit(0,1/3x_height#*slant+.5hair#+.5u#);
639
penlabels(1,2,3,4,5,6,7,8); endchar;
641
% end of file italla.mf
added
removed
texmf-dist/fonts/source/public/wnri/italla.mf
