1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
% This file defines characters that go into the Turkish font when |ligs=0|.
% Adapted from romsub.mf by P. A. MacKay, January, 1987.
% Character codes \0042--\0043, \0055, \0134, and \0173--\0175 are generated
% when |ligs=0|;
straight_quotes=oct"042"; minus=ASCII"-";
backslash=ASCII"\";
left_brace=ASCII"{"; vertical=ASCII"|"; right_brace=ASCII"}";
input sym;
cmchar "Straight single quote";
beginchar(oct"043",5u#,asc_height#,0);
italcorr asc_height#*slant+.5 if serifs: flare# else: stem# fi -2u#;
adjust_fit(0,0);
x1=x2=.5w; y2=max(.5[bar_height,x_height]+.5vair,h-x_height);
if serifs: pickup crisp.nib; pos1(flare,0); pos2(vair,0);
y1+.5stem=h; filldraw circ_stroke z1e--z2e; % stem and bulb
else: pickup fine.nib; pos1(stem,0); pos2(vair,0);
top y1=h; filldraw stroke z1e--z2e; fi % stem
penlabels(1,2); endchar;
|