beginchar("j",.4em#,4cap#/7,0dth#); "theta"; picture jeta; path p[]; save ww,hh; ww = w/4; hh = h/4; b := .2ww; z0 = (3.5ww,2.8hh); z1 = (ww,3hh); y4 = 4hh - y2 = .3hh; z3 = (3ww,2.5hh); x2 = 1.7ww; x4 = 1.5ww; z5 = (.4ww,.7hh); z6 = (.2ww,.4hh); penpos0(1.6b,120); penpos1(.8b,0); penpos2(2.1b,270); penpos3(1.6b,180); penpos4(2.6b,90); penpos5(1.6b,90); penpos6(1.6b,180); penstroke z0e{dir200}..{up}z1e..{right}z2e..{down}z3e..{left}z4e.. {left}z5e..z6e; jeta = currentpicture; endchar;