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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
|
prologues:=1;
outputtemplate:="%j.mps";
beginfig(1);
linecap := butt;
drawoptions (withcolor (1,1,1));
fill (0.000000,24.800800)--(0.507813,24.859400)--(0.984375,24.906300)
--(1.441410,24.937500)--(1.867190,24.953100)--(2.273440,24.953100)
--(2.660160,24.945299)--(3.023440,24.921900)--(3.367190,24.890600)
--(3.695310,24.847700)--(4.003910,24.796900)--(4.300780,24.742201)
--(4.582030,24.675800)--(4.847660,24.605499)--(5.105470,24.527300)
--(5.351560,24.449200)--(5.589840,24.367201)--(5.820310,24.281300)
--(6.042970,24.195299)--(6.261720,24.109400)--(6.476560,24.023399)
--(6.691410,23.937500)--(6.902340,23.855499)--(7.117190,23.777300)
--(7.328130,23.703100)--(7.546880,23.632799)--(7.765630,23.570299)
--(7.992190,23.511700)--(8.226560,23.464800)--(8.468750,23.425800)
--(8.718750,23.394501)--(8.980470,23.378901)--(9.253910,23.371099)
--(9.542970,23.375000)--(9.843750,23.394501)--(10.160200,23.429701)
--(10.496100,23.476601)--(10.847700,23.542999)--(11.218800,23.625000)
--(11.613300,23.726601)--(12.031300,23.843800)--(12.472700,23.984400)
--(12.937500,24.144501)--(13.425800,24.328100)--(13.945300,24.535200)
--(14.492200,24.761700)--(15.070300,25.015600)--(15.679700,25.292999)
--(16.324200,25.601601)--(17.000000,25.933599)--(17.000000,22.191401)
--(16.324200,21.859400)--(15.679700,21.554701)--(15.070300,21.277300)
--(14.492200,21.023399)--(13.945300,20.792999)--(13.425800,20.589800)
--(12.937500,20.406300)--(12.472700,20.246099)--(12.031300,20.105499)
--(11.613300,19.984400)--(11.218800,19.886700)--(10.847700,19.804701)
--(10.496100,19.738300)--(10.160200,19.687500)--(9.843750,19.656300)
--(9.542970,19.636700)--(9.253910,19.628901)--(8.980470,19.636700)
--(8.718750,19.656300)--(8.468750,19.687500)--(8.226560,19.726601)
--(7.992190,19.773399)--(7.765630,19.828100)--(7.546880,19.894501)
--(7.328130,19.960899)--(7.117190,20.035200)--(6.902340,20.117201)
--(6.691410,20.199200)--(6.476560,20.281300)--(6.261720,20.367201)
--(6.042970,20.453100)--(5.820310,20.542999)--(5.589840,20.625000)
--(5.351560,20.710899)--(5.105470,20.789101)--(4.847660,20.863300)
--(4.582030,20.933599)--(4.300780,21.000000)--(4.003910,21.058599)
--(3.695310,21.109400)--(3.367190,21.148399)--(3.023440,21.183599)
--(2.660160,21.203100)--(2.273440,21.214800)--(1.867190,21.210899)
--(1.441410,21.195299)--(0.984375,21.164101)--(0.507813,21.121099)
--(0.000000,21.058599)--cycle;
drawoptions (withcolor (0,150/256,110/256));
fill (0.000000,21.058599)--(0.507813,21.121099)--(0.984375,21.164101)
--(1.441410,21.195299)--(1.867190,21.210899)--(2.273440,21.214800)
--(2.660160,21.203100)--(3.023440,21.183599)--(3.367190,21.148399)
--(3.695310,21.109400)--(4.003910,21.058599)--(4.300780,21.000000)
--(4.582030,20.933599)--(4.847660,20.863300)--(5.105470,20.789101)
--(5.351560,20.710899)--(5.589840,20.625000)--(5.820310,20.542999)
--(6.042970,20.453100)--(6.261720,20.367201)--(6.476560,20.281300)
--(6.691410,20.199200)--(6.902340,20.117201)--(7.117190,20.035200)
--(7.328130,19.960899)--(7.546880,19.894501)--(7.765630,19.828100)
--(7.992190,19.773399)--(8.226560,19.726601)--(8.468750,19.687500)
--(8.718750,19.656300)--(8.980470,19.636700)--(9.253910,19.628901)
--(9.542970,19.636700)--(9.843750,19.656300)--(10.160200,19.687500)
--(10.496100,19.738300)--(10.847700,19.804701)--(11.218800,19.886700)
--(11.613300,19.984400)--(12.031300,20.105499)--(12.472700,20.246099)
--(12.937500,20.406300)--(13.425800,20.589800)--(13.945300,20.792999)
--(14.492200,21.023399)--(15.070300,21.277300)--(15.679700,21.554701)
--(16.324200,21.859400)--(17.000000,22.191401)--(17.000000,18.339800)
--(16.324200,18.007799)--(15.679700,17.703100)--(15.070300,17.421900)
--(14.492200,17.167999)--(13.945300,16.941401)--(13.425800,16.734400)
--(12.937500,16.550800)--(12.472700,16.390600)--(12.031300,16.253901)
--(11.613300,16.132799)--(11.218800,16.031300)--(10.847700,15.949200)
--(10.496100,15.882800)--(10.160200,15.835900)--(9.843750,15.800800)
--(9.542970,15.781300)--(9.253910,15.777300)--(8.980470,15.785200)
--(8.718750,15.804700)--(8.468750,15.832000)--(8.226560,15.871100)
--(7.992190,15.921900)--(7.765630,15.976600)--(7.546880,16.039101)
--(7.328130,16.109400)--(7.117190,16.183599)--(6.902340,16.261700)
--(6.691410,16.343800)--(6.476560,16.429701)--(6.261720,16.515600)
--(6.042970,16.601601)--(5.820310,16.687500)--(5.589840,16.773399)
--(5.351560,16.855499)--(5.105470,16.937500)--(4.847660,17.011700)
--(4.582030,17.082001)--(4.300780,17.148399)--(4.003910,17.203100)
--(3.695310,17.253901)--(3.367190,17.296900)--(3.023440,17.328100)
--(2.660160,17.351601)--(2.273440,17.359400)--(1.867190,17.359400)
--(1.441410,17.343800)--(0.984375,17.312500)--(0.507813,17.269501)
--(0.000000,17.207001)--cycle;
drawoptions (withcolor (214/256,38/256,18/256));
fill (0.000000,17.207001)--(0.507813,17.269501)--(0.984375,17.312500)
--(1.441410,17.343800)--(1.867190,17.359400)--(2.273440,17.359400)
--(2.660160,17.351601)--(3.023440,17.328100)--(3.367190,17.296900)
--(3.695310,17.253901)--(4.003910,17.203100)--(4.300780,17.148399)
--(4.582030,17.082001)--(4.847660,17.011700)--(5.105470,16.937500)
--(5.351560,16.855499)--(5.589840,16.773399)--(5.820310,16.687500)
--(6.042970,16.601601)--(6.261720,16.515600)--(6.476560,16.429701)
--(6.691410,16.343800)--(6.902340,16.261700)--(7.117190,16.183599)
--(7.328130,16.109400)--(7.546880,16.039101)--(7.765630,15.976600)
--(7.992190,15.921900)--(8.226560,15.871100)--(8.468750,15.832000)
--(8.718750,15.804700)--(8.980470,15.785200)--(9.253910,15.777300)
--(9.542970,15.781300)--(9.843750,15.800800)--(10.160200,15.835900)
--(10.496100,15.882800)--(10.847700,15.949200)--(11.218800,16.031300)
--(11.613300,16.132799)--(12.031300,16.253901)--(12.472700,16.390600)
--(12.937500,16.550800)--(13.425800,16.734400)--(13.945300,16.941401)
--(14.492200,17.167999)--(15.070300,17.421900)--(15.679700,17.703100)
--(16.324200,18.007799)--(17.000000,18.339800)--(17.000000,14.601600)
--(16.324200,14.265600)--(15.679700,13.960900)--(15.070300,13.683600)
--(14.492200,13.429700)--(13.945300,13.199200)--(13.425800,12.996100)
--(12.937500,12.812500)--(12.472700,12.652300)--(12.031300,12.511700)
--(11.613300,12.394500)--(11.218800,12.293000)--(10.847700,12.210900)
--(10.496100,12.144500)--(10.160200,12.093800)--(9.843750,12.062500)
--(9.542970,12.043000)--(9.253910,12.039100)--(8.980470,12.043000)
--(8.718750,12.062500)--(8.468750,12.093800)--(8.226560,12.132800)
--(7.992190,12.179700)--(7.765630,12.234400)--(7.546880,12.300800)
--(7.328130,12.367200)--(7.117190,12.441400)--(6.902340,12.523400)
--(6.691410,12.605500)--(6.476560,12.687500)--(6.261720,12.773400)
--(6.042970,12.863300)--(5.820310,12.949200)--(5.589840,13.031300)
--(5.351560,13.117200)--(5.105470,13.195300)--(4.847660,13.269500)
--(4.582030,13.343800)--(4.300780,13.406300)--(4.003910,13.464800)
--(3.695310,13.515600)--(3.367190,13.558600)--(3.023440,13.589800)
--(2.660160,13.609400)--(2.273440,13.621100)--(1.867190,13.617200)
--(1.441410,13.601600)--(0.984375,13.574200)--(0.507813,13.527300)
--(0.000000,13.464800)--cycle;
drawoptions (withcolor (0.000000,0.000000,0.000000));
pickup pencircle scaled 0.200000bp;
draw (0.000000,24.800800)--(0.507813,24.859400)--(0.984375,24.906300)
--(1.441410,24.937500)--(1.867190,24.953100)--(2.273440,24.953100)
--(2.660160,24.945299)--(3.023440,24.921900)--(3.367190,24.890600)
--(3.695310,24.847700)--(4.003910,24.796900)--(4.300780,24.742201)
--(4.582030,24.675800)--(4.847660,24.605499)--(5.105470,24.527300)
--(5.351560,24.449200)--(5.589840,24.367201)--(5.820310,24.281300)
--(6.042970,24.195299)--(6.261720,24.109400)--(6.476560,24.023399)
--(6.691410,23.937500)--(6.902340,23.855499)--(7.117190,23.777300)
--(7.328130,23.703100)--(7.546880,23.632799)--(7.765630,23.570299)
--(7.992190,23.511700)--(8.226560,23.464800)--(8.468750,23.425800)
--(8.718750,23.394501)--(8.980470,23.378901)--(9.253910,23.371099)
--(9.542970,23.375000)--(9.843750,23.394501)--(10.160200,23.429701)
--(10.496100,23.476601)--(10.847700,23.542999)--(11.218800,23.625000)
--(11.613300,23.726601)--(12.031300,23.843800)--(12.472700,23.984400)
--(12.937500,24.144501)--(13.425800,24.328100)--(13.945300,24.535200)
--(14.492200,24.761700)--(15.070300,25.015600)--(15.679700,25.292999)
--(16.324200,25.601601)--(17.000000,25.933599)--(17.000000,14.601600)
--(16.324200,14.265600)--(15.679700,13.960900)--(15.070300,13.683600)
--(14.492200,13.429700)--(13.945300,13.199200)--(13.425800,12.996100)
--(12.937500,12.812500)--(12.472700,12.652300)--(12.031300,12.511700)
--(11.613300,12.394500)--(11.218800,12.293000)--(10.847700,12.210900)
--(10.496100,12.144500)--(10.160200,12.093800)--(9.843750,12.062500)
--(9.542970,12.043000)--(9.253910,12.039100)--(8.980470,12.043000)
--(8.718750,12.062500)--(8.468750,12.093800)--(8.226560,12.132800)
--(7.992190,12.179700)--(7.765630,12.234400)--(7.546880,12.300800)
--(7.328130,12.367200)--(7.117190,12.441400)--(6.902340,12.523400)
--(6.691410,12.605500)--(6.476560,12.687500)--(6.261720,12.773400)
--(6.042970,12.863300)--(5.820310,12.949200)--(5.589840,13.031300)
--(5.351560,13.117200)--(5.105470,13.195300)--(4.847660,13.269500)
--(4.582030,13.343800)--(4.300780,13.406300)--(4.003910,13.464800)
--(3.695310,13.515600)--(3.367190,13.558600)--(3.023440,13.589800)
--(2.660160,13.609400)--(2.273440,13.621100)--(1.867190,13.617200)
--(1.441410,13.601600)--(0.984375,13.574200)--(0.507813,13.527300)
--(0.000000,13.464800)--cycle;
pickup pencircle scaled 0.8bp;
draw (0.000000,5.000000)--(0.000000,26);
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
|
