beginchar(oct"201",em#,6cap#/7,dth#); "Ligature: xp"; path p[]; save ww,hh,dd; ww = w/5; hh = h/3; dd = d; b := .2ww; x0 = 1.4ww; y0 = .7hh; x1 = 1.7ww; y1 = hh; y4 = y2 = y3 = y9 = -dd; y8 = -.95dd; x4 = .9ww; x2 = 1.8ww; x3 = 2.3ww; x9 = 2.6ww; x8 = 3ww; x7 = 3.2ww; y7 = -.75dd; x6 = 2.7ww; y6 = .7hh; p0 = z0{up}..z1{right}..{down}z2{right}..{right}z3; z10 = point 1.6 of p0; z11 = point 1.3 of p0; z12 = .5[z1,z11]; z13 = (x8,y7); p1 = z4{up}..z10..{left}z6{dir200}..{down}z7{down}..z8..{left}z9; p2 = subpath (0,1.3) of p0{up}..z12..{down}z0..cycle; z14 = subpath (1,2) of p1 intersectionpoint subpath (2,3) of p1; tm = directiontime z7-z14 of p1; p3 = subpath (tm,5) of p1{right}..z13..{up}z14..cycle; pickup pencircle scaled b; draw p0; draw p1; unfill p2; unfill p3; endchar;