summaryrefslogtreecommitdiff
path: root/language/turkish/mf/tksub.mf
blob: bf2e58d5028b64ca31fd4fb13e5b9d805ec7c1ca (plain)
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;