← Back to branch summary

~ubuntu-branches/ubuntu/edgy/tipa/edgy

« back to all changes in this revision

Viewing changes to mf/tipadiac.mf

  • Committer: Bazaar Package Importer
  • Author(s): Rafael Laboissiere
  • Date: 2003-12-11 10:50:58 UTC
  • Revision ID: james.westby@ubuntu.com-20031211105058-vq8ttydhah3hdzq1
Tags: upstream-1.2
Import upstream version 1.2

Show diffs side-by-side

added added

removed removed

Lines of Context:
mf/tipadiac.mf
 
1
% tipadiac.mf: TIPA accents and diacritics
 
2
% Copyright 1996-2003 FUKUI Rei
 
3
%
 
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.
 
11
%
 
12
% This program consists of all files listed in Manifest.txt.
 
13
%
 
14
% Version 1.2 2003/01/01
 
15
%
 
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.
 
19
%
 
20
 
 
21
numeric ipacode;
 
22
ipacode := -1;
 
23
 
 
24
cmchar "Grave accent";
 
25
beginchar(incr ipacode,9u#,min(asc_height#,2x_height#),0);
 
26
adjust_fit(0,0);
 
27
if serifs: pickup crisp.nib; x1-.5stem=hround 2u; x2=2/3[x1,w-x1];
 
28
 y1+.5stem=h+eps; y2=max(2/3[h,x_height],x_height+o+hair);
 
29
 numeric theta; theta=angle(z2-z1)+90;
 
30
 pos1(stem,theta); pos2(hair,theta);
 
31
 filldraw circ_stroke z1e--z2e;  % diagonal
 
32
else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
 
33
 lft x1l=hround 1.5u; rt x2r=hround(.5w+.25u+.5vair);
 
34
 top y1=h; bot y2=vround 2/3[h,x_height];
 
35
 filldraw stroke z1e--z2e; fi  % diagonal
 
36
penlabels(1,2); endchar;
 
37
 
 
38
cmchar "Acute accent";
 
39
beginchar(incr ipacode,9u#,min(asc_height#,2x_height#),0);
 
40
italcorr h#*slant-if serifs: 1.5 fi u#;
 
41
adjust_fit(0,0);
 
42
if serifs: pickup crisp.nib; x1+.5stem=hround(w-2u); x2=2/3[x1,w-x1];
 
43
 y1+.5stem=h+eps; y2=max(2/3[h,x_height],x_height+o+hair);
 
44
 numeric theta; theta=angle(z2-z1)+90;
 
45
 pos1(stem,theta); pos2(hair,theta);
 
46
 filldraw circ_stroke z1e--z2e;  % diagonal
 
47
else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
 
48
 rt x1r=hround(w-1.5u); lft x2l=hround(.5w-.25u-.5vair);
 
49
 top y1=h; bot y2=vround 2/3[h,x_height];
 
50
 filldraw stroke z1e--z2e; fi  % diagonal
 
51
penlabels(1,2); endchar;
 
52
 
 
53
cmchar "Circumflex (hat) accent";
 
54
beginchar(incr ipacode,9u#,min(asc_height#,2x_height#),0);
 
55
if serifs: italcorr .5[x_height#,h#]*slant+.5hair#-1.75u#;
 
56
 adjust_fit(0,0);
 
57
 pickup crisp.nib; pos2(CT(.5,.6)[vair,curve],90); top y2r=h; x2=.5w;
 
58
 x1=w-x3=good.x 2.25u; y1=y3=.5[x_height,y2];
 
59
 pos1(hair,angle(z2-z1)+90); pos3(hair,angle(z3-z2)+90);
 
60
 filldraw stroke z1e--z2e--z3e;  % diagonals
 
61
else: italcorr 2/3[x_height#,h#]*slant-.5stem#+.5vair#-.75u#;
 
62
 adjust_fit(0,0);
 
63
 pickup fine.nib; pos1(vair,0); pos3(vair,0); x1=w-x3;
 
64
 pos2(stem,0); top y2=h; x2=.5w; bot y1=bot y3=vround 2/3[h,x_height]-eps;
 
65
 lft x1l=hround(rt x2r-3.25u-.5vair); % same slope as in the acute accent
 
66
 z0=whatever[z1r,z2r]=whatever[z2l,z3l];
 
67
 y4l=y4r=y2; x4l=good.x .2[x2l,x2]; x4r=w-x4l;
 
68
 filldraw z4l--z1l--z1r--z0--z3l--z3r--z4r--cycle; fi  % diagonals
 
69
penlabels(0,1,2,3,4); endchar;
 
70
 
 
71
cmchar "Tilde (squiggle) accent";
 
72
beginchar(incr ipacode,9u#,min(asc_height#,10/7x_height#+.5dot_size#),0);
 
73
italcorr h#*slant-u#;
 
74
adjust_fit(0,0);
 
75
if serifs: numeric theta; theta=angle(1/6(6u-vair),1/4(h-x_height));
 
76
 pickup crisp.nib; numeric mid_width; mid_width=.4[vair,stem];
 
77
 pos1(vair,theta+90); pos2(vair,theta+90);
 
78
 pos3(vair,theta+90); pos4(vair,theta+90);
 
79
 z2-z1=z4-z3=(mid_width-crisp)*dir theta;
 
80
 lft x1r=w-rt x4l=hround 1.5u; top y4r=h;
 
81
 bot y1l=vround(bot y1l+min(2/3[x_height,h],y3l-.25vair)-top y1r);
 
82
 pair delta; ypart delta=3(y3l-y1l); delta=whatever*dir theta;
 
83
 filldraw z1l..controls(z1l+delta)and(z3l-delta)..z3l..z4l
 
84
  --z4r..controls(z4r-delta)and(z2r+delta)..z2r..z1r--cycle;  % stroke
 
85
else: pickup fine.nib; pos1(vair,180); pos2(vair,90);
 
86
 pos3(.5[vair,slab],90); pos4(vair,90); pos5(vair,180);
 
87
 lft x1r=w-rt x5l=hround 1.5u; x2-x1=x3-x2=x4-x3=x5-x4;
 
88
 bot y1=bot y4l=vround(.75[x_height,h]-vair);
 
89
 top y2r=top y5=h; y3=.5[y2,y4];
 
90
 filldraw stroke z1e{up}...z2e{right}..z3e..{right}z4e...{up}z5e; fi % stroke
 
91
penlabels(1,2,3,4,5); endchar;
 
92
 
 
93
cmchar "Umlaut (double dot) accent";
 
94
numeric dot_diam#,dot_diam;
 
95
dot_diam#=max(dot_size#,cap_curve#);
 
96
beginchar(incr ipacode,9u#,min(asc_height#,10/7x_height#+.5dot_diam#),0);
 
97
dot_diam=max(tiny.breadth,hround(max(dot_size,cap_curve)-2stem_corr));
 
98
italcorr h#*slant+.5dot_diam#-2.25u#;
 
99
adjust_fit(0,0);
 
100
pickup tiny.nib; pos1(dot_diam,0); pos2(dot_diam,90);
 
101
x1=x2=2.75u; top y2r=h+1;
 
102
if bot y2l<x_height+o+slab: y2l:=min(y2r-eps,x_height+o+slab+.5tiny); fi
 
103
y1=.5[y2l,y2r]; dot(1,2);  % left dot
 
104
pos3(dot_diam,0); penpos4(y2r-y2l,90); y3=y4=y1; x3=x4=w-x1;
 
105
dot(3,4);  % right dot
 
106
penlabels(1,2,3,4); endchar;
 
107
 
 
108
cmchar "Double acute (Long Hungarian umlaut) accent";
 
109
beginchar(incr ipacode,9u#,min(asc_height#,2x_height#),0);
 
110
italcorr h#*slant-u#;
 
111
adjust_fit(0,0);
 
112
x3-x1=x4-x2=hround 3u; y3=y1; y4=y2;
 
113
if serifs: pickup crisp.nib; x3+.5stem=hround(w-1.5u); x2=2.5u;
 
114
 y1+.5stem=h; y2=max(2/3[h,x_height],x_height+o+hair);
 
115
 numeric theta; theta=angle(z2-z1)+90;
 
116
 pos1(stem,theta); pos2(hair,theta);
 
117
 pos3(stem,theta); pos4(hair,theta);
 
118
 filldraw circ_stroke z1e--z2e;  % left diagonal
 
119
 filldraw circ_stroke z3e--z4e;  % right diagonal
 
120
else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
 
121
 pos3(stem,0); pos4(vair,0);
 
122
 rt x3r=hround(w-1.5u); lft x4l=hround(.5w+u-.5vair);
 
123
 top y1=h; bot y2=vround 2/3[h,x_height];
 
124
 filldraw stroke z1e--z2e;  % left diagonal
 
125
 filldraw stroke z3e--z4e; fi  % right diagonal
 
126
penlabels(1,2,3,4); endchar;
 
127
 
 
128
cmchar "Scandinavian circle accent";
 
129
beginchar(incr ipacode,13u#+4/3(asc_height#-x_height#)*slant,asc_height#,0);
 
130
adjust_fit(cap_serif_fit#,cap_serif_fit#);
 
131
numeric circ_hair,circ_vair;
 
132
circ_hair=hround min(hair,u+.5); circ_vair=vround min(vair,(h-x_height)/6+.5);
 
133
penpos1(circ_vair,90); penpos3(circ_vair,-90);
 
134
penpos2(circ_hair,180); penpos4(circ_hair,0);
 
135
x2r=hround(.5w-1.5u-.5circ_hair);
 
136
x4r=w-x2r; x1=x3=.5w; y1r=h+apex_o; y2=y4=.5[y1,y3];
 
137
y3r=vround(1/3[x_height,h]+apex_o);
 
138
penstroke pulled_arc.e(1,2) & pulled_arc.e(2,3)
 
139
 & pulled_arc.e(3,4) & pulled_arc.e(4,1) & cycle;  % bowl
 
140
penlabels(1,2,3,4); endchar;
 
141
 
 
142
cmchar "Hachek (check) accent";
 
143
beginchar(incr ipacode,9u#,CT(.75,.9)[x_height#,min(asc_height#,2x_height#)],0);
 
144
h':=vround min(asc_height,2x_height); % height of circumflex being inverted
 
145
if serifs: italcorr h#*slant+.5hair#-1.75u#;
 
146
 adjust_fit(0,0);
 
147
 pickup crisp.nib; pos2'(CT(.5,.6)[vair,curve],90); top y2'r=h;
 
148
 pos2(.5[vair,curve],90); x2=.5w;
 
149
 x1=w-x3=good.x 2.25u; top y1=top y3=h; y1-y2=.5(y2'-x_height);
 
150
 pos1(hair,angle(z2-z1)+90); pos3(hair,angle(z3-z2)+90);
 
151
 filldraw stroke z1e--z2e--z3e;  % diagonals
 
152
else: italcorr h#*slant-.5stem#+.5vair#-.75u#;
 
153
 adjust_fit(0,0);
 
154
 pickup fine.nib; pos1(vair,0); pos3(vair,0); x1=w-x3;
 
155
 pos2(stem,0); bot y2=vround(1/12[x_height,h']+o); x2=.5w;
 
156
 top y1=top y3=h+o; lft x1l=hround(rt x2r-3.25u-.5vair);
 
157
 z0=whatever[z1r,z2r]=whatever[z2l,z3l];
 
158
 y4l=y4r=y2; x4l=good.x .2[x2l,x2]; x4r=w-x4l;
 
159
 filldraw z4l--z1l--z1r--z0--z3l--z3r--z4r--cycle; fi  % diagonals
 
160
penlabels(0,1,2,3,4); endchar;
 
161
 
 
162
cmchar "Breve accent";
 
163
beginchar(incr ipacode,9u#,min(asc_height#,2x_height#),0);
 
164
italcorr h#*slant+.5vair#-1.5u#;
 
165
adjust_fit(0,0);
 
166
pickup crisp.nib; pos1(vair,-180); pos3(vair,0);
 
167
top y1=top y3=h; lft x1r=w-rt x3r=hround(2u-.5vair);
 
168
numeric mid_thickness; mid_thickness=vround 1/3[vair,stem];
 
169
pos2(mid_thickness,-90); x2=.5w;
 
170
bot y2r=vround max(x_height+o+tiny,1/3[x_height,h]+o-.5mid_thickness);
 
171
filldraw stroke z1e{down}...z2e{right}...{up}z3e;  % stroke
 
172
penlabels(1,2,3); endchar;
 
173
 
 
174
cmchar "Macron (bar) accent";
 
175
numeric macron_breadth#; macron_breadth#=.2[vair#,stem#];
 
176
beginchar(incr ipacode,9u#,.4[x_height#,asc_height#]+macron_breadth#,0);
 
177
italcorr h#*slant-.75u#;
 
178
adjust_fit(0,0);
 
179
numeric macron_breadth; macron_breadth:=Vround .2[vair,stem];
 
180
pickup if serifs: crisp.nib else: fine.nib fi;
 
181
pos1(macron_breadth,90); pos2(macron_breadth,90);
 
182
top y1r=top y2r=h+o; lft x1=w-rt x2=hround 1.25u;
 
183
filldraw stroke z1e--z2e;  % bar
 
184
penlabels(1,2); endchar;
 
185
 
 
186
cmchar "Dot accent";
 
187
numeric dot_diam#; dot_diam#=max(dot_size#,cap_curve#);
 
188
beginchar(incr ipacode,5u#,min(asc_height#,10/7x_height#+.5dot_diam#),0);
 
189
define_whole_blacker_pixels(dot_diam);
 
190
italcorr h#*slant+.5dot_diam#-2u#;
 
191
adjust_fit(0,0);
 
192
pickup tiny.nib; pos1(dot_diam,0); pos2(dot_diam,90);
 
193
x1=x2=.5w; top y2r=h+1;
 
194
if bot y2l<x_height+o+slab: y2l:=min(y2r-eps,x_height+o+slab+.5tiny); fi
 
195
y1=.5[y2l,y2r]; dot(1,2);  % dot
 
196
penlabels(1,2); endchar;
 
197
 
 
198
cmchar "Cedilla accent";
 
199
beginchar(incr ipacode,8u#,0,.875desc_depth#);
 
200
adjust_fit(0,0);
 
201
x1=.5w+.5u;
 
202
if serifs: pickup crisp.nib; pos1(stem,0); pos2(stem,0);
 
203
 pos3(vair,90); pos4(stem,0); pos5(vair,-90);
 
204
 x1=x2; z3l=z2l; x4=x2+1.5u; x5=x3-1.5u;
 
205
 bot y1=-o; bot y2=-vround 2/7d-o; y4=.5[y3,y5]; bot y5=-d-o;
 
206
 filldraw stroke z1e--z2e;  % stem
 
207
 filldraw stroke z3e{right}...z4e{down}...{left}z5e;  % hook
 
208
else: pickup fine.nib; pos1(vair,0); top y1=-o-2;
 
209
 pos2(.5[vair,stem],0); bot y2=-d-o; x2=x1-1.25u;
 
210
 filldraw stroke z1e--z2e; fi  % diagonal
 
211
penlabels(1,2,3,4,5); endchar;
 
212
 
 
213
cmchar "Polish Hook";
 
214
beginchar(incr ipacode,6u#,0,desc_depth#);
 
215
adjust_fit(if monospace: 1u#,1u# else: 0,0 fi);
 
216
pickup if serifs: crisp.nib; else: fine.nib; fi
 
217
pos1(vair,-60); pos4(vair,135);
 
218
if serifs: pos2(stem,10);pos3(max(.7stem,hair),80);
 
219
else: pos2(vair,10);pos3(vair,80); fi
 
220
x1-u=x4-2u=.5w; y1=0; y2l=y4r=-3/5d; bot y3l=-d-oo;
 
221
x3r=.7[x4r,x2r]; x2l=u;
 
222
if serifs: filldraw circ_stroke z1e{(-3,-1)}...{down}z2e...
 
223
  {right}z3e...{(1,1)}z4e;
 
224
else: filldraw stroke z1e{(-3,-1)}...{down}z2e...{right}z3e...{(1,1)}z4e; fi
 
225
penlabels(1,2,3,4); endchar;
 
226
 
 
227
cmchar "Double Grave Accent";
 
228
beginchar(incr ipacode,9u#,min(asc_height#,2x_height#),0);
 
229
italcorr h#*slant-u#;
 
230
adjust_fit(0,0);
 
231
x3-x1=x4-x2=hround 3u; y3=y1; y4=y2;
 
232
if serifs: pickup crisp.nib; x1-.5stem=hround(1.5u); x4=w-2.5u;
 
233
 y1+.5stem=h; y2=max(2/3[h,x_height],x_height+o+hair);
 
234
 numeric theta; theta=angle(z2-z1)+90;
 
235
 pos1(stem,theta); pos2(hair,theta);
 
236
 pos3(stem,theta); pos4(hair,theta);
 
237
 filldraw circ_stroke z1e--z2e;  % left diagonal
 
238
 filldraw circ_stroke z3e--z4e;  % right diagonal
 
239
else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
 
240
 pos3(stem,0); pos4(vair,0);
 
241
 lft x1l=hround(1.5u); rt x2r=hround(.5w-u+.5vair);
 
242
 top y1=h; bot y2=vround 2/3[h,x_height];
 
243
 filldraw stroke z1e--z2e;  % left diagonal
 
244
 filldraw stroke z3e--z4e; fi  % right diagonal
 
245
penlabels(1,2,3,4); endchar;
 
246
 
 
247
cmchar "Grave Accent (under)";
 
248
beginchar(incr ipacode,9u#,asc_height#,0);
 
249
adjust_fit(0,0);
 
250
if serifs: pickup crisp.nib; x1+.5stem=hround(w-2u); x2=2/3[x1,w-x1];
 
251
 y2+.5stem=h+eps; y1=max(2/3[h,x_height],x_height+o+hair);
 
252
 numeric theta; theta=angle(z2-z1)+90;
 
253
 pos1(stem,theta); pos2(hair,theta);
 
254
 filldraw circ_stroke z1e--z2e;  % diagonal
 
255
else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
 
256
 rt x1r=hround(w-1.5u); lft x2l=hround(.5w-.25u-.5vair);
 
257
 top y2=h; bot y1=vround 2/3[h,x_height];
 
258
 filldraw stroke z1e--z2e; fi  % diagonal
 
259
penlabels(1,2); endchar;
 
260
 
 
261
cmchar "Acute Accent (under)";
 
262
beginchar(incr ipacode,9u#,asc_height#,0);
 
263
adjust_fit(0,0);
 
264
if serifs: pickup crisp.nib; x1-.5stem=hround 2u; x2=2/3[x1,w-x1];
 
265
 y2+.5stem=h+eps; y1=max(2/3[h,x_height],x_height+o+hair);
 
266
 numeric theta; theta=angle(z2-z1)+90;
 
267
 pos1(stem,theta); pos2(hair,theta);
 
268
 filldraw circ_stroke z1e--z2e;  % diagonal
 
269
else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
 
270
 lft x1l=hround 1.5u; rt x2r=hround(.5w+.25u+.5vair);
 
271
 top y2=h; bot y1=vround 2/3[h,x_height];
 
272
 filldraw stroke z1e--z2e; fi  % diagonal
 
273
penlabels(1,2); endchar;
 
274
 
 
275
cmchar "Subscript Arch";
 
276
beginchar(incr ipacode,9u#,min(asc_height#,2x_height#),0);
 
277
italcorr h#*slant+.5vair#-1.5u#;
 
278
adjust_fit(0,0);
 
279
pickup crisp.nib; pos1(vair,-180); pos3(vair,0);
 
280
numeric mid_thickness; mid_thickness=vround 1/3[vair,stem];
 
281
pos2(mid_thickness,90); x2=.5w;
 
282
bot y1=bot y3=vround max(x_height+tiny,1/3[x_height,h]-.5mid_thickness);
 
283
top y2r=h-o; lft x1r=w-rt x3r=hround(2u-.5vair);
 
284
filldraw stroke z1e{up}...z2e{right}...{down}z3e;  % stroke
 
285
penlabels(1,2,3); endchar;
 
286
 
 
287
def subtop = -hround(4/7desc_depth) enddef;
 
288
 
 
289
cmchar "Subscript Bridge";
 
290
beginchar(incr ipacode,9u#,0,1.36desc_depth#+.5vair#);
 
291
adjust_fit(0,0);
 
292
if serifs: pickup diacritic.nib;
 
293
 lft x1=lft x2=hround(.5w-2.5u); x3=x4=w-x1;
 
294
 top y1=top y3=subtop; bot y2=-d; y2=y4;
 
295
 draw z2--z1--z3--z4;
 
296
else: pickup crisp.nib;
 
297
 pos1(vair,0); pos2(vair,0); pos2'(vair,90);
 
298
 pos3(vair,0); pos3'(vair,90); pos4(vair,0);
 
299
 lft x1l=lft x2l=hround(.5w-2.5u-.5vair); x3=x4=w-x1; x2l=x2'; x3r=x3';
 
300
 top y2'r=subtop; bot y1=bot y4=-d; y2=y3=y2'r=y3'r;
 
301
 filldraw stroke z1e--z2e;
 
302
 filldraw stroke z3e--z4e;
 
303
 filldraw stroke z2'e--z3'e; fi
 
304
penlabels(1,2,3,4); endchar;
 
305
 
 
306
cmchar "Inverted Subscript Bridge";
 
307
beginchar(incr ipacode,9u#,0,1.36desc_depth#+.5vair#);
 
308
adjust_fit(0,0);
 
309
if serifs: pickup diacritic.nib;
 
310
 lft x1=lft x2=hround(.5w-2.5u); x3=x4=w-x1;
 
311
 top y1=top y3=subtop; bot y2=-d; y2=y4;
 
312
 draw z1--z2--z4--z3;
 
313
else: pickup crisp.nib;
 
314
 pos1(vair,0); pos2(vair,0); pos2'(vair,90);
 
315
 pos3(vair,0); pos3'(vair,90); pos4(vair,0);
 
316
 lft x1l=lft x2l=hround(.5w-2.5u-.5vair); x3=x4=w-x1; x2l=x2'; x3r=x3';
 
317
 top y1=top y4=subtop; bot y2'l=-d; y2=y3=y2'l=y3'l;
 
318
 filldraw stroke z1e--z2e;
 
319
 filldraw stroke z3e--z4e;
 
320
 filldraw stroke z2'e--z3'e; fi
 
321
penlabels(1,2,3,4); endchar;
 
322
 
 
323
cmchar "Subscript Square";
 
324
beginchar(incr ipacode,9u#,0,1.36desc_depth#+vair#);
 
325
adjust_fit(0,0);
 
326
if serifs: pickup diacritic.nib;
 
327
 lft x1=lft x2=hround(.5w-2.5u); x3=x4=w-x1;
 
328
 top y1=top y3=subtop; bot y2=-d; y2=y4;
 
329
 draw z1--z2--z4--z3--z1;
 
330
else: pickup crisp.nib;
 
331
 pos1(vair,0); pos1'(vair,90); pos2(vair,0); pos2'(vair,90);
 
332
 pos3(vair,0); pos3'(vair,90); pos4(vair,0); pos4'(vair,90);
 
333
 lft x1l=lft x2l=hround(.5w-2.5u-.5vair); x3=x4=w-x1;
 
334
 x2l=x1'=x2'; x3r=x3'=x4';
 
335
 top y1'r=subtop; bot y2'l=-d; y2=y3=y2'l=y3'l; y1=y1'r=y4=y4'r;
 
336
 filldraw stroke z1e--z2e;
 
337
 filldraw stroke z3e--z4e;
 
338
 filldraw stroke z1'e--z4'e;
 
339
 filldraw stroke z2'e--z3'e; fi
 
340
penlabels(1,2,3,4); endchar;
 
341
 
 
342
cmchar "Subscript Right Half-ring";
 
343
beginchar(incr ipacode,6u#,.5x_height#+vair#,0);
 
344
adjust_fit(if monospace: .5u#,.5u# else: 0,0 fi);
 
345
autorounded;
 
346
if serifs: pickup diacritic.nib;
 
347
 rt x2=hround(w-1.75u)+eps; x1=x3=w-x2;
 
348
 bot y3=-d; y2=.5[y1,y3]; top y1=h;
 
349
 draw z1{right}...z2{down}...z3{left};
 
350
else: pickup crisp.nib;
 
351
 pos1(vair,90); pos2(vair,0); pos3(vair,-90);
 
352
 rt x2r=hround(w-2u+.5vair)+eps; lft x1=lft x3=hround(w-rt x2r+.3vair);
 
353
 bot y3r=-d; y2=.5[y1,y3]; top y1r=h;
 
354
 filldraw stroke z1e{right}...z2e{down}...z3e{left}; fi
 
355
penlabels(1,2,3); endchar;
 
356
 
 
357
cmchar "Subscript Left Half-ring";
 
358
beginchar(incr ipacode,6u#,.5x_height#+vair#,0);
 
359
adjust_fit(if monospace: .5u#,.5u# else: 0,0 fi);
 
360
autorounded;
 
361
if serifs: pickup diacritic.nib;
 
362
 lft x2=hround 1.75u-eps; x1=x3=w-x2;
 
363
 bot y3=-d; y2=.5[y1,y3]; top y1=h;
 
364
 draw z1{left}...z2{down}...z3{right};
 
365
else: pickup crisp.nib;
 
366
 pos1(vair,-90); pos2(vair,0); pos3(vair,90);
 
367
 lft x2l=hround(2u-.5vair)-eps; rt x1=rt x3=hround(w-lft x2l-.3vair);
 
368
 bot y3l=-d; y2=.5[y1,y3]; top y1l=h;
 
369
 filldraw stroke z1e{left}...z2e{down}...z3e{right}; fi
 
370
penlabels(1,2,3); endchar;
 
371
 
 
372
cmchar "Subscript W";
 
373
beginchar(incr ipacode,9u#,0,1.4desc_depth#+.5vair#);
 
374
adjust_fit(0,0);
 
375
if serifs: pickup fine.nib;
 
376
 numeric hbreadth; hbreadth=max(diacritic,hair);
 
377
 pos2(vair,-210); pos3(hbreadth,-90); pos4(vair,10);
 
378
 pos6(vair,170); pos7(hbreadth,270); pos8(vair,30);
 
379
 lft x2r=hround 1.5u; top y2=top y8=subtop; y4=y6=y2-vair;
 
380
 bot y3r=bot y7r=-d;
 
381
 x3=.4[x2,x4]; x7=w-x3; x8=w-x2; x4=x6=good.x .5w;
 
382
 filldraw circ_stroke z2e{(-1,-2)}...z3e{right}...{(-1,5)}z4e;
 
383
 filldraw circ_stroke z8e{(1,-2)}...z7e{left}...{(1,5)}z6e;
 
384
else: pickup crisp.nib;
 
385
 pos2(vair,-210); pos3(vair,-90); pos4(vair,0);
 
386
 pos6(vair,180); pos7(vair,270); pos8(vair,30);
 
387
 lft x2r=hround(1.5u-.25vair); top y2=top y8=subtop; y4=y6=y2-vair;
 
388
 bot y3r=bot y7r=-d;
 
389
 x3=.4[x2,x4]; x7=w-x3; x8=w-x2; x4=x6=good.x .5w;
 
390
 filldraw circ_stroke z4e{down}...z3e{left}...{(1,2)}z2e;
 
391
 filldraw circ_stroke z6e{down}...z7e{right}...{(-1,2)}z8e; fi
 
392
penlabels(2,3,4,6,7,8); endchar;
 
393
 
 
394
cmchar "Seagull";
 
395
beginchar(incr ipacode,9u#,0,1.2desc_depth#+.5vair#);
 
396
adjust_fit(0,0);
 
397
if serifs: pickup fine.nib;
 
398
 numeric hbreadth; hbreadth=max(diacritic,hair);
 
399
 pos1(vair,160); pos2(hbreadth,90); pos3(vair,0);
 
400
 pos4(hbreadth,-90); pos5(vair,-160);
 
401
 x1=w-x5=1.2u; x3=.5w; x2=w-x4=.5[x1,x3];
 
402
 top y2r=top y4l=subtop+oo; bot y3=-d; bot y1=bot y5=.1[y3,y2];
 
403
 filldraw stroke z1e{(1,4)}...{right}z2e...{down}z3e;
 
404
 filldraw stroke z3e{up}...{right}z4e...{(1,-4)}z5e;
 
405
else: pickup crisp.nib;
 
406
 pos1(vair,150); pos2(vair,90); pos3(vair,0);
 
407
 pos4(vair,-90); pos5(vair,-150);
 
408
 x1=w-x5=1.2u; x3=.5w; x2=w-x4=.5[x1,x3];
 
409
 top y2r=top y4l=subtop+oo; bot y3=-d+.5vair;
 
410
 bot y1l=bot y5r=0[y3,y2]-.5vair;
 
411
 filldraw circ_stroke z3e{up}...{left}z2e...{(-1,-5)}z1e;
 
412
 filldraw circ_stroke z3e{up}...{right}z4e...{(1,-5)}z5e; fi
 
413
penlabels(1,2,3,4,5); endchar;
 
414
 
 
415
cmchar "Over-cross";
 
416
beginchar(incr ipacode,9u#,asc_height#,0);
 
417
adjust_fit(0,0);
 
418
if serifs: pickup diacritic.nib;
 
419
 lft x1=lft x2=hround(.5w-2.5u); x3=x4=w-x1;
 
420
 top y1=top y3=h-o; bot y2=bot y4=.2[x_height,h];
 
421
 draw z1--z4; draw z2--z3;
 
422
else: pickup crisp.nib;
 
423
 pos1(vair,65); pos2(vair,115); pos3(vair,115); pos4(vair,65);
 
424
 lft x1l=lft x2r=hround(.5w-2.5u-.25vair); x3=x4=w-x1;
 
425
 top y1r=top y3r=h-o; bot y2l=bot y4l=.2[x_height,h]-.6vair;
 
426
 filldraw stroke z1e--z4e; filldraw stroke z2e--z3e; fi
 
427
penlabels(1,2,3,4); endchar;
 
428
 
 
429
ipacode:=ipacode+2; % dotless i and j come here;
 
430
 
 
431
cmchar "Subscript Plus";
 
432
beginchar(incr ipacode,8u#,4vu#+vair#,0);
 
433
adjust_fit(0,0);
 
434
if serifs: pickup diacritic.nib;
 
435
 top y3=h; bot y4=0; x3=x4=good.x .5w;
 
436
 lft x1=hround(.5(w-(top y3-bot y4))); x2=w-x1; y1=y2=good.y .5[y3,y4];
 
437
 draw z1--z2; draw z3--z4;
 
438
else: pickup crisp.nib;
 
439
 pos1(vair,90); pos2(vair,90); pos3(vair,0); pos4(vair,0);
 
440
 top y3=h; bot y4=0;
 
441
 lft x3l=lft x4l=hround(.5w-.5vair);
 
442
 lft x1=hround(.5(w-(top y3-bot y4))); x2=w-x1;
 
443
 top y1r=top y2r=vround(.5[y3,y4]+.5vair);
 
444
 filldraw stroke z1e--z2e; filldraw stroke z3e--z4e; fi
 
445
penlabels(1,2,3,4); endchar;
 
446
 
 
447
cmchar "Raising Sign";
 
448
beginchar(incr ipacode,8u#,4vu#+vair#,0);
 
449
adjust_fit(0,0);
 
450
if serifs: pickup diacritic.nib;
 
451
 x1=w-x2; x3=x4=good.x(.5[x1,x2]); x2-x1=4u;
 
452
 y1=y2=y4; top y3=h; y4=good.y(y3-3vu);
 
453
 draw z1--z2; draw z3--z4;
 
454
else: pickup crisp.nib;
 
455
 pos1(vair,90); pos2(vair,90); pos3(vair,0); pos4(vair,0);
 
456
 x1=w-x2; lft x1=hround(2u-.25vair); lft x3l=lft x4l=hround(.5w-.5vair);
 
457
 y1l=y2l=y4; top y3=h; bot y4=vround(y3-3vu-.5vair);
 
458
 filldraw stroke z1e--z2e; filldraw stroke z3e--z4e; fi
 
459
penlabels(1,2,3,4); endchar;
 
460
 
 
461
cmchar "Lowering Sign";
 
462
beginchar(incr ipacode,8u#,4vu#+vair#,0);
 
463
adjust_fit(0,0);
 
464
if serifs: pickup diacritic.nib;
 
465
 x1=w-x2; x3=x4=good.x(.5[x1,x2]); x2-x1=4u;
 
466
 top y1=h; y1=y2=y3; y4=vround(y3-3vu);
 
467
 draw z1--z2; draw z3--z4;
 
468
else: pickup crisp.nib;
 
469
 pos1(vair,90); pos2(vair,90); pos3(vair,0); pos4(vair,0);
 
470
 x1=w-x2; lft x1=hround(2u-.25vair); lft x3l=lft x4l=hround(.5w-.5vair);
 
471
 y1r=y2r=y3; top y3=h; bot y4=vround(y3-3vu-.5vair);
 
472
 filldraw stroke z1e--z2e; filldraw stroke z3e--z4e; fi
 
473
penlabels(1,2,3,4); endchar;
 
474
 
 
475
cmchar "Advancing Sign";
 
476
beginchar(incr ipacode,8u#,4vu#+vair#,0);
 
477
adjust_fit(0,0);
 
478
if serifs: pickup diacritic.nib;
 
479
 x2=x3=x4=good.x(.5w+u); x1=good.x(x2-3u);
 
480
 top y3=h; bot y4=0; y1=y2=good.y(.5[y3,y4]);
 
481
 draw z1--z2; draw z3--z4;
 
482
else: pickup crisp.nib;
 
483
 pos1(vair,90); pos2(vair,90); pos3(vair,0); pos4(vair,0);
 
484
 lft x1=hround 2u; rt x2=rt x3r=rt x4r=hround(w-3u+.5vair);
 
485
 top y3=h; bot y4=vround(y3-4vu-.5vair);
 
486
 top y1r=top y2r=vround(.5[y3,y4]+.5vair);
 
487
 filldraw stroke z1e--z2e; filldraw stroke z3e--z4e; fi
 
488
penlabels(1,2,3,4); endchar;
 
489
 
 
490
cmchar "Retracting Sign";
 
491
beginchar(incr ipacode,8u#,4vu#+vair#,0);
 
492
adjust_fit(0,0);
 
493
if serifs: pickup diacritic.nib;
 
494
 x1=x3=x4=good.x(.5w-u); x2=good.x(x1+3u);
 
495
 top y3=h; bot y4=0; y1=y2=good.y(.5[y3,y4]);
 
496
 draw z1--z2; draw z3--z4;
 
497
else: pickup crisp.nib;
 
498
 pos1(vair,90); pos2(vair,90); pos3(vair,0); pos4(vair,0);
 
499
 rt x1=hround(w-2u); lft x2=lft x3l=lft x4l=hround(3u-.5vair);
 
500
 top y3=h; bot y4=vround(y3-4vu-.5vair);
 
501
 top y1r=top y2r=vround(.5[y3,y4]+.5vair);
 
502
 filldraw stroke z1e--z2e; filldraw stroke z3e--z4e; fi
 
503
penlabels(1,2,3,4); endchar;
 
504
 
 
505
cmchar "Vertical Stroke (Superior)";
 
506
beginchar(oct"042",4u#,asc_height#,0);
 
507
adjust_fit(0,0);
 
508
if serifs: pickup tiny.nib;
 
509
 pos1(diacr,0); pos2(diacr,0);
 
510
 lft x1l=lft x2l=hround(.5w-.5diacr);
 
511
 top y1=h; bot y2=vround(top y1-4vu);
 
512
 filldraw stroke z1e--z2e;
 
513
else: pickup crisp.nib;
 
514
 pos1(vair,0); pos2(vair,0);
 
515
 lft x1l=lft x2l=hround(.5w-.5vair);
 
516
 top y1=h; bot y2=vround(top y1-4vu);
 
517
 filldraw stroke z1e--z2e; fi
 
518
penlabels(1,2); endchar;
 
519
 
 
520
cmchar "Length Mark";
 
521
beginchar(oct"072",5u#,x_height#,0);
 
522
adjust_fit(if monospace: 1u#,1u# else: 0,0 fi);
 
523
pickup if serifs: tiny.nib; else: crisp.nib; fi
 
524
x1=w-x2; x3=.5[x1,x2]; rt x2-lft x1=3u;
 
525
top y1=top y2=h if serifs: +oo fi; top y1-bot y3=.387x_height;
 
526
filldraw z1--z2--z3--cycle;
 
527
x5=w-x6; x4=.5[x5,x6]; rt x6-lft x5=3u;
 
528
bot y5=bot y6=if serifs: -oo else: 0 fi; top y4-bot y5=.387x_height;
 
529
filldraw z4--z5--z6--cycle;
 
530
penlabels(1,2,3,4,5,6); endchar;
 
531
 
 
532
cmchar "Half-length Mark";
 
533
beginchar(oct"073",5u#,x_height#,0);
 
534
adjust_fit(if monospace: 1u#,1u# else: 0,0 fi);
 
535
pickup if serifs: tiny.nib; else: crisp.nib; fi
 
536
x1=w-x2; x3=.5[x1,x2]; rt x2-lft x1=3u;
 
537
top y1=top y2=h if serifs: +oo fi; top y1-bot y3=.387x_height;
 
538
filldraw z1--z2--z3--cycle;
 
539
penlabels(1,2,3); endchar;
 
540
 
 
541
cmchar "Bottom Tie Bar";
 
542
beginchar(oct"074",14u#,v_center(.35x_height#));
 
543
adjust_fit(0,0);
 
544
pickup fine.nib;
 
545
numeric light_stem; light_stem=Vround .5[vair,stem];
 
546
x1-.5hair=hround u; y1+.5hair=vround(h+.5hair); x3=w-x1; y3=y1;
 
547
pos2(light_stem,90); x2=.5w; y2l=good.y -d;
 
548
numeric theta; theta=angle((z2-z1)yscaled 3);
 
549
pos1(hair,90+theta); pos3(hair,90-theta);
 
550
filldraw z1l{dir theta}...z2l...{dir-theta}z3l
 
551
 ..z3r{-dir-theta}...z2r...{-dir theta}z1r..cycle;  % arc
 
552
penlabels(1,2,3); endchar;
 
553
 
 
554
cmchar "Top Tie Bar";
 
555
beginchar(oct"076",14u#,v_center(.35x_height#));
 
556
adjust_fit(0,0);
 
557
pickup fine.nib;
 
558
numeric light_stem; light_stem=Vround .5[vair,stem];
 
559
x1-.5hair=hround u; y1-.5hair=vround(-d-.5hair); x3=w-x1; y3=y1;
 
560
pos2(light_stem,90); x2=.5w; y2=good.y h;
 
561
numeric theta; theta=angle((z2-z1)yscaled 3);
 
562
pos1(hair,90+theta); pos3(hair,90-theta);
 
563
filldraw z1l{dir theta}...z2l...{dir-theta}z3l
 
564
 ..z3r{-dir-theta}...z2r...{-dir theta}z1r..cycle;  % arc
 
565
penlabels(1,2,3); endchar;
 
566
 
 
567
cmchar "Reversed Apostrophe";
 
568
beginchar(oct"134",5u#,asc_height#,0);
 
569
italcorr asc_height#*slant+.5dot_size#-2u#;
 
570
adjust_fit(0,0);
 
571
x1-.5dot_size=hround(.5w-.5dot_size); y1+.5dot_size=h;
 
572
if monospace: comMA(1,a,dot_size,.28u,vround 1.5comma_depth);  % large comma
 
573
else: comMA(1,a,dot_size,.25u,comma_depth); fi  % comma with increased jut
 
574
penlabels(1); endchar;
 
575
 
 
576
cmchar "Corner";
 
577
beginchar(oct"136",5.2u#,asc_height#,0);
 
578
adjust_fit(0,0);
 
579
if serifs: pickup diacritic.nib;
 
580
 lft x1=hround .2u; rt x2=rt x3=hround(w-1u); top y1=top y2=h-o;
 
581
 top y2-bot y3=vround 4vu;
 
582
 draw z1--z2--z3;
 
583
else: pickup crisp.nib;
 
584
 pos1(vair,90); pos2(vair,90); pos3(vair,0); pos4(vair,0);
 
585
 lft x1=hround .2u; rt x2=rt x3r=rt x4r=hround(w-1u);
 
586
 top y1r=top y2r=top y3=h-o; top y3-bot y4=vround 4vu;
 
587
 filldraw stroke z1e--z2e; filldraw stroke z3e--z4e; fi
 
588
penlabels(1,2,3,4); endchar;
 
589
 
 
590
cmchar "Open corner";
 
591
beginchar(oct"137",5.2u#,asc_height#,0);
 
592
adjust_fit(0,0);
 
593
if serifs: pickup diacritic.nib;
 
594
 rt x1=hround(w-.2u); lft x2=lft x3=hround 1u; top y1=top y2=h-o;
 
595
 top y2-bot y3=vround 4vu;
 
596
 draw z1--z2--z3;
 
597
else: pickup crisp.nib;
 
598
 pos1(vair,90); pos2(vair,90); pos3(vair,0); pos4(vair,0);
 
599
 rt x1=hround(w-.2u); lft x2=lft x3l=lft x4l=hround 1u;
 
600
 top y1r=top y2r=top y3=h-o; top y3-bot y4=vround 4vu;
 
601
 filldraw stroke z1e--z2e; filldraw stroke z3e--z4e; fi
 
602
penlabels(1,2,3,4); endchar;
 
603
 
 
604
cmchar "Right-hook (rhoticity)";
 
605
beginchar(oct"176",6u#,x_height#,0);
 
606
adjust_fit(0,if monospace: 2u# else: 0 fi);
 
607
if serifs: pickup tiny.nib;
 
608
 numeric hook_hair; hook_hair=max(vround .6stem, hair);
 
609
 pos3(hook_hair,0); pos4(hook_hair,0); pos5(vair,90); pos6(hair,180);
 
610
 x1=0; top y2=h; rt x6l=vround(w-.75u+.5hair);
 
611
 y1=min(.95x_height,y2-2hook_hair);
 
612
 x2=x4=.36[x1,x6]; x5=.5[x2,x6]; y4=.8[y5,y2]; z3=z2;
 
613
 y5l=bar_height; y6=.5[bar_height,h];
 
614
 pos1(hook_hair,angle(z2-z1)+90); pos2(hook_hair,angle(z2-z1)+90);
 
615
 filldraw circ_stroke z2e--z1e;
 
616
 filldraw circ_stroke z3e--z4e{down}..z5e{right}..{up}z6e;
 
617
else: pickup crisp.nib;
 
618
 pos3(thin_hair,0); pos4(thin_hair,0); pos5(vair,90); pos6(thin_hair,180);
 
619
 x1=0; top y2=h; rt x6l=vround(w-.75u+.5hair);
 
620
 y1=min(.95x_height,y2-2vair);
 
621
 x2=x4=.36[x1,x6]; x5=.5[x2,x6]; y4=.8[y5,y2]; z3=z2;
 
622
 y5l=bar_height; y6=.5[bar_height,h];
 
623
 pos1(vair,angle(z2-z1)+90); pos2(vair,angle(z2-z1)+90);
 
624
 filldraw circ_stroke z2e--z1e;
 
625
 filldraw circ_stroke z3e--z4e{down}..z5e{right}..{up}z6e; fi
 
626
penlabels(1,2,3,4,5,6); endchar;
 
627
 
 
628
cmchar "Vertical Stroke (Inferior)";
 
629
beginchar(oct"177",4u#,4vu#-desc_depth#,desc_depth#);
 
630
adjust_fit(if monospace: 2u#,2u# else: 0,0 fi);
 
631
if serifs: pickup tiny.nib;
 
632
 pos1(diacr,0); pos2(diacr,0);
 
633
 lft x1l=lft x2l=hround(.5w-.5diacr);
 
634
 bot y2=-d; top y1=h;
 
635
 filldraw stroke z1e--z2e;
 
636
else: pickup crisp.nib;
 
637
 pos1(vair,0); pos2(vair,0);
 
638
 lft x1l=lft x2l=hround(.5w-.5vair);
 
639
 bot y2=-d; top y1=h;
 
640
 filldraw stroke z1e--z2e; fi
 
641
penlabels(1,2); endchar;
 
642
 
 
643
cmchar "Hooktop";
 
644
beginchar(oct"043",4u#,.9asc_height#,0);
 
645
italcorr h#*slant+1.5u#;
 
646
adjust_fit(if monospace: 2u#,2u# else: 0,0 fi);
 
647
if serifs: pickup tiny.nib;
 
648
 pos1(diacr,0); pos2(diacr,0);
 
649
 lft x1l=lft x2l=hround(.5w-.5diacr); y1+.5flare=y2=x_height;
 
650
 filldraw stroke z1e--z2e;
 
651
 hooktop(2,3,4,5,diacr,hround(x1+3.25u),h+.5vair,.88,.5,1/3);
 
652
else: pickup fine.nib;
 
653
 pos1(vair,0); pos2(vair,0);
 
654
 lft x1l=lft x2l=hround(.5w-.5vair); y1+.5flare=y2=x_height;
 
655
 filldraw stroke z1e--z2e;
 
656
 hooktop(2,3,4,5,vair,hround(x1+3.25u),h+.5vair,5/6,.5,1/3); fi
 
657
penlabels(1,2,3,4,5); endchar;
 
658
 
 
659
cmchar "Right-tail";
 
660
beginchar(oct"044",4u#,0,desc_depth#);
 
661
adjust_fit(if monospace: 2u#,2u# else: 0,0 fi);
 
662
if serifs: pickup tiny.nib;
 
663
 pos1(diacr,0); lft x1l=hround(.5w-.5diacr); y1=oo;
 
664
 right_tail(1,2,3,4,diacr,hround(x1+3.25u),.9,.5,.6);
 
665
else: pickup fine.nib;
 
666
 pos1(vair,0); lft x1l=hround(.5w-.5vair); y1=oo;
 
667
 right_tail(1,2,3,4,vair,hround(x1+3.25u),.85,.5,.5); fi
 
668
penlabels(1,2,3,4,5); endchar;
 
669
 
 
670
cmchar "Palatalization Hook";
 
671
beginchar(oct"045",4u#,0,desc_depth#);
 
672
adjust_fit(if monospace: 2u#,2u# else: 0,0 fi);
 
673
if serifs: pickup tiny.nib;
 
674
 pos1(diacr,0); lft x1l=hround(.5w-.5diacr); y1=oo;
 
675
 left_tail(1,2,3,4,diacr,hround(x1-3.25u));
 
676
else: pickup fine.nib;
 
677
 pos1(vair,0); lft x1l=hround(.5w-.5vair); y1=oo;
 
678
 left_tail(1,2,3,4,vair,hround(x1-3.25u)); fi
 
679
penlabels(1,2,3,4,5); endchar;
 
680
 
 
681
cmchar "Superimposed Tilde";
 
682
beginchar(oct"046",10u#,.5[asc_height#,body_height#],0);
 
683
big_tilde; endchar;
 
684
 
 
685
cmchar "Vertical Bar Accent";
 
686
beginchar(oct"234",9u#,min(asc_height#,2x_height#),0);
 
687
adjust_fit(0,0);
 
688
if serifs: pickup crisp.nib; x1=x2=.5w;
 
689
 top y1=h+o+eps; y2=max(2/3[h,x_height],x_height+o+hair);
 
690
 pos1(stem,0); pos2(hair,0);
 
691
 filldraw circ_stroke z1e--z2e;  % diagonal
 
692
else: pickup fine.nib; pos1(stem,0); pos2(vair,0); x1=x2=.5w;
 
693
 top y1=h+o; bot y2=vround 2/3[h,x_height];
 
694
 filldraw stroke z1e--z2e; fi  % diagonal
 
695
penlabels(1,2); endchar;
 
696
 
 
697
cmchar "Double Vertical Bar Accent";
 
698
beginchar(oct"235",9u#,min(asc_height#,2x_height#),0);
 
699
adjust_fit(0,0);
 
700
x1=x2; x3=x4; y3=y1; y4=y2;
 
701
if serifs: pickup crisp.nib; x1=hround(3.8u-.5stem); x3=w-x1;
 
702
 top y1=h+o+eps; y2=max(2/3[h,x_height],x_height+o+hair);
 
703
 numeric theta; theta=angle(z2-z1)+90;
 
704
 pos1(stem,theta); pos2(hair,theta);
 
705
 pos3(stem,theta); pos4(hair,theta);
 
706
 filldraw circ_stroke z1e--z2e;  % left diagonal
 
707
 filldraw circ_stroke z3e--z4e;  % right diagonal
 
708
else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
 
709
 pos3(stem,0); pos4(vair,0); x1=hround(3.8u-.5stem); x3=w-x1;
 
710
 top y1=h+o; bot y2=vround 2/3[h,x_height];
 
711
 filldraw stroke z1e--z2e;  % left diagonal
 
712
 filldraw stroke z3e--z4e; fi  % right diagonal
 
713
penlabels(1,2,3,4); endchar;
 
714
 
 
715
cmchar "Grave Dot Accent";
 
716
numeric dot_diam#; dot_diam#=max(dot_size#,cap_curve#);
 
717
beginchar(oct"236",9u#,min(asc_height#,2x_height#),0);
 
718
define_whole_blacker_pixels(dot_diam);
 
719
adjust_fit(0,0);
 
720
if serifs: pickup crisp.nib; x1-.5stem=hround 1.5u; x2=.45[x1,w-x1];
 
721
 y1+.5stem=h+eps; y2=max(2/3[h,x_height],x_height+o+hair);
 
722
 numeric theta; theta=angle(z2-z1)+90;
 
723
 pos1(stem,theta); pos2(hair,theta);
 
724
 filldraw circ_stroke z1e--z2e;  % diagonal
 
725
else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
 
726
 lft x1l=hround 1.5u; rt x2r=hround(.5w-.25u+.5vair);
 
727
 top y1=h; bot y2=vround 2/3[h,x_height];
 
728
 filldraw stroke z1e--z2e; fi  % diagonal
 
729
pickup tiny.nib; pos3(dot_diam,0); pos4(dot_diam,90);
 
730
x3=x4=.7w; y4=.45[bot y2,top y1];
 
731
y3=.5[y4l,y4r]; dot(3,4);  % dot
 
732
penlabels(1,2,3,4); endchar;
 
733
 
 
734
cmchar "Acute Dot Accent";
 
735
numeric dot_diam#; dot_diam#=max(dot_size#,cap_curve#);
 
736
beginchar(oct"237",9u#,min(asc_height#,2x_height#),0);
 
737
define_whole_blacker_pixels(dot_diam);
 
738
italcorr h#*slant-if serifs: 1 fi u#;
 
739
adjust_fit(0,0);
 
740
if serifs: pickup crisp.nib; x1+.5stem=hround(w-1.5u); x2=.45[x1,w-x1];
 
741
 y1+.5stem=h+eps; y2=max(2/3[h,x_height],x_height+o+hair);
 
742
 numeric theta; theta=angle(z2-z1)+90;
 
743
 pos1(stem,theta); pos2(hair,theta);
 
744
 filldraw circ_stroke z1e--z2e;  % diagonal
 
745
else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
 
746
 rt x1r=hround(w-1.5u); lft x2l=hround(.5w+.25u-.5vair);
 
747
 top y1=h; bot y2=vround 2/3[h,x_height];
 
748
 filldraw stroke z1e--z2e; fi  % diagonal
 
749
pickup tiny.nib; pos3(dot_diam,0); pos4(dot_diam,90);
 
750
x3=x4=.3w; y4=.45[bot y2,top y1];
 
751
y3=.5[y4l,y4r]; dot(3,4);  % dot
 
752
penlabels(1,2); endchar;
 
753
 
 
754
cmchar "Celtic palatalization mark";
 
755
beginchar(oct"040",6u#,asc_height#,0);
 
756
italcorr h#*slant;
 
757
adjust_fit(if monospace: 1u#,1u# else: 0,0 fi);
 
758
if serifs: pickup crisp.nib; x1+.5stem=hround(w-.5u);
 
759
 x2=hround 1u;
 
760
 y1+.5stem=h+eps; y2=.9x_height;
 
761
 numeric theta; theta=angle(z2-z1)+90;
 
762
 pos1(stem,theta); pos2(hair,theta);
 
763
 filldraw circ_stroke z1e--z2e;  % diagonal
 
764
else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
 
765
 rt x1r=hround(w-.5u); lft x2l=hround 1u;
 
766
 top y1=h; bot y2=vround .9x_height;
 
767
 filldraw stroke z1e--z2e; fi  % diagonal
 
768
penlabels(1,2); endchar;
 
769
 
 
770
cmchar "Leftward Pointer";
 
771
beginchar(oct"275",6u#,asc_height#,0);
 
772
adjust_fit(if monospace: 1u#,1u# else: 0,0 fi);
 
773
pickup diacritic.nib;
 
774
lft x2=hround .5u-eps; x1=x3=w-x2;
 
775
y1-y2=y2-y3; y2=.65[x_height,h]; y1=h;
 
776
draw z1--z2--z3;  % diagonals
 
777
labels(1,2,3); endchar;
 
778
 
 
779
cmchar "Rightward Pointer";
 
780
beginchar(oct"276",6u#,asc_height#,0);
 
781
adjust_fit(if monospace: 1u#,1u# else: 0,0 fi);
 
782
pickup diacritic.nib;
 
783
rt x2=hround(w-.5u)+eps; x1=x3=w-x2;
 
784
y1-y2=y2-y3; y2=.65[x_height,h]; y1=h;
 
785
draw z1--z2--z3;  % diagonals
 
786
labels(1,2,3); endchar;
 
787
 
 
788
% This symbol looks like a pipe but is used as the vertical line of tone bars.
 
789
cmchar "Tone bar";
 
790
beginchar(oct"277",CT(5u#,5.56u#),asc_height#,0);
 
791
italcorr asc_height#*slant+.5rule_thickness#-2u#;
 
792
adjust_fit(0,0);
 
793
if serifs: pickup rule.nib;
 
794
 x1=x2=good.x .5w; y1=h; y2=-d;
 
795
 draw z1--z2;  % stem
 
796
 labels(1,2);
 
797
else: pickup fine.nib;
 
798
 pos1(hair,0); pos2(hair,0);
 
799
 lft x1l = lft x2l = hround(.5w-.5hair);
 
800
 top y1=h+o; bot y2=-d-o;
 
801
 filldraw stroke z1e--z2e;
 
802
 penlabels(1,2); fi
 
803
endchar;
 
804
 
 
805
 
 
806
% end of tipadiac.mf