beginchar("K",em#,5cap#/7,0dth#); "Kappa"; path p[]; save ww,hh,dd; ww = w/10; hh = h/5; b := ww; y7 = y3 = 9hh; x0 = x1 = x2 = x3 = x4 = 2ww; y8 = y1 = 0; y2 = .25[y1,y3]; y0 = .5[y1,y3]; y4 = .75[y1,y3]; x5 = x6 = 5ww; x7 = x8 = 6ww; y9 = y6 = .5[y0,y2]; y10 = y5 = .5[y0,y4]; x9 = x10 = .5ww; p8 = z10{right}..z5..{up}z7; p9 = z9{right}..z6..{down}z8; z11 = point 1.5 of p8; z12 = point 1.5 of p9; z13 = (x8,y0); penpos1(2b,0); penpos2(.6b,0); penpos0(1.7b,0); penpos3(b,0); penpos4(.6b,0); penpos10(.6b,270); penpos5(b,angle(z5-z0)-90); penpos11(.6b,0); penpos7(b,0); penpos9(.6b,90); penpos6(b,angle(z6-z0)+90); penpos12(.6b,0); penpos8(b,0); penstroke z1e..z2e..z0e..z4e..z3e; penstroke z10e..{right}z5e..z11e..{up}z7e; penstroke z9e..{right}z6e..z12e..{down}z8e; pickup pencircle scaled .4pt; draw z2{down}..z6..z13; draw z4{up}..z5..z13; draw fullcircle scaled .5b shifted (z13); pickup pencircle scaled b; drawdot z3; drawdot z7; pickup pencircle scaled .6b; drawdot z10; drawdot z9; endchar;