1
% tipasym3.mf: TIPA phonetic symbols (3)
2
% Copyright 1996-2003 FUKUI Rei
4
% This program may be distributed and/or modified under the
5
% conditions of the LaTeX Project Public License, either version 1.2
6
% of this license or (at your option) any later version.
7
% The latest version of this license is in
8
% http://www.latex-project.org/lppl.txt
9
% and version 1.2 or later is part of all distributions of LaTeX
10
% version 1999/12/01 or later.
12
% This program consists of all files listed in Manifest.txt.
14
% Version 1.2 2003/01/01
16
% This font is based on:
17
% Computer Modern font series by D. E. Knuth and
18
% TSIPA by KOBAYASHI Hajime, FUKUI Rei and SHIRAKAWA Shun.
22
beginchar(oct"301",CT(8u#,8.8u#),x_height#,0);
23
italcorr .9asc_height#*slant + 1.5u#;
24
adjust_fit(if monospace: .5u#,1.5u# else: 0,1u# fi);
26
if serifs: pos6(hair,0); y6=y1; rt x6r=rt x1r;
27
hooktop(6,7,8,9,hair,hround(w+2.25u),.9asc_height+.5vair,.95,.55,.5);
28
else: pos6(vair,0); y6=y1r; rt x6r=rt x1r;
29
hooktop(6,7,8,9,vair,hround(w+2.25u),.9asc_height+.5vair,.9,.5,.5); fi
30
penlabels(0,1,2,3,4,5,6,7,8,9); endchar;
33
beginchar(oct"302",CT(9u#,10u#),asc_height#,desc_depth#);
34
italcorr x_height#*slant-.2u#;
36
pickup fine.nib; interim superness:=more_super;
37
pos2(.6[vair,flare],90); pos5(.6[vair,flare],270);
38
x2=x5=.5w; top y2r=vround(h+1.5oo); bot y5r=-d-oo;
39
pos3(stem,180); pos4(stem,180);
40
lft x3r=lft x4r=hround1.2u; y3=.75h; y4=0;
41
pos1(stem,0); rt x1r=hround(w-1.1u); top y1=vround .75h;
42
pos6(stem,0); rt x6r=hround(w-1u); top y6=0;
43
filldraw stroke pulled_arc.e(1,2) & pulled_arc.e(2,3)
44
& z3e--z4e & pulled_arc.e(4,5) & pulled_arc.e(5,6);
45
penlabels(0,1,2,3,4,5,6); endchar;
47
cmchar "D-Yogh ligature";
48
beginchar(oct"303",CT(13u#,14.44u#),asc_height#,desc_depth#);
49
numeric d_w; d_w=if monospace: .48w else: .65w+.5stem+serif_fit fi;
50
italcorr asc_height#*slant-serif_fit#+.5stem#-1.75u#;
51
adjust_fit(0,.5serif_fit#);
52
pickup tiny.nib; pos21(stem',0); pos22(stem,0); % d
53
pos20'(stem',0); pos20(stem,0); z20r=z20'r; x20'=x21; x20=x22;
54
rt x21r=hround(d_w-2.5u+.5stem'); top y21=h;
55
numeric edge; edge=lft x22l;
56
pickup fine.nib; pos23(if hefty:thin_join else: hair fi,0);
57
pos24(vair,90); pos25(curve,180); pos26(vair,270); penpos27(x23r-x23l,360);
58
lft x23l=min(lft x23l-(rt x23r-tiny.rt x22r),1/3[lft x22,edge]);
60
x24l=.5(d_w-serif_fit)-.3u; top y24r=x_height+oo;
61
lft x25r=hround max(1.35u-.5curve,.6u); y25=.5x_height;
62
x26l=x24l-.2u; bot y26r=-oo;
63
x27=x23; y27=min(y23,y26+y24-y23+.6vair);
64
(x,y24r)=whatever[z23l,z24l]; x24r:=max(x,.5[x25r,x24]);
65
(x',y26r)=whatever[z27l,z26l]; x26r:=max(x',.5[x25r,x26]);
66
filldraw stroke z23e{up}...pulled_arc.e(24,25)
67
& pulled_arc.e(25,26)...{up}z27e; % bowl
68
y20=ypart(((edge,h)--(edge,0))intersectionpoint(z23l{up}...{left}z24l));
69
pickup tiny.nib; bot y22=.33x_height;
70
filldraw stroke z21e--z20'e--z20e--z22e; % stem
71
if serifs: sloped_serif.l(21,20',a,1/3,jut,serif_drop); fi % upper serif
73
yogh_stroke(x20l,.15,x20l-.5u,true,false);
74
if serifs: pickup tiny.nib; pos40(vair,0);
75
x40=x40'=x22l; y40'=.2bar_height; y40=.5[y22,y40'];
76
filldraw stroke z22e--z40e; % joint
77
pickup fine.nib; pos40'(vair,180); pos12'(vair,180); z12'=z3;
78
filldraw stroke z12'e{z3-z5}...{z40'-z22}z40'e; % joint
80
else: pickup tiny.nib; pos40(stem/cosd30,30);
81
x40=x22; y40=.3[0,y22];
82
filldraw stroke z22e--z40e; fi % joint
83
penlabels(1,2,3,4,5,6,7,8,9,10,12,20,21,22,23,24,25,26,27,40); endchar;
85
cmchar "Right-hook schwa";
86
beginchar(oct"304",CT(11.5u#,12u#),x_height#,0);
87
italcorr .5[bar_height#,x_height#]*slant+.75u#;
88
adjust_fit(if monospace:.25u#,0u# else: 0,0 fi);
89
numeric ow,left_curve,diagbar;
90
ow=w; w:=if Times_Compat: 8.88u else: 8u fi -.25curve;
91
left_curve=curve if not serifs: -3stem_corr fi;
92
if left_curve<tiny.breadth: left_curve:=tiny.breadth; fi
93
diagbar=if serifs: if monospace: hair else: 1.2hair fi
94
else: min(1.1hair,stem) fi;
95
pickup tiny.nib; pos1(diagbar,180);
96
pos2(vair,-90); pos3(left_curve,0);
97
y1=good.y (.33h); bot y2r=-vround 1.5oo; y0l=top y1;
98
lft x1r=hround min(.5u,1.5u-.5diagbar);
99
rt x3r=hround max(w-.5u,w-1.25u+.5left_curve); x2=.5w-.25u;
100
{{interim superness:=more_super;
101
filldraw stroke super_arc.e(1,2)}}; % right bowl
102
y3=.5[y2,y4]; top y4r=h+oo; x4=x2-.25u;
103
if serifs: pos4(vair',90); pos5(hair,180);
104
y5=min(good.y(h-(.5bar_height-.9)),y4l-vair); x5r=x1r;
105
(x,y4l)=whatever[z4r,z5]; x4l:=max(x,x4l-.5u);
106
filldraw stroke pulled_arc.e(2,3) & pulled_arc.e(3,4)
107
...{x5-x4,5(y5-y4)}z5e; % left bowl, arc, and terminal
109
filldraw stroke super_arc.e(2,3) & super_arc.e(3,4); % left bowl and arc
110
pickup fine.nib; pos4'(vair,90); z4=z4';
111
pos5(.5[vair,flare],95); lft x5r=hround(.6u);
112
y5r=good.y(h-(-y5r+1/3bar_height+y5)); y5l:=good.y y5l; x5l:=good.x x5l;
113
filldraw stroke term.e(4',5,left,1,4); fi % terminal
114
w:=ow; pickup tiny.nib;
115
if serifs: if monospace:
116
pos10(diagbar,0); pos11(diagbar,0); pos11'(hair,0); pos12(hair,0);
117
else: pos10(1.5hair,0); pos11(1.5hair,0); pos11'(1.5hair,0);
119
pos13(vair,90); pos14(hair,180);
120
else: pos10(diagbar,0); pos11(diagbar,0);
121
pos11'(thin_hair,0); pos12(thin_hair,0);
122
pos13(vair,90); pos14(thin_hair,180); fi
123
lft x10l=lft x1r; top y10l=top y1; top y11l=h+oo;
124
rt x11r=rt x12r=hround(x3+.5curve+2.25u-.25hair);
125
y11'=y11; x11'r=x11r;
126
x13=.5[x11,x14]; y12=y14=.33[y13,x_height];
127
bot y13l=.55h-.5vair; rt x14l=w;
128
filldraw stroke z10e--z11e; % diagonal crossbar
129
filldraw stroke z11'e--z12e{down}...{right}z13e...{up}z14e; % hook
130
penlabels(1,2,3,4,5,10,11,12,13,14); endchar;
132
cmchar "Closed epsilon";
133
beginchar(oct"305",CT(9u#,10u#),x_height#,0);
134
italcorr x_height#*slant-.5u#;
136
pickup fine.nib; pos5'(thin_hair,0);
137
rt x5'r=hround(w-.5u); top y5'l=vround(.45h+.5vair);
138
epsilon_stroke(false,4u);
139
filldraw stroke z8e{right}..{up}z5'e..{left}z2e;
140
penlabels(2,3,4,5,6,7,8,5'); endchar;
142
cmchar "Closed reversed epsilon";
143
beginchar(oct"306",CT(9u#,10u#),x_height#,0);
144
italcorr x_height#*slant-.5u#;
146
pickup fine.nib; pos5'(thin_hair,180);
147
lft x5'r=hround.5u; top y5'l=vround(.45h+.5vair);
148
epsilon_stroke(true,4u);
149
filldraw stroke z8e{left}..{up}z5'e..{right}z2e;
150
penlabels(2,3,4,5,6,7,8,5'); endchar;
152
cmchar "Right-hook reversed epsilon";
153
beginchar(oct"307",CT(11.5u#,12u#),x_height#,0);
154
italcorr .5[bar_height#,x_height#]*slant+.5u#;
157
epsilon_stroke(true,3.5u);
159
if serifs: numeric bulb_diam;
160
bulb_diam=max(flare-.75(cap_stem-stem),stem);
161
pos0(bulb_diam,180); pos1(hair,180);
162
lft x0r=hround u; y0=min(.9h-.5bulb_diam,.75h+.5bulb_diam);
163
bulb(2,1,0); % upper bulb
164
pos9(bot_thickness,angle(-2u,-h));
165
else: pos1(.47[vair',flare],100); lft x1r = 1u; top y1r = .9h;
166
filldraw stroke term.e(2,1,left,1,4);
167
pos9(.6[vair',flare],-100); fi
168
lft x9r=hround .75u; top y9=vround .25h-o;
169
y9r:=good.y y9r-eps; x9l:=good.x x9l;
170
filldraw stroke term.e(8,9,left,1,4); % lower terminal
171
if serifs: if monospace: pos3'(hair,0); pos11(hair,0);pos12(hair,0);
172
else: pos3'(1.5hair,0); pos11(1.5hair,0);pos12(1.5hair,0); fi
173
pos13(vair,90); pos14(hair,180);
174
else: pos3'(.6hair,0); pos11(.6hair,0);pos12(.6hair,0);
175
pos13(vair,90); pos14(.6hair,180); fi
176
z3'=z3; lft x11l=lft x12l=hround(x3+.5curve+1.5u); top y11l=h+oo;
177
x13=.5[x11,x14]; y12=y14=.3[y13,x_height];
179
filldraw stroke z3'e--z11e; % hook
180
filldraw stroke z11e--z12e{down}...{right}z13e...{up}z14e;
181
penlabels(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14); endchar;
184
beginchar(oct"310",CT(if serifs: 9.5u# else:9u# fi,10u#),x_height#,0);
185
italcorr x_height#*slant+.25u#;
186
adjust_fit(serif_fit# if monospace:+\\.5u#,.5u#+ else:,fi\\ serif_fit#);
187
numeric left_stem,right_stem,outer_jut,alpha,raise;
188
left_stem=fudged.stem-stem_corr;
189
right_stem=min(fudged.hair if hefty:-2stem_corr fi,left_stem);
190
outer_jut=.75jut; x1l=w-x4r=l+letter_fit+outer_jut+.25u; y1=y4=h;
191
raise=if serifs: .45h; else: .5h; fi
192
x2-x1=x4-x3; x2l+apex_corr=x3l; y2=y3=raise;
193
alpha=diag_ratio(2,right_stem,y1-y2,x4r-x1l-apex_corr);
194
penpos1(alpha*left_stem,0); penpos2(alpha*left_stem,0);
195
penpos3(alpha*right_stem,0); penpos4(alpha*right_stem,0);
196
z0=whatever[z1r,z2r]=whatever[z3l,z4l];
197
if y0>notch_cut+raise: y0:=notch_cut+raise;
198
fill z0+.5right{up}...{z4-z3}diag_end(3l,4l,1,1,4r,3r)
199
--diag_end(4r,3r,1,1,2l,1l)--diag_end(2l,1l,1,1,1r,2r){z2-z1}
200
...{down}z0+.5left--cycle; % left and right diagonals
201
else: fill z0--diag_end(0,4l,1,1,4r,3r)--diag_end(4r,3r,1,1,2l,1l)
202
--diag_end(2l,1l,1,1,1r,0)--cycle; fi % left and right diagonals
203
if serifs: numeric inner_jut; pickup tiny.nib;
204
prime_points_inside(1,2); prime_points_inside(4,3);
205
if rt x1'r+jut+.5u+1<=lft x4'l-jut: inner_jut=jut;
206
else: rt x1'r+inner_jut+.5u+1=lft x4'l-inner_jut; fi
207
dish_serif(1',2,a,1/3,outer_jut,b,1/2,inner_jut); % left serif
208
dish_serif(4',3,c,.6,inner_jut,d,1/2,outer_jut)(dark); fi % right serif
210
penpos5(alpha*left_stem,0); penpos7(vair,-90); penpos9(alpha*right_stem,180);
211
y5=y9=y0; z5=whatever[z1,z2]; z9=whatever[z4,z3];
212
y6=y8=.4[y7,y5] if not serifs:+.5vair fi;
213
z6=whatever[z1,z2]; z8=whatever[z4,z3];
214
bot y7r=-o; x7=.5w+.2(left_stem-right_stem);
215
numeric stem_jut[], y_shift, circle_gap;
216
circle_gap=(x6-.5left_stem)-(x8+.5right_stem);
217
stem_jut1=if circle_gap<.5u: .4 else: .1 fi left_stem;
218
stem_jut2=if circle_gap<.5u: .4 else: .1 fi right_stem;
219
y_shift=if (left_stem-1.2right_stem)>0: .1[y7,y5] else: 0 fi;
220
x6:=x6+stem_jut1; x8:=x8-stem_jut2; y8:=y8+y_shift;
221
penpos6(left_stem,0); penpos8(right_stem,180);
222
fill stroke z5e{z2-z1}..z6e..{left}z7e..z8e..{z4-z3}z9e; % bottom loop
223
if not serifs: % minor adjustments
224
pos5'(alpha*left_stem,0);pos9'(alpha*right_stem,180);
225
y5'=y9'=1.2[y0,y3]; z5'l=whatever[z1l,z2l]; z9'l=whatever[z4r,z3r];
226
filldraw z5l--z5'l--z5'--z5--cycle;
227
filldraw z9l--z9'l--z9'--z9--cycle; fi
228
penlabels(0,1,2,3,4,5,6,7,8,9); endchar;
230
cmchar "Hooktop heng";
231
beginchar(oct"312",10u#,asc_height#,desc_depth#);
232
italcorr .7[x_height#,asc_height#]*slant-serif_fit#+.5stem#-u#;
233
adjust_fit(serif_fit#+stem_shift#,-stem_shift#-.5u#);
234
pickup tiny.nib; pos1(stem,0); pos2(stem,0);
235
pos1'(stem',0); pos2'(stem',0); pos3(stem,0);
236
lft x1l=hround(side_gap-.5stem); x1l=x1'l=x2l=x2'l; x3=w-x1;
237
top y1=.25[x_height,h]; bot y2=0; y1=y1'; y2=y2';
238
filldraw stroke z1'e--z2'e; % left stem
239
h_stroke(2,a,3,4); % arch and right stem
240
if serifs: numeric inner_jut; pickup tiny.nib;
241
if rt x2r+jut+.5u+1<=lft x4l-jut: inner_jut=jut;
242
else: rt x2r+jut+.5u+1=lft x4l-inner_jut; fi
243
dish_serif(2,1,c,1/3,jut,d,1/3,jut); fi % lower left serif
244
hooktop(1,9,10,11,stem',rt x3r,h,.8,.55,.2);
245
left_tail(4,5,6,7,stem,rt x2r);
246
penlabels(1,2,3,4,5,6,7,9,10,11); endchar;
249
beginchar(oct"314",CT(5u#,5.56u#),x_height#,0); l_width#:=4u#;
250
adjust_fit(if monospace:2u#,2u# else: u#,0 fi); pickup fine.nib;
251
pickup tiny.nib; pos1(stem,0); pos2'(stem,0); z2'=z2;
252
top y1=x_height if serifs: +min(oo,serif_drop) fi;
253
x2-.5stem=hround(1.5u-.5stem); x4=hround(w-1u+.25hair);
254
hook_out(2,3,4); % closing hook
255
x1=x2; filldraw stroke z1e--z2e; % stem
256
if serifs: sloped_serif.l(1,2,a,1/3,jut,serif_drop); fi % serif
257
penlabels(1,2,3,4); endchar;
259
cmchar "Barred dotless J (an old version)";
260
beginchar(oct"315",CT(5.5u#,6.66u#),x_height#,desc_depth#);
261
italcorr x_height#*slant-serif_fit#+.5stem#-.5u#;
262
adjust_fit(serif_fit#+2stem_shift# if monospace:+1.5u# fi,
263
serif_fit#-2stem_shift# if monospace:+.5u# fi);
264
pickup tiny.nib; pos1(stem',0); pos2(stem',0);
265
rt x1r=hround(.5w+.25u+.5stem'); x1=x2;
266
top y1=x_height; bot y2=-1/3d;
267
filldraw stroke z1e--z2e; % stem
268
if serifs: dish_serif(1,2,b,1/3,1.25jut,c,1/3,jut); % serif
269
pickup tiny.nib; pos5(vair,-90); pos6(hair,-180); pos7(flare,-180);
270
x5=.5[x2,x6r]; bot y5r=-d-oo; y6-.5flare=-.88d;
271
if monospace: lft x6r=0 else: z6r=z7r; rt x7l=floor .75u fi;
272
(x,y5r)=whatever[z5l,z2l]; x5r:=max(x,.5[x6r,x5]);
273
filldraw stroke z2e{down}...z5e{left}; bulb(5,6,7); % arc and bulb
274
else: pickup fine.nib; pos2'(stem',0); z2'=z2;
275
pos6(.2[vair,stem'],-90); pos7(vair,-90);
276
lft x7r=hround -.75u; bot y7r=vround 5/6(-d-oo);
277
x3r=x1r; top y4r=min(2x_height,h+1);
278
(x,y7l)=whatever[z7r,(x1,min(h,asc_height))]; x7l:=x;
279
z5r=z2'r; (x2'l,y5l)=whatever[z7l,z5r]; x5l=x2'l; y5=y5r;
280
x6r=.5[x7r,x5r]; x6l:=.5[x7l,x5l]; bot y6r=-d-oo;
281
filldraw stroke z2'e..{down}z5e & super_arc.e(5,6)
282
& term.e(6,7,left,1,4); fi % arc and terminal
283
hbar(8,9,lft x1l - hround(1.75u),rt x1r + hround(1.5u),.1x_height);
284
penlabels(1,2,5,6,7); endchar;
287
beginchar(oct"316",CT(9.5u#,10u#),asc_height#,0);
288
italcorr x_height#*slant-.2u#;
289
adjust_fit(serif_fit#,serif_fit#); pickup tiny.nib;
290
numeric right_jut,stem[],alpha[];
291
stem1=max(tiny.breadth,hround(fudged.stem-stem_corr));
292
stem2=max(tiny.breadth,hround(fudged.stem-2stem_corr));
293
stem3=max(tiny.breadth,hround(fudged.hair if hefty:-\\4stem_corr fi));
294
stem4=max(tiny.breadth,hround(fudged.stem-3stem_corr));
295
if serifs: right_jut=.6jut; else: right_jut=.4tiny; fi
296
pos1(stem1,0); pos2(stem2,0); top y1=.25[x_height,h]; bot y2=0;
297
lft x1l=lft x2l=hround(side_gap-.5stem1);
298
top y3=x_height; rt x3r=hround(r-letter_fit-.7u-right_jut)+eps;
299
bot y6=0; rt x6r=hround(r-letter_fit-.3u-right_jut)+eps;
300
x4=x11=x1; y4=.7bar_height; y11=y3;
301
alpha1=diag_ratio(1,.5(stem3-tiny),y3-y4,x3r-x4);
302
alpha2=diag_ratio(1,.5(stem4-tiny),y11-y6,x6r-x1);
303
penpos3(alpha1*(stem3-tiny),0); penpos4(whatever,-90);
304
z5=.5[z5l,z5r]; penpos6(alpha2*(stem4-tiny),0);
305
forsuffixes $=l,r: y3'$=x_height; y6'$=0; z4$=z3'$+whatever*(z3-z4);
306
z5$=z6'$+whatever*(z11-z6)=whatever[z3,z4]; endfor
307
z3'r=z3r+penoffset z3-z4 of currentpen+whatever*(z3-z4);
308
% we have also z3'l=z3l+penoffset z4$-$z3 of currentpen+whatever$*$(z3$-$z4);
309
z6'r=z6r+penoffset z11-z6 of currentpen+whatever*(z11-z6);
310
z6'l=z6l+penoffset z6-z11 of currentpen+whatever*(z11-z6);
311
fill z4r--diag_end(4r,3'r,1,.5,3'l,4l)--z4l--cycle; % upper diagonal
312
fill z5l--diag_end(5l,6'l,.5,1,6'r,5r)--z5r--cycle; % lower diagonal
313
pos0(stem1,0); pos0'(stem2,0); y0=y0'; x0=x1; x0'=x2;
314
rt z0r=whatever[z3,z4]; filldraw stroke z1e..z0e--z0'e..z2e; % stem
315
if serifs: numeric inner_jut;
316
if rt x2r+jut+.5u+1<=lft x6l-jut: inner_jut=jut;
317
else: rt x2r+inner_jut+.5u+1=lft x6l-inner_jut; fi
318
dish_serif(2,0',b,1/3,jut,c,1/3,inner_jut); % lower stem serif
319
dish_serif(3,4,d,2/3,1.4jut,e,1/2,right_jut)(dark); % upperDiagonal serif
320
dish_serif(6,5,f,1/2,inner_jut,g,1/3,right_jut)(dark);fi % lowerDiagonal serif
321
hooktop(1,7,8,9,stem1,rt x3r,h,.8,.55,.2);
322
penlabels(0,1,2,3,4,5,6,7,8,9,11); endchar;
324
cmchar "L-Yogh ligature";
325
beginchar(oct"320",10u#,asc_height#,desc_depth#);
326
italcorr x_height#*slant-.5serif_fit#-.3u#;
327
adjust_fit(serif_fit#+stem_shift#,.5serif_fit#);
328
pickup tiny.nib; pos21(stem',0); pos22(stem',0); % l
329
lft x21l=hround(side_gap-.5stem'); x21=x22; top y21=h; bot y22=0;
330
filldraw stroke z21e--z22e; % stem
331
if serifs: sloped_serif.l(21,22,e,1/3,jut,serif_drop); % upper serif
332
dish_serif(22,21,f,1/3,jut,g,1/3,jut); fi % lower serif
334
yogh_stroke(x21,.28,x21l,true,false);
335
penlabels(1,2,3,4,5,6,7,8,9,10,12,21,22); endchar;
337
cmchar "Closed omega";
338
beginchar(oct"321",11u#,x_height#,0);
339
italcorr .7x_height#*slant;
340
adjust_fit(0,0); pickup fine.nib;
341
pos2(curve,-180); lft x2r=hround.5u; y2=y8=.45x_height;
342
y4=y6=vround.6h; y1r=h+oo; x1=.5w; pos1(vair,90);
343
pos3(vair,-90); pos4(hair,0); pos5(vair,90);
344
pos6(hair,180); pos7(vair,270); pos8(curve,360);
345
bot y3r=bot y7r=-oo; top y5r=vround(.1[y4,h]+.5vair);
346
x3=.5[x2,x4]; x7+.25u=.5[x6,x8]; rt x8r=hround(w-.5u);
347
x5+.5stem=hround(.5w+.5stem)+eps;
348
x5=.5[x4,x6]; rt x4r-lft x6r=min(stem,2hair)+2eps;
349
if x4l<x6l: x4l:=x6l:=x5; fi
350
filldraw circ_stroke z1e{left}...z2e{down}...z3e{right}
351
...{up}z4e...{left}z5e; % left arc
352
filldraw stroke z5e{left}...z6e{down}...z7e{right}...{up}z8e...z1e{left};
353
penlabels(1,2,3,4,5,6,7,8); endchar;
356
beginchar(oct"322",10u#+serif_fit#,asc_height#,desc_depth#);
357
italcorr .7[x_height#,asc_height#]*slant+min(.5curve#-u#,-.25u#);
358
adjust_fit(serif_fit#-.5u#,0);
359
pickup tiny.nib; pos1(stem',0); pos2(stem,0); pos2'(stem,0);
360
pos0'(stem',0); pos0(stem,0); z0l=z0'l; x0'=x1; x0=x2=x2'; bot y2'=-d;
361
lft x1l=hround(side_gap-.5stem'); top y1=.25[x_height,h];
362
numeric edge; edge=rt x2r;
363
pickup fine.nib; pos3(if hefty:thin_join else: hair fi,180);
364
pos4(vair,90); pos5(curve,0); pos6(vair,-90); penpos7(x3l-x3r,-180);
365
rt x3l=max(rt x3l-(lft x3r-tiny.lft x2l),1/3[rt x2,edge]);
366
y3=1/8[bar_height,x_height];
367
x4l=w-.5(w-serif_fit)+.5u; top y4r=x_height+oo;
368
rt x5r=hround min(w-1.35u+.5curve,w-.6u); y5=.5x_height;
369
x6l=x4l-.2u; bot y6r=-oo;
370
x7=x3; y7=min(y3,y6+y4-y3+.6vair);
371
(x,y4r)=whatever[z3l,z4l]; x4r:=min(x,.5[x4,x5r]);
372
(x',y6r)=whatever[z7l,z6l]; x6r:=min(x',.5[x6,x5r]);
373
filldraw stroke z3e{up}...pulled_arc.e(4,5)&pulled_arc.e(5,6)...{up}z7e; % bowl
374
y0=ypart(((edge,h)--(edge,0))intersectionpoint(z3l{up}...{right}z4l));
375
y2=ypart(((edge,h)--(edge,0))intersectionpoint(z6l{left}...{up}z7l));
376
pickup tiny.nib; filldraw stroke z1e--z0'e--z0e--z2e--z2'e; % stem
377
pickup crisp.nib; pos8(hair,0); pos7'(stem,0);
378
z7'=z2; x8l=x7'l; bot y8=0;
379
filldraw stroke z7'e--z8e; % point
380
if serifs: dish_serif(2',0,b,1/3,jut,c,1/3,jut); fi
381
hooktop(1,9,10,11,stem',rt x5r,h,.8,.55,.2);
382
penlabels(0,1,2,3,4,5,6,7,8,9,10,11,2'); endchar;
385
beginchar(oct"323",10u#+serif_fit#,.9asc_height#,desc_depth#);
386
italcorr .9asc_height#*slant+1.75u#;
388
pickup tiny.nib; pos1(stem',0); pos2(stem,0);
389
pos0'(stem',0); pos0(stem,0); z0r=z0'r; x0'=x1; x0=x2;
390
rt x1r=hround(w-side_gap+.5stem');
391
numeric edge; edge=lft x2l;
392
pickup fine.nib; pos3(if hefty:thin_join else: hair fi,0);
393
pos4(vair',90); pos5(curve,180); pos6(vair,270); penpos7(x3r-x3l,360);
394
lft x3l=min(lft x3l-(rt x3r-tiny.rt x2r),2/3[lft x2,edge]); y3=bar_height;
395
x4l=.5(w-serif_fit)-.3u; top y4r=x_height+oo;
396
lft x5r=hround max(1.35u-.5curve,.6u); y5=.5x_height;
397
x6l=x4l-.2u; bot y6r=-oo; y7=min(y3,y6+y4-y3+.6vair);
398
lft x7l=min(lft x7l-(rt x7r-tiny.rt x2r),1/3[lft x2,edge]);
399
(x,y4r)=whatever[z3l,z4l]; x4r:=max(x,.5[x5r,x4]);
400
(x',y6r)=whatever[z7l,z6l]; x6r:=max(x',.5[x5r,x6]);
401
filldraw stroke z3e{up}...{left}z4e&super_arc.e(4,5)
402
&super_arc.e(5,6)&z6e{right}...{up}z7e; % bowl
403
y1=ypart(((edge,h)--(edge,0))intersectionpoint(z3l{up}...{left}z4l));
404
y0=ypart(((edge,h)--(edge,0))intersectionpoint(z6l{right}...{up}z7l));
405
pickup tiny.nib; bot y2=-d;
406
filldraw stroke z1e--z0'e--z0e--z2e; % stem
408
if serifs: dish_serif(2,0,b,1/3,jut,c,1/3,jut); fi % lower serif
409
hooktop(1,9,10,11,stem',hround(w+1.5u),h,.9,.6,.5);
410
penlabels(0,1,2,3,4,5,6,7,8,9,10,11); endchar;
413
numeric r_flare#; r_flare#=.75[if serifs: stem# else: vair# fi,flare#];
414
define_whole_blacker_pixels(r_flare);
415
beginchar(oct"324",CT(if serifs:max(7u#,5.5u#+r_flare#) else:6.5u# fi,6.66u#),
416
x_height#,desc_depth#);
417
italcorr x_height#*slant if not serifs: +.25u# fi;
418
adjust_fit(serif_fit#,0);
419
pickup fine.nib; top y4r=h+oo;
420
if serifs: pos4(vair,90); pos5(hair,0);
421
x4=w-max(if Times_Compat: 1.6 else: 1.75 fi u,.25u+r_flare);
422
rt x5r=hround(w-if Times_Compat: .1u else: .5u fi +.5);
423
y5+.5r_flare=.9[bar_height,h]+oo;
424
pos6(r_flare,0); bulb(4,5,6); % bulb
425
else: pos4(r_flare,90); rt x4=hround(w-.25u); fi
426
pos3(thin_join,180); rt x3l=hround(side_gap-.5stem')+stem'; top y3=bar_height;
427
filldraw stroke z3e{up}...{right}z4e; % arc
428
pickup tiny.nib; pos0(stem',0); pos2(stem',0);
429
pos1(hround(stem-3stem_corr),0); top y1=h+min(oo,serif_drop);
430
pos0'(hround(stem-3stem_corr),0); y0=y0'=y3; x1l=x0l=x0'l=x2l;
431
lft x1l=hround(side_gap-.5stem'); bot y2=-d;
432
filldraw stroke z1e--z0'e--z0e--z2e; % stem
433
if serifs: sloped_serif.l(1,0',a,1/3,jut,serif_drop); % upper serif
434
dish_serif(2,0,b,1/3,jut,c,1/3,1.25jut); fi % lower serif
435
penlabels(1,2,3,4,5,6); endchar;
437
cmchar "Turned Long-leg R";
438
numeric r_flare#; r_flare#=.75[if serifs: stem# else: vair# fi,flare#];
439
define_whole_blacker_pixels(r_flare);
440
beginchar(oct"325",CT(if serifs:max(7u#,5.5u#+r_flare#) else:6.5u# fi,6.66u#),
441
x_height#+desc_depth#,0);
442
italcorr (x_height#+desc_depth#)*slant if not serifs: -.5u# fi;
443
adjust_fit(0,serif_fit#);
444
pickup fine.nib; bot y4r=-oo;
445
if serifs: pos4(vair,-90); pos5(hair,-180);
446
x4=max(if Times_Compat: 1.6 else: 1.75 fi u,.25u+r_flare);
447
lft x5r=hround(if Times_Compat: .1u else: .5u fi -.5);
448
y5-.5r_flare=x_height-.9[bar_height,x_height]-oo;
449
pos6(r_flare,-180); bulb(4,5,6); % bulb
450
else: pos4(r_flare,-90); lft x4=hround(.25u); fi
451
pos3(thin_join,0); lft x3l=hround(w-side_gap+.5stem')-stem';
452
bot y3=x_height-bar_height;
453
filldraw stroke z3e{down}...{left}z4e; % arc
454
pickup tiny.nib; pos0(stem',0); pos2(stem',0);
455
pos1(hround(stem-3stem_corr),0); top y2=h;
456
pos0'(hround(stem-3stem_corr),0); y0=y0'=y3; x1r=x0r=x0'r=x2r;
457
rt x1r=hround(w-side_gap+.5stem'); bot y1=-min(oo,serif_drop);
458
filldraw stroke z1e--z0'e--z0e--z2e; % stem
459
if serifs: sloped_serif.r(1,0',a,1/3,jut,serif_drop); % lower serif
460
dish_serif(2,0,b,1/3,1.25jut,c,1/3,jut); fi % upper serif
461
penlabels(1,2,3,4,5,6); endchar;
464
beginchar(oct"326",CT(6u#+max(u#,.5stem#),5.56u#),
465
if not monospace:.9 fi asc_height#,0);
466
italcorr x_height#*slant if serifs: -.25u# else: +.25u# fi;
467
adjust_fit(0,if serifs: .5u# else: 0u# fi);
468
numeric shaved_stem; shaved_stem=hround(stem if hefty:-\\2stem_corr fi);
469
pickup fine.nib; pos2(shaved_stem,180);pos3(shaved_stem,180);
470
lft x2r=lft x3r=hround(side_gap-.5shaved_stem);
471
y2=y8; y3=max(.5bar_height,2vair);
472
pickup crisp.nib; pos8(bar,90);
473
rt x8=hround(w- if Times_Compat: .4u else: 1.3u fi);
474
top y8r=x_height; lft x7=hround 1/3u; y7l=y8l;
475
pos7(bar,90); filldraw stroke z7e--z8e; % crossbar
476
pickup tiny.nib; pos1(hround(shaved_stem-stem_corr),0);
477
rt x1r=fine.rt x2l; top y1=.75h;
478
penpos2'(x1r-x1l,0); x2'=x1; y2'=y2;
479
filldraw stroke z1e--z2'e; % upper terminal
480
hooktop(1,9,10,11,hround(shaved_stem-stem_corr),
481
hround(w if Times_Compat:+.5u else: -.5u fi),h,.88,.5,.2);
482
pickup fine.nib; interim superness:=more_super;
483
pos4(vair',-90); bot y4r=-oo; rt x5r=hround(w- if Times_Compat: 0 fi u);
484
if serifs: pos5(hair,0); x4l=.5[x3l,x5l];
485
y5= if Times_Compat: .5 else: 1 fi [0,y3];
486
(x,y4r)=whatever[z4l,z5l]; x4r:=max(x,.5[x3r,x4]);
487
filldraw stroke z2e..super_arc.e(3,4)...{up}z5e; % stem and hook
488
if Times_Compat: else:
489
pickup crisp.nib; pos6(hair,0); pos5'(hair,0);
490
x6=x5=x5'; top y6=max(vround .75bar_height,top y5); y5=y5';
491
filldraw stroke z5'e--z6e; fi % terminal
492
else: pos5(vair,-75); top y5l=vround .2[top y4l,bar_height];
493
x5l:=good.x x5l; x4l=1/3[x3l,x5l]; x4r:=1/3[x3r,x5r]; y3l:=y3l+.2vair;
494
filldraw stroke z2e..super_arc.e(3,4); % stem and hook
495
path p; p=stroke z4e{right}..tension .9 and atleast 1..z5e; % terminal
496
if (xpart(z5l-precontrol 1 of p)<0) or (xpart(z5r-postcontrol 2 of p)<0):
497
filldraw stroke z4e{right}...{up}z5e;
498
else: filldraw p; fi fi;
499
penlabels(1,2,3,4,5,6,7,8,9,10,11); endchar;
502
beginchar(oct"330",CT(6u#+max(u#,.5stem#),5.56u#),x_height#,
503
min(asc_height#,if hefty:9/7 else:10/7 fi\\ x_height#)-x_height#);
504
italcorr .7x_height#*slant -.5u#;
505
adjust_fit(if serifs: 0 else: -.5u# fi,0);
506
numeric shaved_stem; shaved_stem=hround(stem if hefty:-\\2stem_corr fi);
507
pickup fine.nib; pos2(shaved_stem,0);pos3(shaved_stem,0);
508
rt x2r=rt x3r=hround(w-(2.5u-.5shaved_stem));
509
y2=y8; y3=min(h-.5bar_height,h-2vair);
510
pickup crisp.nib; pos8(bar,270);
511
lft x8=hround(if Times_Compat: .4u else: 1.3u fi);
512
bot y8r=0; rt x7=hround(w-1/3u); y7l=y8l;
513
if hefty: pos7(bar,270);
514
filldraw stroke z7e--z8e; % crossbar
515
pickup tiny.nib; pos1(hround(shaved_stem-stem_corr),180);
516
lft x1r=fine.lft x2l; bot y1=-d;
517
penpos2'(x1l-x1r,180); x2'=x1; y2'=y2;
518
filldraw stroke z1e--z2'e; % upper terminal
519
else: pos7(vair,270); pos1(hair,180);
520
lft x1r=fine.lft x2l; bot y1=-d;
521
filldraw z1l{up}...{right}z7r--z7l--z8l
522
--z8r--(x1r,y8r)--z1r--cycle; fi % upper terminal and crossbar
523
pickup fine.nib; interim superness:=more_super;
524
pos4(vair',90); top y4r=h+oo; lft x5r=hround(if Times_Compat: 0 fi u);
525
if serifs: pos5(hair,180); x4l=.5[x3l,x5l];
526
y5=if Times_Compat: .5 else: 1 fi [h,y3];
527
(x,y4r)=whatever[z4l,z5l]; x4r:=min(x,.5[x3r,x4]);
528
filldraw stroke z2e..super_arc.e(3,4)...{down}z5e; % stem and hook
529
if Times_Compat: else:
530
pickup crisp.nib; pos6(hair,180); pos5'(hair,180);
531
x6=x5=x5'; bot y6=min(vround (h-.75bar_height),bot y5); y5=y5';
532
filldraw stroke z5'e--z6e; fi % terminal
533
else: pos5(vair,105); bot y5l=vround .2[bot y4l,h-bar_height];
534
x5l:=good.x x5l; x4l=1/3[x3l,x5l]; x4r:=1/3[x3r,x5r]; y3l:=y3l-.2vair;
535
filldraw stroke z2e..super_arc.e(3,4); % stem and hook
536
path p; p=stroke z4e{left}..tension .9 and atleast 1..z5e; % terminal
537
if (xpart(z5l-precontrol 1 of p)>=0) or (xpart(z5r-postcontrol 2 of p)>=0):
538
filldraw stroke z4e{left}...{down}z5e;
539
else: filldraw p; fi fi;
540
penlabels(1,2,3,4,5,6,7,8); endchar;
542
cmchar "T-Esh ligature";
543
beginchar(oct"331",CT(9.5u#,10u#),asc_height#,desc_depth#);
544
italcorr asc_height#*slant+.5u#;
545
adjust_fit(0,if serifs: .5u# else: 0 fi);
546
numeric H,D; H:=vround 10/7x_height; D:=0; % t
547
numeric shaved_stem; shaved_stem=hround(stem if hefty:-\\2stem_corr fi);
548
pickup fine.nib; pos2(shaved_stem,180);pos3(shaved_stem,180);
549
lft x2r=lft x3r=hround(side_gap-.5shaved_stem);
550
y2=y8; y3=max(.5bar_height,2vair);
551
pickup crisp.nib; pos8(bar,90);
552
rt x8=hround6u; top y8r=x_height; lft x7=hround 1/3u; y7l=y8l;
553
if hefty: pos7(bar,90);
554
filldraw stroke z7e--z8e; % crossbar
555
pickup tiny.nib; pos1(hround(shaved_stem-stem_corr),0);
556
rt x1r=fine.rt x2l; top y1=H;
557
penpos2'(x1r-x1l,0); x2'=x1; y2'=y2;
558
filldraw stroke z1e--z2'e; % upper terminal
559
else: pos7(vair,90); pos1(hair,0);
560
rt x1r=fine.rt x2l; top y1=H;
561
filldraw z1l{down}...{left}z7r--z7l--z8l
562
--z8r--(x1r,y8r)--z1r--cycle; fi % upper terminal and crossbar
563
pickup fine.nib; interim superness:=more_super;
564
pos4(vair',-90); bot y4r=-oo; x4l=.5[x3l,x5l];
565
lft x5l=hround x8; y5=if serifs: .35bar_height; else: .6bar_height; fi
566
pos5(if serifs: hair else: stem' fi,0);
567
(x,y4r)=whatever[z4l,z5l]; x4r:=max(x,.5[x3r,x4]);
568
filldraw stroke z2e..super_arc.e(3,4); % stem
569
filldraw stroke z4e{right}...{up}z5e;
570
pos11(stem',0); pos12(stem',0); % Esh
571
lft x11l=hround x8; x12=x11; y12=0; h-y11=d;
572
filldraw stroke z11e--z12e; % stem
573
left_tail(12,13,14,15,stem',hround(lft x11l-2.8u));
574
hooktop(11,16,17,18,stem',hround(rt x11r+2.8u),h,.9,.5,1/3);
575
penlabels(1,2,3,4,5,6,7,8,11,12,13,14,15,16,17,18); endchar;
577
cmchar "Inverted glottal stop";
578
beginchar(oct"333",CT(9u#,10u#),asc_height#,0);
579
italcorr .5x_height#*slant;
581
pickup tiny.nib; pos2(vair,-90); pos3(curve,0);
582
pos4(vair,90); pos5(stem,0); pos6(stem,0);
583
x5=x6; x2=.5w; x4=x5l; rt x3r=hround(w-u);
584
lft x6l=hround(.42w-.5stem); top y6=h;
585
bot y2r=-oo; y3=.5[y2,y4]; y4r=.9x_height; y5=y4l;
586
{{interim superness:=more_super;
587
filldraw stroke pulled_super_arc.e(2,3)(superpull)
588
& z3e{up}...{(-10,-1)}z4e;
589
filldraw stroke z5e--z6e\\}}; % arc and stem
590
if serifs: pos1(hair,180); pos0(flare,180);
591
lft x1r=hround u; y1=.3[y3,y2]; bulb(2,1,0); % bulb
592
else: pickup fine.nib; pos2'(vair,-90); z2'=z2;
593
pos1(vround 5/7[vair,flare],-110);
594
lft x1r=hround u; bot y1r=vround .1[bot y2r,y6];
595
filldraw stroke term.e(2',1,left,1,4); fi % terminal
596
penlabels(0,1,2,3,4,5,6); endchar;
598
cmchar "Barred glottal stop";
599
beginchar(oct"334",CT(9u#,10u#),asc_height#,0);
600
italcorr .7asc_height#*slant;
602
pickup tiny.nib; pos7(stem,0); bot y7=0; x7=.47w;
603
pos2(vair,90); pos3(curve,0);
604
pos4(vair,-90); pos5(stem,0); pos6(stem,0);
606
rt x3r=hround(w-u); bot y6=.3x_height;
607
top y2r=h+oo; y3=.5[y2,y4]; y4r=.5y2; y5=y4l;
608
{{interim superness:=more_super;
609
filldraw stroke pulled_super_arc.e(2,3)(superpull)
610
& z3e{down}...{(-10,-1)}z4e;
611
filldraw stroke z5e--z7e\\}}; % arc and stem
612
if serifs: pos1(hair,180); pos0(flare,180);
613
lft x1r=hround u; y1=.3[y3,y2]; bulb(2,1,0); % bulb
614
dish_serif(7,5,e,1/3,jut,f,1/3,jut); %serif
615
else: pickup fine.nib; pos2'(vair,90); z2'=z2;
616
pos1(vround 5/7[vair,flare],110);
617
lft x1r=hround u; top y1r=vround .9[y6,top y2r];
618
filldraw stroke term.e(2',1,left,1,4); fi % terminal
619
hbar(8,9,lft x5l - hround(side_gap),rt x5r + hround(side_gap),.55x_height);
620
penlabels(0,1,2,3,4,5,6,7); endchar;
622
cmchar "Barred reversed glottal stop";
623
beginchar(oct"335",CT(9u#,10u#),asc_height#,0);
624
italcorr .7asc_height#*slant;
626
pickup tiny.nib; pos7(stem,0); bot y7=0; x7=.53w;
627
pos2(vair,90); pos3(curve,180);
628
pos4(vair,-90); pos5(stem,0); pos6(stem,0);
630
lft x3r=hround(u); bot y6=.3x_height;
631
top y2r=h+oo; y3=.5[y2,y4]; y4r=.5y2; y5=y4l;
632
{{interim superness:=more_super;
633
filldraw stroke pulled_super_arc.e(2,3)(superpull)
634
& z3e{down}...{(10,-1)}z4e;
635
filldraw stroke z5e--z7e\\}}; % arc and stem
636
if serifs: pos1(hair,0); pos0(flare,0);
637
rt x1r=hround (w-u); y1=.3[y3,y2]; bulb(2,1,0); % bulb
638
dish_serif(7,5,e,1/3,-jut,f,1/3,-jut); %serif
639
else: pickup fine.nib; pos2'(vair,90); z2'=z2;
640
pos1(vround 5/7[vair,flare],70);
641
rt x1r=hround (w-u); top y1r=vround .9[y6,top y2r];
642
filldraw stroke term.e(2',1,right,1,4); fi % terminal
643
hbar(8,9,lft x5l - hround(side_gap),rt x5r + hround(side_gap),.55x_height);
644
penlabels(0,1,2,3,4,5,6,7); endchar;
added
removed
mf/tipasym3.mf
