summaryrefslogtreecommitdiff
path: root/fonts/thai/rmit/charaf.mf
blob: b5f459c81de1bac559fb18911e770fbef99a65bc (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
25
26
27
28
29
30
31
32
33
beginthaichar("DTAW BPAH!-DTAH!K", "AF", "db", 2thick# + normwd# + dia#, normht#, lvgap# + lvht#);
	d_def(1, thick, 1/2thick);
	gor_def(2);
	penpos5(thick, 0);
	penpos6(thin, 90);
	penpos7(thin, 90);
	penpos8(thin, 90);
	penpos9(thin, 180);
	penpos10(thin, 270);
	penpos11(thin, 300);

	x1lft = leftmost;
	x1l = x2lft;
	x2rt = x5r = rightmost;
	y1bot = 0;
	x6 = 1/2[x7, x5l];
	x7 = x11 = 0.6[x9, x5l];
	x8 = x10 = 1/3[x9l, x7];
	x9r = leftmost;
	y5 = y7l = y10r = - lvgap - lvht;
	y6r + 1/2thin = y11r = y8r = -lvgap - 1/2lvht;
	y9 = 1/2[y8, y10];

	filldraw d_path(1) -- gor_path_i(2) -- z5l -- z5r
		-- reverse gor_path_o(2) -- cycle;
	filldraw z5l{dir 135} .. z6l{left} .. {dir225}z7l{dir135}
		.. z8l{left} .. z9l{down}
		.. z10l{right} .. {dir 45}z11l -- z11r{dir 225}
		.. z10r{left} .. z9r{up}
		.. z8r{right} .. {dir -45}z7r{dir 45}
		.. z6r{right} .. z5r -- cycle;
	penlabels(range 1 thru 11);
endthaichar;