beginthaichar("EU!", "D6", "seu/sheu", 0, normht# + uvgap# + uvht#, 0); med := 1/2[thin, thick]; x1l + med = x1r; y1l - thin = y1r; z1 = 1/2[z1l, z1r]; x2t = x2b = 1/2[x1, x3]; y2t = y2b + med; z2 = 1/2[z2t, z2b]; x3l + med = x3r; y3l + thin = y3r; z3 = 1/2[z3l, z3r]; penpos4(thin, 0); penpos5(thin, 270); penpos6(thin, 180); penpos7(thin, 90); x6r = - rightgap; x3r = x1l - normwd; y1r = normht + uvgap; y2t = y1r + uvht - dia/2; y3l = y1r + thin; z6 = z4 + (dia, 0); z5 = z7 + (0, dia); x5 = 1/2[x4, x6]; y6 = 1/2[y5, y7]; bot y7l = y1r; x4r = x1r; filldraw z1r -- z3l{up} .. z2t .. {down}cycle; unfill z1l -- z3r{up} .. z2b .. {down}cycle; filldraw z4l{up} .. z5l{right} .. z6l{down} .. z7l{left} .. cycle; unfill z4r{up} .. z5r{right} .. z6r{down} .. z7r{left} .. cycle; penlabels(1,2,3,4,5,6,7); endthaichar;