beginfig(1)
     picture pic;
     path frame;
 
     u:=1cm;
 
     pickup pencircle scaled 1pt;
 
     for i=-38.2u step 3.82u until 38.2u:
         draw (i,-38.2u)--(i,38.2u);
         draw (38.2u,i)--(-38.2u,i);
     endfor;
 
     pic:=currentpicture;
     draw pic rotated 30;
     draw pic rotated 60;
 
     frame:=(0,0)--(20u,0)--(20u,20u)--(0,20u)--cycle;
     clip currentpicture to frame;
     draw frame;
 endfig;
 end;