beginchar("I",em#,5cap#/7,0dth#); "Iota"; path p[]; save ww,hh,dd; ww = w/10; hh = h/5; b := ww; x8 = x7 = x6 = x5 = x2 = x3 = x4 = x0 = x1 = 5ww; y0 = 10hh - y1 = 0 = y9 = y11; y2 = .25[y0,y1]; y3 = .5[y0,y1]; y4 = .75[y0,y1] = y10 = y12; y5 = .5[y1,y4]; y6 = .5[y3,y4]; y7 = .5[y3,y2]; y8 = .5[y0,y2]; x9 = 2.5ww = x12; x10 = 7.5ww = x11; penpos0(2b,0); penpos1(2b,0); penpos8(.6b,0); penpos7(.6b,0); penpos6(.6b,0); penpos5(.6b,0); penpos2(1.7b,0); penpos3(1.7b,0); penpos4(1.7b,0); penstroke z1e..z5e..z4e..z6e..z3e..z7e..z2e..z8e..z0e; pickup pencircle scaled .4pt; draw z9{up}..z7..{up}z10; draw z11{up}..z7..{up}z12; draw fullcircle scaled .5b shifted (z10); draw fullcircle scaled .5b shifted (z12); endchar;