beginthaichar("small MY DTY KOO", "87", "smk", 0, normht# + uvgap# + uvht# + tonegap# + toneht#, 0); penpos1(thin, 90); penpos2(thin, 0); penpos3(thin, 270); penpos4(thin, 180); penpos5(thin, 90); penpos6(2thin, 45); penpos7(thin, 270); penpos8(thin, 315); x1 = x3 = 1/2[x2, x4]; x2r + 1/4toneht = x4r; x5 = 1/2[x6, x2]; x7 = 2/3[x6, x8]; x8r = x4l; y1r + 1/4toneht = y3r; y2 = y4 = 1/2[y1, y3]; y5l = y1r; y6l = y1l; y7 = 2/3[y6, y8]; % these define the size x4l = - rightgap; % right edge x6 = x4l - toneht - thin; % left edge y8l = normht + uvgap + uvht + toneht + tonegap; y1l = normht + uvgap + uvht + tonegap; penstroke z1e{left} .. z2e{up} .. z3e{right} .. z4e{down} .. z1e{left} .. z5e{left} .. z6e & z6e{up} .. z7e{right} .. {dir 45}z8e; penlabels(1,2,3,4,5,6,7,8); endthaichar;