summaryrefslogtreecommitdiff
path: root/fonts/thai/rmit/chard7.mf
blob: fa8ae9f95dd2e41906be179cc8198ea44c09c3c3 (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
beginthaichar("EU", "D7", "eu", 0, normht# + uvgap# + uvht#, 0);
	med := 1/2[thin, thick];
	if 3med > 1/2normwd: med := 1/6normwd; fi;
	x1l + med = x1r;
	y1l - thin = y1r;
	z1 = 1/2[z1l, z1r];
	x2t = x2b = 1/2[x1, x3];
	y2t = y2b + med;
	z2 = 1/2[z2t, z2b];
	x3l + med = x3r;
	y3l + thin = y3r;
	z3 = 1/2[z3l, z3r];
	penpos4(med, 0);
	penpos5(med, 0);

	x1r = - rightgap;
	x3r = x1l - normwd;
	y1r = normht + uvgap;
	y2t = y1r + uvht - 3/4dia;
	y3l = y1r + thin;
	x4r = x1r;
	y4r = normht + uvgap + uvht;
	z5 = z4 - (2med, 0);
	z6l = (z1{up} .. {left}z2t) intersectionpoint ((x5l, 0) .. (x5l, y4r));
	z6r = (z1{up} .. {left}z2t) intersectionpoint ((x5r, 0) .. (x5r, y4r));

	filldraw z1r -- z3l{up} .. z2t .. {down}cycle;
	unfill z1l -- z3r{up} .. z2b .. {down}cycle;
	filldraw z1r -- z4r -- z4l -- z1l -- cycle;
	filldraw z6r -- z5r -- z5l -- z6l -- cycle;
	penlabels(1,2,3);
endthaichar;