blob: b6f943ef467cefd1b7c50e34fd9b988749bdb0c4 (
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
|
beginthaichar("EE", "D5", "ee", 0, normht# + uvgap# + uvht#, 0);
med := 1/2[thin, thick];
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);
x1r = - rightgap;
x3r = x1l - normwd;
y1r = normht + uvgap;
y2t = y1r + uvht - dia/2;
y3l = y1r + thin;
x4r = x1r;
y4r = normht + uvgap + uvht;
filldraw z1r -- z3l{up} .. z2t .. {down}cycle;
unfill z1l -- z3r{up} .. z2b .. {down}cycle;
filldraw z1r -- z4r -- z4l -- z1l -- cycle;
penlabels(1,2,3);
endthaichar;
|