beginthaichar("PAW PEUNG", "BC", "pe", 2thick# + normwd#, normht#, 0); p_def(1, thick, thick/2); penpos2(thick, 0); penpos3(thin ++ thin, 270); penpos4(thin ++ thin, 270); penpos5(thin ++ thin, 270); penpos6(thick, 0); penpos7(thick, 0); numeric theta, linewd; lft x1lft = leftmost; x1 = x2; x6 = x7; x3 = x2r; x5 = x6l; x4 = 1/2[x3,x5]; rt x7r = rightmost; top y1top = normht; top y7 = normht; bot y2 = bot y6 = 0; y3r = y5r = y6; y4r + 3dia = normht; filldraw p_path(1) -- z3l -- z4l -- z5l -- z7l -- z7r -- z6r -- z6l -- z4r -- z2r -- z2l -- cycle; penlabels(1,2,3,4,5,6,7); endthaichar;