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
|
prologues:=1;
outputtemplate:="%j.mps";
beginfig(1);
linecap := butt;
pickup pencircle scaled(0.3bp);
draw (5.812500,6.164060)..controls (6.117190,6.468750) and (6.488280,6.718750)..(6.917970,6.718750)
..controls (7.347660,6.718750) and (7.722660,6.468750)..(8.027340,6.164060)
..controls (8.027340,6.164060) and (13.082000,1.105470)..(13.085900,1.105470)
..controls (13.386700,0.804688) and (13.636700,0.429688)..(13.636700,0.000000)
..controls (13.636700,-0.429688) and (13.386700,-0.804688)..(13.085900,-1.105470)
..controls (13.082000,-1.105470) and (8.027340,-6.164060)..(8.027340,-6.164060)
..controls (7.722660,-6.468750) and (7.347660,-6.718750)..(6.917970,-6.718750)
..controls (6.488280,-6.718750) and (6.117190,-6.468750)..(5.812500,-6.164060)
..controls (5.812500,-6.164060) and (0.753906,-1.105470)..(0.753906,-1.105470)
..controls (0.449219,-0.804688) and (0.199219,-0.429688)..(0.199219,0.000000)
..controls (0.199219,0.429688) and (0.449219,0.804688)..(0.753906,1.105470)
..controls (0.753906,1.105470) and (5.812500,6.164060)..(5.812500,6.164060)
--cycle;
linecap := rounded;
draw (6.363280,6.582030)--(6.363280,7.750000)--(7.472660,7.750000)
--(7.472660,6.582030);
draw (6.363280,-6.582030)--(6.363280,-10.757800);
draw (7.472660,-6.582030)--(7.472660,-10.757800);
draw (2.492190,-10.757800)--(11.347700,-10.757800);
fill (8.855470,2.390630)..controls (9.726560,2.390630) and (9.699220,3.757810)..(8.855470,3.734380)
..controls (8.007810,3.734380) and (8.007810,2.390630)..(8.855470,2.390630)
--cycle;
fill (7.824220,2.929690)..controls (7.824220,2.929690) and (5.546880,1.433590)..(5.335940,1.199220)
..controls (5.148440,0.968750) and (4.937500,0.734375)..(4.937500,0.164063)
..controls (4.937500,-0.402344) and (5.679690,-1.179690)..(6.074220,-1.644530)
--(6.074220,-3.738280)--(7.453130,-3.738280)--(6.660160,-3.480470)
--(6.660160,-1.386720)..controls (6.660160,-1.281250) and (5.863280,-0.195313)..(5.812500,-0.042969)
..controls (5.785160,0.140625) and (5.757810,0.398438)..(5.890630,0.500000)
..controls (6.023440,0.632813) and (8.273440,2.257810)..(8.246090,2.285160)
--cycle;
fill (5.097660,0.269531)--(2.820310,-2.136720)--(4.144530,-3.218750)
--(3.562500,-2.339840)--(5.468750,-0.222656)--cycle;
fill (7.585940,-0.945313)--(7.585940,2.699220)--(5.757810,2.699220)
--(6.394530,1.742190)--(5.812500,1.304690)..controls (5.812500,1.304690) and (5.125000,2.234380)..(5.125000,2.441410)
..controls (5.125000,2.648440) and (5.097660,2.906250)..(5.281250,3.085940)
..controls (5.468750,3.292970) and (5.546880,3.449220)..(5.945310,3.449220)
--(6.894530,3.449220)..controls (7.347660,3.449220) and (7.425780,3.371090)..(7.558590,3.242190)
..controls (7.664060,3.136720) and (8.246090,2.285160)..(8.246090,2.285160)
--(8.246090,-0.582031)--cycle;
fill (6.074220,0.863281)--(7.953130,-1.980470)--(7.398440,-2.417970)
--(8.351560,-3.738280)--(9.382810,-3.738280)--(9.808590,-2.675780)
--(8.878910,-1.359380)--(8.296880,-1.722660)--(6.445310,1.148440)
--cycle;
picture pic;
pic:=currentpicture;
currentpicture:=nullpicture;
drawoptions();
draw pic scaled(1.217);
z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);
z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);
draw (z0+(10.5,2));
draw (z1-(10.5,3));
clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,-3pt))--(z1-(8.5pt,3pt))--cycle);
endfig;
end
|
