%wid# := 1mm#; hei# := 1mm#; dep# := 1mm#; wid# := pt#; hei# := pt#; dep# := pt#; define_pixels(wid,hei,dep); c_s = wid; beginchar(oct"177",12wid#,12hei#,3dep#); "XPICTOC"; path p[]; x1 = x4 = w - x2 = c_s; x2 = x3; y1 = y2 = -h/12; y8 = round(2h/3); y3 = y4 = y8 - h/12; x5 = x9 = x10 = w/2; y5 = round(11.45h/12); y9 = round(8.55h/12); y10 = -round(h/4); x6 = x8 = round(8.5w/12); top y6 = h; x7 = w; x11 = round(5.5w/12); y11 = y7 = .5[y6,y8]; pickup pencircle scaled pt; p1 = superellipse(z11,z6,z7,z8,.77); draw p1; p2 = z5..z11..z9; undraw p2; p3 = z5--z9--z10; p4 = z4--z2; p5 = z1--z3; draw p3; draw p4; draw p5; endchar;