beginchar(oct"220",.em#,6cap#/7,dth#); "g`ar"; path p[]; save ww,hh,dd; ww = w/3; hh = h/2; dd = d; b := ww; z0 = (ww,.7hh); z1 = (1.3ww,hh); z2 = (1.6ww,.7hh); z3 = (1.15ww,-.8dd); p1 = z0{up}..{right}z1..{down}z2{z3-z2}..z3; z4 = point 2.5 of p1; z5 = (1.9ww,.5hh); p2 = z3{left}..z4{z5-z4}..z5; z6 = point 1.7 of p2; z7 = (2ww,0); z8 = (2.35ww,.3hh); z9 = (2ww,1.2hh); z10= (2.2ww,1.4hh); z11= (2.1ww,1.1hh); p3 = z5{dir 170}..z6{z7-z6}..z7..z8{z9-z8}..z9..z10..z11; p0 = subpath(1,4) of p3; p7 = subpath(4,6) of p3; z12= (.5[x0,x2],.9hh); z13= (1.5ww,y2); p4 = z0..z12..z13{z4-z13}..z4{z2-z3}..{z2-z3}z2{up}..z1{left}.. {down}z0..cycle; z14= .5[z7,z8]; z15= (2.2ww,y8); p5 = p0 & z9{dir-100}..z15..z14..{z6-z14}z6..cycle; z16= (x10,y9); z17= .5[z9,z10]; p6 = z9..z17{z10-z17}..z16..z11 & reverse p7..cycle; pickup pencircle scaled .8pt; draw p1; draw p2; draw p3; fill p4; fill p5; fill p6; endchar;