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;