beginchar("i",.2em#,3cap#/7,0dth#); "iota"; picture yota; path p[]; save ww,hh; ww = w/2; hh = h/3; b := .3ww; x6 = x4 = x3 = ww; y3 = 3hh - y4 = .3hh; y6 = .5[y4,y3]; z7 = (1.1ww,.5[y4,y6]); z8 = (1.1ww,.5[y3,y6]); penpos3(3b,0); penpos4(b,0); penpos6(1.2b,0); penpos7(b,0); penpos8(2.5b,0); penstroke z4e{right}..z7e..z6e..z8e..{left}z3e; yota = currentpicture; endchar;