beginchar("A",em#,5cap#/7,0); "Alfa"; path p[]; save ww,hh,dd; ww = w/10; hh = h/5; b := ww; z0 = (7ww,5hh); x1 = 2ww; y1 = 9.5hh; x3 = 10ww - x2 = ww; y3 = y2 = .5hh; p1 = z1{right}..z0..{right}z2; z4 = point .3 of p1; z5 = z4; p2 = z4{left}..{left}z3; z6 = point .5 of p2; z7 = (5ww,y3); z8 = .5[z4,z6]; z9 = point .6 of p1; z10 = point 1.5 of p1; z11 = (x6,.5[y3,y6]); z12 = (x1,y9); z13 = (x0,y4); z14 = z3; z15 = z10; penpos1(b,90); penpos0(1.7b,0); penpos2(b,90); penpos7(.6b,90); penpos3(b,270); penpos4(b,270); penpos5(b,0); penpos6(1.7b,0); penpos8(.6b,angle(z6-z8) + 90); penpos9(.6b,angle(z0-z9) + 90); penpos10(.6b,0); penpos11(.8b,0); penpos14(b,90); penpos15(2b,angle(z10-z7) + 90); penstroke z1e{right}..z9e..z0e..z10e..{right}z2e; penstroke z5e{down}..z8e..z6e..z11e..{left}z3e; penstroke z14e..z7e..z15e; pickup pencircle scaled b; drawdot z1; drawdot z2; drawdot z3; pickup pencircle scaled .4pt; draw z7{up}..z8..{left}z12;; draw z7{up}..z9..{right}z13; draw fullcircle scaled .5b shifted (z12); draw fullcircle scaled .5b shifted (z13); endchar;