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
|
prologues:=1;
outputtemplate:="%j.mps";
beginfig(1);
pickup pencircle scaled 0.800000bp;
linecap := butt;
linejoin := mitered;
draw (6.820310,9.214840)..controls (5.867190,10.476600) and (3.558590,12.203100)..(4.035160,13.820300)
..controls (4.984380,15.347700) and (5.859380,13.793000)..(6.679690,14.035200)
..controls (7.976560,14.082000) and (8.000000,15.031300)..(9.214840,14.105500)
..controls (10.156300,13.156300) and (7.488280,10.558600)..(6.820310,9.214840)
--cycle;
draw (7.281250,8.710940)..controls (8.441410,9.785160) and (9.921880,12.261700)..(11.582000,11.949200)
..controls (13.195300,11.160200) and (11.734400,10.132800)..(12.062500,9.343750)
..controls (12.242200,8.054690) and (13.187500,8.128910)..(12.390600,6.828130)
..controls (11.539100,5.792970) and (8.687500,8.183590)..(7.281250,8.710940)
--cycle;
draw (6.867190,8.410160)..controls (7.808590,7.140630) and (10.105500,5.394530)..(9.613280,3.781250)
..controls (8.652340,2.261720) and (7.792970,3.824220)..(6.968750,3.585940)
..controls (5.671880,3.550780) and (5.640630,2.601560)..(4.433590,3.535160)
..controls (3.500000,4.496090) and (6.187500,7.070310)..(6.867190,8.410160)
--cycle;
draw (6.421880,8.730470)..controls (5.148440,7.792970) and (3.398440,5.500000)..(1.785160,5.996090)
..controls (0.265625,6.960940) and (1.832030,7.816410)..(1.597660,8.640630)
..controls (1.562500,9.937500) and (0.617188,9.972660)..(1.554690,11.175800)
..controls (2.515630,12.109400) and (5.082030,9.414060)..(6.421880,8.730470)
--cycle;
drawoptions (withcolor (0.000000,0.501961,0.000000));
pickup pencircle scaled 0.000000bp;
fill (1.917970,6.425780)..controls (1.859380,6.460940) and (1.750000,6.558590)..(1.675780,6.640630)
..controls (1.480470,6.855470) and (1.492190,6.972660)..(1.757810,7.558590)
..controls (2.031250,8.164060) and (2.058590,8.296880)..(2.007810,8.761720)
..controls (1.964840,9.167970) and (1.890630,9.441410)..(1.703130,9.863280)
..controls (1.546880,10.222700) and (1.542970,10.378900)..(1.683590,10.625000)
..controls (1.851560,10.918000) and (1.894530,10.945300)..(2.164060,10.921900)
..controls (2.613280,10.886700) and (3.113280,10.589800)..(4.632810,9.460940)
..controls (5.121090,9.097660) and (5.562500,8.777340)..(5.605470,8.750000)
..controls (5.648440,8.722660) and (5.679690,8.691410)..(5.675780,8.679690)
..controls (5.660160,8.640630) and (4.488280,7.585940)..(4.160160,7.312500)
..controls (3.582030,6.835940) and (3.089840,6.539060)..(2.687500,6.417970)
..controls (2.417970,6.335940) and (2.054690,6.339840)..(1.917970,6.425780)
--cycle;
fill (6.218750,10.523400)..controls (5.230470,11.593800) and (4.878910,12.039100)..(4.636720,12.523400)
..controls (4.472660,12.851600) and (4.398440,13.113300)..(4.398440,13.367200)
..controls (4.398440,13.621100) and (4.449220,13.726600)..(4.664060,13.925800)
..controls (4.886720,14.128900) and (5.015630,14.128900)..(5.488280,13.910200)
..controls (6.148440,13.605500) and (6.378910,13.566400)..(6.953130,13.648400)
..controls (7.253910,13.691400) and (7.539060,13.781300)..(7.917970,13.945300)
..controls (8.281250,14.109400) and (8.425780,14.109400)..(8.683590,13.957000)
..controls (8.972660,13.781300) and (9.015630,13.710900)..(8.972660,13.449200)
..controls (8.902340,13.015600) and (8.464840,12.269500)..(7.625000,11.136700)
..controls (7.429690,10.875000) and (7.164060,10.507800)..(7.027340,10.316400)
..controls (6.890630,10.125000) and (6.769530,9.968750)..(6.757810,9.968750)
..controls (6.746090,9.968750) and (6.503910,10.218800)..(6.218750,10.523400)
--cycle;
fill (11.265600,7.093750)..controls (10.929700,7.207030) and (10.437500,7.437500)..(9.972660,7.707030)
..controls (9.457030,8.000000) and (8.027340,8.828130)..(8.015630,8.839840)
..controls (8.000000,8.855470) and (8.800780,9.761720)..(9.281250,10.277300)
..controls (10.082000,11.136700) and (10.718800,11.539100)..(11.261700,11.543000)
..controls (11.437500,11.543000) and (11.492200,11.527300)..(11.632800,11.429700)
..controls (11.828100,11.296900) and (11.933600,11.136700)..(11.933600,10.972700)
..controls (11.933600,10.910200) and (11.863300,10.636700)..(11.773400,10.371100)
..controls (11.644500,9.984380) and (11.613300,9.839840)..(11.613300,9.640630)
..controls (11.613300,9.167970) and (11.781300,8.667970)..(12.171900,7.968750)
..controls (12.269500,7.789060) and (12.293000,7.707030)..(12.281300,7.621090)
..controls (12.253900,7.445310) and (12.074200,7.074220)..(12.003900,7.035160)
..controls (11.890600,6.976560) and (11.535200,7.003910)..(11.265600,7.093750)
--cycle;
fill (5.062500,3.628910)..controls (4.656250,3.843750) and (4.617190,3.910160)..(4.683590,4.222660)
..controls (4.781250,4.683590) and (5.148440,5.285160)..(6.187500,6.683590)
..controls (6.531250,7.144530) and (6.835940,7.558590)..(6.863280,7.605470)
..controls (6.917970,7.683590) and (6.925780,7.675780)..(7.496090,7.050780)
..controls (8.492190,5.949220) and (8.765630,5.597660)..(9.023440,5.078130)
..controls (9.242190,4.644530) and (9.312500,4.207030)..(9.207030,3.957030)
..controls (9.183590,3.894530) and (9.085940,3.773440)..(8.996090,3.691410)
..controls (8.781250,3.492190) and (8.640630,3.488280)..(8.238280,3.667970)
..controls (7.437500,4.027340) and (7.320310,4.054690)..(6.851560,4.000000)
..controls (6.460940,3.953130) and (6.128910,3.863280)..(5.765630,3.695310)
..controls (5.382810,3.523440) and (5.277340,3.511720)..(5.062500,3.628910)
--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,4));
clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,-3pt))--(z1-(8.5pt,3pt))--cycle);
endfig;
end
|
