summaryrefslogtreecommitdiff
path: root/fonts/thai/rmit/charc8.mf
blob: cd094551b014406c27b18f06b3c9957583987baa (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
34
35
36
37
38
39
beginthaichar("SAW SAH-LAH/SAW KAW", "C8", "sk", 2thick# + jutout# + normwd#, normht#, 0 );
	penpos1(thick, 0);
	penpos2(thick, 0);
	penpos3(thin, 270);
	penpos4(thin, 180);
	penpos5(thin, 90);
	penpos6(thin, 0);
	penpos7(thin, 270);
	penpos8(thick, 180);
	penpos9(thick, 180);
	penpos10(thin, -45);
	penpos11(thin, -45);

	lft x6l = leftmost;
	x6l = x1l - jutout;
	x1 = x2;
	x4r = x2r + dia;
	x3 = x5 = (x2r + x4l) / 2;
	x8 = x9;
	rt x8l = rightmost;
	x7 = (x6 + x8) / 2;
	y1 = y9 = 0;
	top y7 = normht;
	y6 = y8 = y7 - 1.2curveht;
	y5 = y6 - 3/2curveht;
	y2 = y5 - 1/3dia;
	y3r = y5r + dia;
	y4 = (y3 + y5) / 2;
	z10 = (z7{right} .. {down}z8) intersectionpoint ((x7, y8) .. (x8, y7));
	x11 = rightmost;
	y11 = normht + dia;

	filldraw z1l{up} -- z2l{up} .. z3l{right} .. z4l{down} .. z5l{left}
		.. z6l{up} .. z7l{right} .. {down}z8l -- z9l -- z9r
		-- z8r{up} .. {left}z7r .. z6r{down} .. z5r{right}
		.. z4r{up} .. z3r{left} .. z2r{down} -- z1r{down} -- cycle;
	filldraw z10l -- z10r -- z11r -- z11l -- cycle;
	penlabels(range 1 thru 9);
endthaichar;