beginchar("g",.4em#,3cap#/7,.5dth#); "gamma"; picture gama; path p[]; save ww,hh,dd; ww = w/4; hh = h/3; dd = d/1; b := .4ww; z0 = (.2ww,2.2hh); z1 = (1.3ww,2.9hh); z4 = (3.2ww,2.8hh); z3 = (.7ww,-.9dd); z2 = (2ww,2hh); z5 = z2; p0 = z0{z1-z0}..{right}z1..z2..{dir-30}z3{dir45}..{up}z2..z4; p1 = subpath (2,4) of p0; fill p1..cycle; penpos0(1.5b,angle(z1-z2)-50); penpos1(2b,90); penpos2(b,0); penpos3(.1b,90); penpos4(2b,90); penpos5(b,180); penstroke z0e{z1-z0}..{right}z1e..z2e..{dir-60}z3e{dir45}..{up}z5e..z4e; pickup pencircle scaled 2b; drawdot z4; gama = currentpicture; endchar;