beginchar("k",.3em#,3cap#/7,0dth#); "kappa"; picture KAPA; path p[]; save ww,hh; ww = w/3; hh = h/3; b := .15ww; z0 = 1.5*(ww,hh); z1 = (2.5ww,2.8hh); z2 = (2.7ww,.3hh); z3 = (.3ww,.2hh); z4 = (.3ww,2hh); z5 = z6 = z7 = z0; z8 = .8[z0,z1]; z10 = .8[z0,z3]; z11 = (2ww,.6hh); z12 = (.6ww,2.4hh); z13 = (.5[x12,x0],y4); penpos0(0,135); penpos8(4b,135); penpos1(b,135); penpos6(0,315); penpos10(4b,315); penpos3(b,315); penpos7(0,45); penpos11(5b,45); penpos2(b,45); penpos5(b,225); penpos13(2b,225); penpos12(5b,270); penpos4(2b,315); penstroke z0e..z8e..z1e; penstroke z5e..z13e..z12e..z4e; penstroke z6e..z10e..z3e; penstroke z7e..z11e..z2e; KAPA = currentpicture; endchar;