1 outputtemplate:="%j.mps";
\r
6 fill (6.656250,2.863280)
\r
7 --(10.671900,1.898440)
\r
8 --(52.574200,45.480499)
\r
9 ..controls (58.933601,42.566399) and (66.656303,43.812500)..(71.859398,49.214802)
\r
10 ..controls (76.187500,53.726601) and (77.742203,60.058601)..(76.511703,65.871101)
\r
11 --(71.335899,60.484402)
\r
12 --(70.078102,59.175800)
\r
13 --(66.148399,55.093800)
\r
14 --(60.890598,56.472698)
\r
15 --(55.632801,57.855499)
\r
16 --(52.972698,68.792999)
\r
17 --(58.160198,74.191399)
\r
18 --(60.832001,76.972702)
\r
19 --(63.335899,79.574203)
\r
20 ..controls (57.750000,80.855499) and (51.656300,79.242203)..(47.320301,74.734398)
\r
21 ..controls (42.125000,69.328102) and (40.929699,61.292999)..(43.734402,54.675800)
\r
22 --(1.824220,11.097700)
\r
23 ..controls (-0.609375,8.566410) and (-0.609375,4.429690)..(1.824220,1.898440)
\r
24 ..controls (4.257810,-0.632813) and (8.234370,-0.632813)..(10.671900,1.898440)
\r
25 --(6.656250,2.863280)
\r
26 ..(2.867190,7.007810)
\r
27 ..(6.656250,10.43749)
\r
28 ..(10.441400,7.007810)
\r
29 ..(6.656250,2.863280)
\r
30 --cycle withcolor(.5,.5,.5);
\r
32 r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));
\r
34 pic:=currentpicture;
\r
35 currentpicture:=nullpicture;
\r
38 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);
\r
39 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);
\r
42 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,0))--(z1-(8.5pt,0))--cycle);
\r