1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
outputtemplate:="%j.mps";
prologues := 1;
beginfig(1);
linecap := butt;
linejoin := mitered;
fill (29.707001,28.515600)..controls (29.707001,36.953098) and (22.675800,42.539101)..(15.218800,40.441399)
..(13.093800,39.574200)
..controls (8.351560,36.871101) and (6.000000,29.875000)..(9.410160,25.300800)
--(10.878900,25.851601)
..controls (9.609380,30.386700) and (11.359400,34.167999)..(14.382800,35.753899)
..(16.546900,36.472698)
..controls (22.109400,37.406300) and (25.574200,33.035198)..(25.574200,27.503901)
..controls (25.574200,24.250000) and (23.714800,21.023399)..(21.164101,18.839800)
..(18.996099,17.332001)
..controls (17.593800,16.562500) and (16.093800,16.117201)..(14.644500,16.117201)
..controls (8.093750,16.117201) and (2.890630,21.261700)..(2.890630,27.871099)
..controls (2.890630,34.144501) and (6.367190,38.625000)..(11.324200,44.382801)
..(13.050800,46.539101)
..controls (16.101601,50.574200) and (20.332001,57.312500)..(21.164101,62.863300)
..controls (22.175800,69.566399) and (19.363300,76.050797)..(15.414100,80.000000)
..controls (6.199220,71.980499) and (5.039060,59.789101)..(9.343750,49.218800)
..(11.324200,44.382801)
..controls (11.925800,42.828098) and (12.519500,41.214802)..(13.093800,39.574200)
..(14.382800,35.753899)
..controls (16.714800,28.585899) and (18.535200,21.468800)..(18.996099,17.332001)
..(19.199200,14.425800)
..controls (19.515600,6.558590) and (17.562500,3.914060)..(16.113300,3.578130)
..controls (15.527300,3.445310) and (15.421900,3.785160)..(15.656300,4.042970)
..controls (17.398399,5.933590) and (16.042999,10.390600)..(12.355500,10.390600)
..controls (9.464840,10.390600) and (7.855470,7.921880)..(7.890630,5.394530)
..controls (7.921880,2.734380) and (9.777340,0.000000)..(13.878900,0.000000)
..controls (18.152300,0.000000) and (22.402300,3.960940)..(21.558599,15.355500)
..(21.164101,18.839800)
..controls (20.367201,23.945299) and (18.511700,30.441401)..(16.546900,36.472698)
..(15.218800,40.441399)
..controls (14.460900,42.640598) and (13.722700,44.707001)..(13.050800,46.539101)
..(11.269500,51.710899)
..controls (10.347700,55.269501) and (10.363300,58.898399)..(11.246100,63.687500)
..controls (12.168000,68.644501) and (14.371100,71.843803)..(16.757799,74.781303)
..controls (18.710899,71.808601) and (19.242201,66.527298)..(17.769501,62.675800)
..controls (16.277300,58.781300) and (14.339800,55.753899)..(11.269500,51.710899)
..(9.343750,49.218800)
..controls (2.816410,40.828098) and (0.121094,35.414101)..(0.003906,28.964800)
..controls (-0.144531,21.128901) and (5.625000,13.789100)..(14.644500,13.789100)
..controls (16.300800,13.789100) and (17.816401,14.019500)..(19.199200,14.425800)
..(21.558599,15.355500)
..controls (26.976601,18.062500) and (29.707001,23.792999)..(29.707001,28.515600)
--cycle;
r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));
picture pic;
pic:=currentpicture;
currentpicture:=nullpicture;
drawoptions();
draw pic scaled(r);
z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);
z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);
draw (z0+(10.5,2));
draw (z1-(10.5,2));
clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,0))--(z1-(8.5pt,0))--cycle);
endfig;
end
|
