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
|
beginthaichar("SAW SOO/SAW CHAW", "AB", "sc", kinkedcurlywd# + 2thick# + skinnywd#, normht#, 0);
kinkedcurly_def(1);
base_def(2);
penpos3(thick, 0);
penpos4(thick, 0);
penpos5(thick, 0);
penpos6(thick, 0);
lft x1lft = leftmost;
x1l = x2lft;
x2rt = x3r;
lft x4l = rt x1rt + thin;
rt x5r = rightmost;
x3 = 1/2[x4, x5];
top y5 = normht + jutout;
y5 - y4 = x5 - x4;
y4 - y3 = x3 - x4;
y2bot = 0;
z6 = z5 + (0, dia);
filldraw kinkedcurly_path(1) -- base_path_i(2) .. {up}z3l
.. {left}z4l{right}
.. {up}z5l -- z6l -- z6r -- z5r{down}
.. {left}z4r{right} .. {down}z3r
-- reverse base_path_o(2) -- cycle;
penlabels(1,2,3,4,5);
endthaichar;
|
