2 outputtemplate:="%j.mps";
\r
4 drawoptions (withcolor (0.517600,0.047100,0.141200));
\r
5 fill (8.316410,17.667999)--(15.410200,11.484400)--(2.816410,12.097700)
\r
7 pickup pencircle scaled 0.100000bp;
\r
8 draw (8.316410,17.667999)--(15.410200,11.484400)--(2.816410,12.097700)
\r
10 drawoptions (withcolor (0.843100,0.078400,0.231400));
\r
11 pickup pencircle scaled 0.000000bp;
\r
12 fill (8.316410,1.085940)--(2.816410,12.097700)--(15.410200,11.484400)
\r
14 pickup pencircle scaled 0.100000bp;
\r
15 draw (8.316410,1.085940)--(2.816410,12.097700)--(15.410200,11.484400)
\r
17 drawoptions (withcolor (0.345100,0.031400,0.094100));
\r
18 pickup pencircle scaled 0.000000bp;
\r
19 fill (8.316410,1.085940)--(1.222660,7.265630)--(2.816410,12.097700)
\r
21 pickup pencircle scaled 0.100000bp;
\r
22 draw (8.316410,1.085940)--(1.222660,7.265630)--(2.816410,12.097700)
\r
24 drawoptions (withcolor (0.164700,0.015700,0.043100));
\r
25 pickup pencircle scaled 0.000000bp;
\r
26 fill (8.316410,1.085940)--(15.410200,11.484400)--(13.816400,6.656250)
\r
28 pickup pencircle scaled 0.100000bp;
\r
29 draw (8.316410,1.085940)--(15.410200,11.484400)--(13.816400,6.656250)
\r
31 drawoptions (withcolor (1.000000,0.713700,0.756900));
\r
32 pickup pencircle scaled 0.800000bp;
\r
33 draw (8.316410,1.085940)--(2.816410,12.097700);
\r
34 draw (15.410200,11.484400)--(2.816410,12.097700);
\r
35 draw (15.410200,11.484400)--(8.316410,1.085940);
\r
36 drawoptions (withcolor (0.517600,0.047100,0.141200));
\r
37 pickup pencircle scaled 0.000000bp;
\r
38 fill (8.316410,1.085940)--(13.816400,6.656250)--(1.222660,7.265630)
\r
40 pickup pencircle scaled 0.100000bp;
\r
41 draw (8.316410,1.085940)--(13.816400,6.656250)--(1.222660,7.265630)
\r
43 drawoptions (withcolor (1.000000,0.713700,0.756900));
\r
44 pickup pencircle scaled 0.800000bp;
\r
45 draw (8.316410,1.085940)--(1.222660,7.265630);
\r
46 draw (8.316410,1.085940)--(13.816400,6.656250);
\r
47 drawoptions (withcolor (0.345100,0.031400,0.094100));
\r
48 pickup pencircle scaled 0.000000bp;
\r
49 fill (8.316410,17.667999)--(13.816400,6.656250)--(15.410200,11.484400)
\r
51 pickup pencircle scaled 0.100000bp;
\r
52 draw (8.316410,17.667999)--(13.816400,6.656250)--(15.410200,11.484400)
\r
54 drawoptions (withcolor (1.000000,0.713700,0.756900));
\r
55 pickup pencircle scaled 0.800000bp;
\r
56 draw (15.410200,11.484400)--(8.316410,17.667999);
\r
57 draw (13.816400,6.656250)--(15.410200,11.484400);
\r
58 drawoptions (withcolor (0.843100,0.078400,0.231400));
\r
59 pickup pencircle scaled 0.000000bp;
\r
60 fill (8.316410,17.667999)--(1.222660,7.265630)--(13.816400,6.656250)
\r
62 pickup pencircle scaled 0.100000bp;
\r
63 draw (8.316410,17.667999)--(1.222660,7.265630)--(13.816400,6.656250)
\r
65 drawoptions (withcolor (1.000000,0.713700,0.756900));
\r
66 pickup pencircle scaled 0.800000bp;
\r
67 draw (1.222660,7.265630)--(13.816400,6.656250);
\r
68 draw (13.816400,6.656250)--(8.316410,17.667999);
\r
69 drawoptions (withcolor (0.164700,0.015700,0.043100));
\r
70 pickup pencircle scaled 0.000000bp;
\r
71 fill (8.316410,17.667999)--(2.816410,12.097700)--(1.222660,7.265630)
\r
73 pickup pencircle scaled 0.100000bp;
\r
74 draw (8.316410,17.667999)--(2.816410,12.097700)--(1.222660,7.265630)
\r
76 drawoptions (withcolor (1.000000,0.713700,0.756900));
\r
77 pickup pencircle scaled 0.800000bp;
\r
78 draw (2.816410,12.097700)--(1.222660,7.265630);
\r
79 draw (8.316410,17.667999)--(2.816410,12.097700);
\r
80 draw (1.222660,7.265630)--(8.316410,17.667999);
\r
82 pic:=currentpicture;
\r
83 currentpicture:=nullpicture;
\r
85 draw pic scaled(1.05);
\r
86 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);
\r
87 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);
\r
90 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,0))--(z1-(8.5pt,0))--cycle);
\r