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
|
prologues:=1;
outputtemplate:="%j.mps";
beginfig(1);
linecap := butt;
linejoin := mitered;
linejoin := rounded;
fill (72.000000,713.254028)--(72.000000,718.918030)--(72.507797,718.979980)
--(72.984398,719.026978)--(73.437500,719.054993)--(73.867203,719.070007)
--(74.273399,719.073975)--(74.660202,719.062988)--(75.023399,719.043030)
--(75.367203,719.012024)--(75.695297,718.968994)--(76.003899,718.918030)
--(76.300797,718.859009)--(76.578102,718.793030)--(76.847702,718.723022)
--(77.105499,718.648010)--(77.351601,718.570007)--(77.589798,718.484009)
--(77.820297,718.401978)--(78.042999,718.312988)--(78.234398,718.237976)
--(78.234398,706.906006)--(78.042999,706.979980)--(77.820297,707.065979)
--(77.589798,707.151978)--(77.351601,707.237976)--(77.105499,707.315979)
--(76.847702,707.390991)--(76.578102,707.460999)--(76.300797,707.526978)
--(76.003899,707.585999)--(75.695297,707.637024)--(75.367203,707.676025)
--(75.023399,707.710999)--(74.660202,707.729980)--(74.273399,707.742004)
--(73.867203,707.737976)--(73.437500,707.723022)--(72.984398,707.690979)
--(72.507797,707.648010)--(72.000000,707.585999)--cycle;
drawoptions (withcolor (250/256,224/256,66/256));
fill (78.246101,712.565979)--(78.261703,718.226990)--(78.476601,718.140991)
--(78.691399,718.059021)--(78.902298,717.976990)--(79.113297,717.895020)
--(79.328102,717.820007)--(79.546898,717.754028)--(79.765602,717.687988)
--(79.992203,717.632996)--(80.226601,717.585999)--(80.468803,717.543030)
--(80.718803,717.515991)--(80.980499,717.495972)--(81.253899,717.492004)
--(81.542999,717.495972)--(81.843803,717.515991)--(82.160202,717.546997)
--(82.492203,717.598022)--(82.847702,717.664001)--(83.218803,717.745972)
--(83.332001,717.773010)--(83.332001,706.440979)--(83.218803,706.414001)
--(82.847702,706.328003)--(82.492203,706.265991)--(82.160202,706.215027)
--(81.843803,706.179993)--(81.542999,706.164001)--(81.253899,706.156006)
--(80.980499,706.164001)--(80.718803,706.184021)--(80.468803,706.210999)
--(80.226601,706.250000)--(79.992203,706.301025)--(79.765602,706.354980)
--(79.546898,706.418030)--(79.328102,706.487976)--(79.113297,706.562988)
--(78.902298,706.645020)--(78.691399,706.723022)--(78.476601,706.809021)
--(78.234398,706.906006)--cycle;
drawoptions (withcolor (237/256,41/256,57/256));
fill (83.332001,712.109009)--(83.332001,717.773010)--(83.613297,717.843994)
--(84.031303,717.965027)--(84.468803,718.104980)--(84.933601,718.265991)
--(85.425797,718.448975)--(85.945297,718.651978)--(86.492203,718.882996)
--(87.070297,719.137024)--(87.679703,719.414001)--(88.324203,719.718994)
--(89.000000,720.054993)--(89.000000,708.718994)--(88.324203,708.387024)
--(87.679703,708.081970)--(87.070297,707.801025)--(86.492203,707.551025)
--(85.945297,707.320007)--(85.425797,707.117004)--(84.933601,706.934021)
--(84.468803,706.773010)--(84.031303,706.632996)--(83.613297,706.512024)
--(83.332001,706.440979)--cycle;
drawoptions (withcolor (0.000000,0.000000,0.000000));
pickup pencircle scaled 0.199253bp;
draw (72.000000,713.254028)--(72.000000,718.918030)--(72.507797,718.979980)
--(72.984398,719.026978)--(73.437500,719.054993)--(73.867203,719.070007)
--(74.273399,719.073975)--(74.660202,719.062988)--(75.023399,719.043030)
--(75.367203,719.012024)--(75.695297,718.968994)--(76.003899,718.918030)
--(76.300797,718.859009)--(76.578102,718.793030)--(76.847702,718.723022)
--(77.105499,718.648010)--(77.351601,718.570007)--(77.589798,718.484009)
--(77.820297,718.401978)--(78.042999,718.312988)--(78.261703,718.226990)
--(78.476601,718.140991)--(78.691399,718.059021)--(78.902298,717.976990)
--(79.113297,717.895020)--(79.328102,717.820007)--(79.546898,717.754028)
--(79.765602,717.687988)--(79.992203,717.632996)--(80.226601,717.585999)
--(80.468803,717.543030)--(80.718803,717.515991)--(80.980499,717.495972)
--(81.253899,717.492004)--(81.542999,717.495972)--(81.843803,717.515991)
--(82.160202,717.546997)--(82.492203,717.598022)--(82.847702,717.664001)
--(83.218803,717.745972)--(83.613297,717.843994)--(84.031303,717.965027)
--(84.468803,718.104980)--(84.933601,718.265991)--(85.425797,718.448975)
--(85.945297,718.651978)--(86.492203,718.882996)--(87.070297,719.137024)
--(87.679703,719.414001)--(88.324203,719.718994)--(89.000000,720.054993)
--(89.000000,708.718994)--(88.324203,708.387024)--(87.679703,708.081970)
--(87.070297,707.801025)--(86.492203,707.551025)--(85.945297,707.320007)
--(85.425797,707.117004)--(84.933601,706.934021)--(84.468803,706.773010)
--(84.031303,706.632996)--(83.613297,706.512024)--(83.218803,706.414001)
--(82.847702,706.328003)--(82.492203,706.265991)--(82.160202,706.215027)
--(81.843803,706.179993)--(81.542999,706.164001)--(81.253899,706.156006)
--(80.980499,706.164001)--(80.718803,706.184021)--(80.468803,706.210999)
--(80.226601,706.250000)--(79.992203,706.301025)--(79.765602,706.354980)
--(79.546898,706.418030)--(79.328102,706.487976)--(79.113297,706.562988)
--(78.902298,706.645020)--(78.691399,706.723022)--(78.476601,706.809021)
--(78.261703,706.895020)--(78.042999,706.979980)--(77.820297,707.065979)
--(77.589798,707.151978)--(77.351601,707.237976)--(77.105499,707.315979)
--(76.847702,707.390991)--(76.578102,707.460999)--(76.300797,707.526978)
--(76.003899,707.585999)--(75.695297,707.637024)--(75.367203,707.676025)
--(75.023399,707.710999)--(74.660202,707.729980)--(74.273399,707.742004)
--(73.867203,707.737976)--(73.437500,707.723022)--(72.984398,707.690979)
--(72.507797,707.648010)--(72.000000,707.585999)--cycle;
pickup pencircle scaled 0.8bp;
draw (72.000000,699)--(72.000000,720);
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
|
