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;
picture pic;
fill (77.968803,17.304701)
..controls (69.660202,17.304701) and (61.351601,17.304701)..(53.046902,17.304701)
..controls (52.609402,18.070299) and (51.937500,18.562500)..(51.183601,18.562500)
..controls (50.429699,18.562500) and (49.757801,18.070299)..(49.320301,17.304701)
..controls (48.273399,17.304701) and (47.226601,17.304701)..(46.179699,17.304701)
..controls (35.859402,17.304701) and (25.531300,17.304701)..(15.207000,17.304701)
..controls (14.511700,22.261700) and (11.406300,26.000000)..(7.675780,26.000000)
..controls (3.437500,26.000000) and (0.000000,21.167999)..(0.000000,15.203100)
--(5.589840,15.203100)
..controls (4.804690,15.824200) and (4.300780,16.781300)..(4.300780,17.859400)
..controls (4.300780,19.722700) and (5.812500,21.234400)..(7.675780,21.234400)
..controls (9.539060,21.234400) and (11.054700,19.722700)..(11.054700,17.859400)
..controls (11.054700,16.781300) and (10.546900,15.824200)..(9.761720,15.203100)
..controls (10.546900,14.585900) and (11.054700,13.628900)..(11.054700,12.550800)
..controls (11.054700,10.687500) and (9.539060,9.171880)..(7.675780,9.171880)
..controls (5.812500,9.171880) and (4.300780,10.687500)..(4.300780,12.550800)
..controls (4.300780,13.628900) and (4.804690,14.585900)..(5.589840,15.203100)
--(0.000000,15.203100)
..controls (0.000000,9.242190) and (3.437500,4.406250)..(7.675780,4.406250)
..controls (11.406300,4.406250) and (14.511700,8.148440)..(15.207000,13.105500)
..controls (25.132799,13.105500) and (35.058601,13.105500)..(44.980499,13.105500)
..controls (46.429699,13.105500) and (47.875000,13.105500)..(49.320301,13.105500)
..controls (49.757801,12.335900) and (50.429699,11.843800)..(51.183601,11.843800)
..controls (51.937500,11.843800) and (52.609402,12.335900)..(53.046902,13.105500)
..controls (56.183601,13.105500) and (59.320301,13.105500)..(62.457001,13.105500)
--(62.457001,8.488280)
..controls (63.914101,8.488280) and (65.093803,7.304690)..(65.093803,5.847660)
..controls (65.093803,4.390630) and (63.914101,3.207030)..(62.457001,3.207030)
--(62.457001,0.570313)
--(66.054703,0.570313)
..controls (66.054703,2.027340) and (67.234398,3.207030)..(68.695297,3.207030)
..controls (70.152298,3.207030) and (71.332001,2.027340)..(71.332001,0.570313)
--(74.929703,0.570313)
--(74.929703,3.207030)
..controls (73.472702,3.207030) and (72.292999,4.390630)..(72.292999,5.847660)
..controls (72.292999,7.304690) and (73.472702,8.488280)..(74.929703,8.488280)
--(74.929703,13.105500)
..controls (75.933601,13.105500) and (76.937500,13.105500)..(77.941399,13.105500)
..controls (77.949203,13.105500) and (77.960899,13.105500)..(77.968803,13.105500)
..controls (80.675797,13.105500) and (80.675797,17.304701)..(77.968803,17.304701)
--cycle withcolor(.2,.2,.2);
pic:=currentpicture;
currentpicture:=nullpicture;
draw pic rotated(45);
r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));
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
|
