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
40
|
beginthaichar("KAW KOH!N", "A5", "ko", 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(thin, 270);
penpos9(thin, 270);
penpos10(thick, 180);
penpos11(thick, 180);
lft x6l = leftmost;
x6l = x1l - jutout;
x1 = x2;
x4r = x2r + dia;
x3 = x5 = (x2r + x4l) / 2;
x10 = x11;
rt x10l = rightmost;
x8 = 1/2[x6, x10];
x7 = 1/2[x6, x8];
x9 = 1/2[x8, x10];
y1 = y11 = 0;
top y7 = top y9 = normht;
y8 = y7 - 0.5curveht;
y6 = y10 = y7 - 1.2curveht;
y5 = y6 - 3/2curveht;
y2 = y5 - 1/3dia;
y3r = y5r + dia;
y4 = (y3 + y5) / 2;
filldraw z1l{up} -- z2l{up} .. z3l{right} .. z4l{down} .. z5l{left}
.. z6l{up} .. z7l{right} .. z8l{right} .. z9l{right}
.. {down}z10l -- z11l -- z11r
-- z10r{up} .. {left}z9r .. {left}z8r .. {left}z7r
.. z6r{down} .. z5r{right}
.. z4r{up} .. z3r{left} .. z2r{down} -- z1r{down} -- cycle;
penlabels(range 1 thru 11);
endthaichar;
|