1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
beginthaichar("HAW HEEP", "CB", "he", 2dia# + 2thick# + normwd#, normht#, 0);
q_def(1, thick, 0);
penpos2(thick, 0);
penpos3(thin, 0);
penpos4(thin, 0);
p_def(5, thick, thick - thin);
penpos6(thick, 0);
lft x1lft = leftmost;
x1l = x2l;
x3r = x2r;
x4l = x5lft;
rt x5rt = rightmost;
x6l = x5lft;
top y1top = top y5top = normht;
bot y2 = bot y3 = bot y6 = 0;
y4r = y5bot;
filldraw q_path(1) -- z2r -- z2l -- cycle;
filldraw z3l -- z4l -- z4r -- z3r -- cycle;
filldraw p_path(5) -- z6r -- z6l -- cycle;
penlabels(1,2,3,4,5,6);
endthaichar;
|