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;
|
