beginchar("G",em#,5cap#/7,0dth#); "Gamma"; path p[]; save ww,hh,dd; ww = w/10; hh = h/5; b := ww; x0 = x1 = 2.5ww; x3 = x2 = 9.5ww; y1 = 7.3hh; y2 = 8hh; y0 = 0; y3 = 7hh; z4 = .25[z0,z1]; z5 = .5[z0,z1]; z6 = .75[z0,z1]; z7 = .5[z2,z1]; z8 = .5[z0,z4]; z9 = (x12,0); z10 = (.5[x1,x7],.5[y1,y6]); z11 = (x10,0); z12 = (.5[x7,x2],y10); z13 = .75[z1,z7]; z14 = .25[z7,z2]; z15 = (x7,y5); penpos0(2b,0); penpos8(.6b,0); penpos4(1.7b,0); penpos5(.6b,0); penpos6(1.7b,0); penpos1(b,315); penpos13(.8b,270); penpos7(1.7b,270); penpos14(.8b,270); penpos2(b,225); penpos3(b,180); penstroke z0e{up}..z8e..z4e..z5e..z6e..{up}z1e..z13e..z7e.. z14e..{right}z2e ..{down}z3e; pickup pencircle scaled b; drawdot z3; pickup pencircle scaled .4pt; draw z9{up}..z15..{up}z10; draw z11{up}..z15..{up}z12; draw fullcircle scaled .5b shifted (z10); draw fullcircle scaled .5b shifted (z12); endchar;