2 outputtemplate:="%j.mps";
\r
4 drawoptions (withcolor (0.309800,0.027500,0.086300));
\r
5 fill (0.347656,4.429690)--(11.953100,5.679690)--(16.445299,2.445310)
\r
6 --(4.839840,1.195310)--cycle;
\r
7 pickup pencircle scaled 0.100000bp;
\r
8 draw (0.347656,4.429690)--(11.953100,5.679690)--(16.445299,2.445310)
\r
9 --(4.839840,1.195310)--cycle;
\r
10 drawoptions (withcolor (0.368600,0.035300,0.102000));
\r
11 pickup pencircle scaled 0.000000bp;
\r
12 fill (11.953100,5.679690)--(11.953100,17.632799)--(16.445299,14.394500)
\r
13 --(16.445299,2.445310)--cycle;
\r
14 pickup pencircle scaled 0.100000bp;
\r
15 draw (11.953100,5.679690)--(11.953100,17.632799)--(16.445299,14.394500)
\r
16 --(16.445299,2.445310)--cycle;
\r
17 drawoptions (withcolor (0.788200,0.070600,0.215700));
\r
18 pickup pencircle scaled 0.000000bp;
\r
19 fill (0.347656,4.429690)--(0.347656,16.378901)--(11.953100,17.632799)
\r
20 --(11.953100,5.679690)--cycle;
\r
21 pickup pencircle scaled 0.100000bp;
\r
22 draw (0.347656,4.429690)--(0.347656,16.378901)--(11.953100,17.632799)
\r
23 --(11.953100,5.679690)--cycle;
\r
24 drawoptions (withcolor (1.000000,0.713700,0.756900));
\r
25 pickup pencircle scaled 0.800000bp;
\r
26 draw (11.953100,5.679690)--(16.445299,2.445310);
\r
27 draw (11.953100,5.679690)--(11.953100,17.632799);
\r
28 draw (0.347656,4.429690)--(11.953100,5.679690);
\r
29 drawoptions (withcolor (0.788200,0.070600,0.215700));
\r
30 pickup pencircle scaled 0.000000bp;
\r
31 fill (4.839840,1.195310)--(16.445299,2.445310)--(16.445299,14.394500)
\r
32 --(4.839840,13.144500)--cycle;
\r
33 pickup pencircle scaled 0.100000bp;
\r
34 draw (4.839840,1.195310)--(16.445299,2.445310)--(16.445299,14.394500)
\r
35 --(4.839840,13.144500)--cycle;
\r
36 drawoptions (withcolor (1.000000,0.713700,0.756900));
\r
37 pickup pencircle scaled 0.800000bp;
\r
38 draw (16.445299,2.445310)--(4.839840,1.195310);
\r
39 draw (16.445299,14.394500)--(16.445299,2.445310);
\r
40 drawoptions (withcolor (0.368600,0.035300,0.102000));
\r
41 pickup pencircle scaled 0.000000bp;
\r
42 fill (0.347656,16.378901)--(0.347656,4.429690)--(4.839840,1.195310)
\r
43 --(4.839840,13.144500)--cycle;
\r
44 pickup pencircle scaled 0.100000bp;
\r
45 draw (0.347656,16.378901)--(0.347656,4.429690)--(4.839840,1.195310)
\r
46 --(4.839840,13.144500)--cycle;
\r
47 drawoptions (withcolor (1.000000,0.713700,0.756900));
\r
48 pickup pencircle scaled 0.800000bp;
\r
49 draw (4.839840,1.195310)--(0.347656,4.429690);
\r
50 draw (4.839840,1.195310)--(4.839840,13.144500);
\r
51 draw (0.347656,16.378901)--(0.347656,4.429690);
\r
52 drawoptions (withcolor (0.309800,0.027500,0.086300));
\r
53 pickup pencircle scaled 0.000000bp;
\r
54 fill (0.347656,16.378901)--(4.839840,13.144500)--(16.445299,14.394500)
\r
55 --(11.953100,17.632799)--cycle;
\r
56 pickup pencircle scaled 0.100000bp;
\r
57 draw (0.347656,16.378901)--(4.839840,13.144500)--(16.445299,14.394500)
\r
58 --(11.953100,17.632799)--cycle;
\r
59 drawoptions (withcolor (1.000000,0.713700,0.756900));
\r
60 pickup pencircle scaled 0.800000bp;
\r
61 draw (0.347656,16.378901)--(4.839840,13.144500);
\r
62 draw (11.953100,17.632799)--(16.445299,14.394500);
\r
63 draw (4.839840,13.144500)--(16.445299,14.394500);
\r
64 draw (11.953100,17.632799)--(0.347656,16.378901);
\r
66 pic:=currentpicture;
\r
67 currentpicture:=nullpicture;
\r
69 draw pic scaled(1.008);
\r
70 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);
\r
71 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);
\r
74 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,0))--(z1-(8.5pt,0))--cycle);
\r