beginchar("B",em#,5cap#/7,0dth#); "Beta";
path p[];
 save ww,hh,dd;

 ww = w/10; hh = h/5;
 b := ww;
 

 y3 = 9hh;
 x0 = x1 = x2 = x3 = x4 = 2ww;
 y1 = 0;
 y2 = .25[y1,y3];
 y0 = .5[y1,y3];
 y4 = .75[y1,y3];
 y7 = .5[y3,y4];
 y5 = .5[y1,y2];
 x5 = x7 = 7ww;
 p10 =  z3{right}..z7{down}..{left}z4;
 p11 =  z2{right}..z5{down}..{left}z1;
 z10 = z3;
 z11 = z4;
 z12 = z1;
 z13 = z2;
 z6 = point .4 of p10;
 z8 = point 1.6 of p10;
 z9 = point .4 of p11;
 z14 = point 1.6 of p11;
 z15 = (x6,y7);
 z16 = (x6,y5);
 z17 = point 1.3 of p10;
 z18 = point .7 of p11;

 penpos1(b,0);
 penpos2(.6b,0);
 penpos0(1.7b,0);
 penpos3(b,0);
 penpos4(.6b,0);
 penpos5(1.2b,0);
 penpos6(.6b,angle(z6-z3) + 90);
 penpos7(1.2b,0);
 penpos8(.6b,angle(z8-z4) - 90);
 penpos9(.6b,angle(z9-z2) + 90);
 penpos10(b,90);
 penpos11(b,270);
 penpos14(.6b,angle(z14-z12) - 90);
 penpos12(b,270);
 penpos13(b,90);

 penstroke z1e..z2e..z0e..z4e..z3e;
 penstroke z10e..z6e..z7e{down}..z8e..z11e;
 penstroke z13e..z9e..z5e{down}..z14e..z12e;

 pickup pencircle scaled .4pt;
 draw z0{right}..z17..z15;
 draw z0{right}..z18..z16;
 draw fullcircle scaled .5b shifted (z15);
 draw fullcircle scaled .5b shifted (z16);
 pickup pencircle scaled b;
 drawdot z3;
 drawdot z1;

endchar;