2 outputtemplate:="%j.mps";
\r
5 filldraw fullcircle scaled(600);
\r
6 filldraw fullcircle scaled(550) withcolor(241/256,205/256,67/256);
\r
7 filldraw fullcircle scaled(100);
\r
8 p1:=fullcircle scaled(500);
\r
9 p2:=p1 cutafter (point(4/3) of(p1));
\r
10 p3:=fullcircle scaled(150);
\r
11 p4:=p3 cutafter (point(4/3) of(p3));
\r
12 p10:=(75,0)--(250,0)..p2--reverse(p4)..cycle;
\r
14 filldraw (p10 rotated(120));
\r
15 filldraw (p10 rotated(240));
\r
17 r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));
\r
19 pic:=currentpicture;
\r
20 currentpicture:=nullpicture;
\r
23 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);
\r
24 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);
\r
27 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,0))--(z1-(8.5pt,0))--cycle);
\r