summaryrefslogtreecommitdiff
path: root/fonts/thai/rmit/charca.mf
blob: f1692fdf6b01cc82d23a8126e67f9d268cd396af (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
beginthaichar("SAW SEUA/SAW LAW", "CA", "sl", jutout# + 2thick# + normwd#, normht# + uvgap#, 0);
	b_def(1, thick, 1/2thick);
	penpos6(thick, 0);
	penpos2(thin, 270);
	penpos3(thin, 0);
	penpos4(thick, 0);
	hat_def(5, thick);
	penpos7(0, 0);
	penpos8(1/2[thin, thick], 360-45);

	lft x1lft = leftmost + jutout;
	x6l = x1lft;
	x2 = 1/2[x1r, x3r];
	x3l = x4l;
	rt x4r = rightmost;
	x5rt = x4r;
	x5lft = leftmost;
	bot y1bot = 0;
	top y2 + thin = bot y5bot;
	y6 = y2r - curveht;
	bot y3 = bot y4 = 0;
	top y5top = normht + overshoot;

	x7 = 1/2[leftmost, rightmost];
	y7 = y2l;
	rt x8r = rightmost;
	top y8l = normht + uvgap;

	filldraw b_path(1) -- z6r{up} .. {right}z2r .. {down}z3l -- z3r{up}
		.. {left}z2l .. {down}z6l -- cycle;
	filldraw z4l -- hat_path(5) -- z4r -- cycle;
	filldraw z7l -- z8l -- z8r -- cycle;
	penlabels(1,2,3,4,5);
endthaichar;