beginchar("Z",em#,5cap#/7,0); "Zeta"; path p[]; save ww,hh,dd; ww = w/10; hh = h/5; b := ww; x0 = 2ww; x5 = 2.5ww; x2 = x4 = x7 = 8ww; x3 = 4ww; y7 = 0; y0 = 9hh; y2 = 8hh; y5 = 2hh; y3 = 5.2hh; y4 = 5hh; z6 = (x5,.5hh); z8 = (x4,.5[y4,y5]); z9 = (x0,.5[y0,y5]); z10 = (.5[x0,x2],y0); penpos7(2b,0); penpos5(b,90); penstroke z7e{up}..{left}z5e; p1 = z5{left}..{z2-z5}z2{left}..{up}z0; pickup pencircle scaled b; draw p1; pickup pencircle scaled .4pt; draw z6{right}..{z8-z6}z8..{z9-z8}z9..{z10-z9}z10; draw fullcircle scaled .5b shifted (z10); draw fullcircle scaled .5b shifted (z8); draw fullcircle scaled .5b shifted (z9); draw fullcircle scaled .5b shifted (z6); draw fullcircle scaled .5b shifted (z4); fill fullcircle scaled 2b shifted (z3); endchar;