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

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

 x0 = x2 = 5ww;
 y1 = y3 = 5hh;
 y0 = 10hh - y2 = 0;
 x3 = 10ww - x1 = 0;
 p1 = z0{right}..{up}z1;
 p2 = z1{up}..{left}z2;
 p3 = z2{left}..{down}z3;
 p4 = z3{down}..{right}z0;

 z8 = point .25 of p1;
 z4 = point .5 of p1;
 z9 = point .75 of p1;

 z10 = point .25 of p2;
 z5 = point .5 of p2;
 z11 = point .75 of p2;

 z12 = point .25 of p3;
 z6 = point .5 of p3;
 z13 = point .75 of p3;

 z14 = point .25 of p4;
 z7 = point .5 of p4;
 z15 = point .75 of p4;
 
 z16 = .5[z6,z7];
 z17 = .5[z4,z5];
 y18 = y19 = y16;
 x18 = x12;
 x19 = x11;
 z20 = 5(ww,hh);
 z21 = .5[z11,z19];
 z22 = .5[z12,z18];
 z23 = .5[z18,z15];
 z24 = .5[z8,z19];

 penpos0(2b,270);
 penpos1(2b,0);
 penpos2(2b,90);
 penpos3(2b,180);

 penpos4(b,315);
 penpos5(b,45);
 penpos6(b,135);
 penpos7(b,225);

 penpos8(.6b,292.5);
 penpos9(.6b,337.5);
 penpos10(.6b,22.5);
 penpos11(.6b,67.5);
 penpos12(.6b,112.5);
 penpos13(.6b,157.5);
 penpos14(.6b,202.5);
 penpos15(.6b,247.5);

 penpos16(2b,90);
 penpos18(.6b,90);
 penpos20(1.7b,90);
 penpos19(.6b,90);
 penpos17(2b,90);

 penstroke z0e{right}..z8e..z4e..z9e..{up}z1e{up}..z10e..z5e..z11e..
 {left}z2e{left}..z12e..z6e..z13e..{down}z3e{down}..z14e..z7e..z15e..
 {right}z0e;
 penstroke z16e..z18e..z20e..z19e..z17e;

 pickup pencircle scaled .4pt;
 draw z23{up}..z20..{up}z21;
 draw z24{up}..z20..{up}z22;
 draw fullcircle scaled .5b shifted(z21);
 draw fullcircle scaled .5b shifted(z22);

 endchar;