dev/latex/sources_MetaPost/bc-icosaedre.mp

   1 prologues:=1;
   2 outputtemplate:="%j.mps";
   3 beginfig(1);
   4 drawoptions (withcolor (0.690200,0.062700,0.188200));
   5 fill (11.707000,6.058590)--(9.917970,15.089800)--(16.882799,11.257800)
   6     --cycle;
   7 pickup pencircle scaled 0.100000bp;
   8 draw (11.707000,6.058590)--(9.917970,15.089800)--(16.882799,11.257800)
   9     --cycle;
  10 drawoptions (withcolor (0.419600,0.039200,0.113700));
  11 pickup pencircle scaled 0.000000bp;
  12 fill (11.707000,6.058590)--(16.882799,11.257800)--(14.222700,2.804690)
  13     --cycle;
  14 pickup pencircle scaled 0.100000bp;
  15 draw (11.707000,6.058590)--(16.882799,11.257800)--(14.222700,2.804690)
  16     --cycle;
  17 drawoptions (withcolor (0.435300,0.039200,0.117600));
  18 pickup pencircle scaled 0.000000bp;
  19 fill (11.707000,6.058590)--(14.222700,2.804690)--(5.617190,1.410160)
  20     --cycle;
  21 pickup pencircle scaled 0.100000bp;
  22 draw (11.707000,6.058590)--(14.222700,2.804690)--(5.617190,1.410160)
  23     --cycle;
  24 drawoptions (withcolor (0.713700,0.066700,0.196100));
  25 pickup pencircle scaled 0.000000bp;
  26 fill (11.707000,6.058590)--(5.617190,1.410160)--(2.957030,9.003910)
  27     --cycle;
  28 pickup pencircle scaled 0.100000bp;
  29 draw (11.707000,6.058590)--(5.617190,1.410160)--(2.957030,9.003910)
  30     --cycle;
  31 drawoptions (withcolor (0.858800,0.078400,0.235300));
  32 pickup pencircle scaled 0.000000bp;
  33 fill (11.707000,6.058590)--(2.957030,9.003910)--(9.917970,15.089800)
  34     --cycle;
  35 pickup pencircle scaled 0.100000bp;
  36 draw (11.707000,6.058590)--(2.957030,9.003910)--(9.917970,15.089800)
  37     --cycle;
  38 drawoptions (withcolor (0.368600,0.035300,0.102000));
  39 pickup pencircle scaled 0.000000bp;
  40 fill (0.066406,7.570310)--(2.957030,9.003910)--(5.617190,1.410160)
  41     --cycle;
  42 pickup pencircle scaled 0.100000bp;
  43 draw (0.066406,7.570310)--(2.957030,9.003910)--(5.617190,1.410160)
  44     --cycle;
  45 drawoptions (withcolor (0.309800,0.027500,0.086300));
  46 pickup pencircle scaled 0.000000bp;
  47 fill (2.957030,9.003910)--(0.066406,7.570310)--(2.726560,16.027300)
  48     --cycle;
  49 pickup pencircle scaled 0.100000bp;
  50 draw (2.957030,9.003910)--(0.066406,7.570310)--(2.726560,16.027300)
  51     --cycle;
  52 drawoptions (withcolor (0.631400,0.058800,0.172500));
  53 pickup pencircle scaled 0.000000bp;
  54 fill (2.957030,9.003910)--(2.726560,16.027300)--(9.917970,15.089800)
  55     --cycle;
  56 pickup pencircle scaled 0.100000bp;
  57 draw (2.957030,9.003910)--(2.726560,16.027300)--(9.917970,15.089800)
  58     --cycle;
  59 drawoptions (withcolor (0.278400,0.023500,0.074500));
  60 pickup pencircle scaled 0.000000bp;
  61 fill (9.917970,15.089800)--(2.726560,16.027300)--(11.332000,17.417999)
  62     --cycle;
  63 pickup pencircle scaled 0.100000bp;
  64 draw (9.917970,15.089800)--(2.726560,16.027300)--(11.332000,17.417999)
  65     --cycle;
  66 drawoptions (withcolor (0.321600,0.027500,0.086300));
  67 pickup pencircle scaled 0.000000bp;
  68 fill (9.917970,15.089800)--(11.332000,17.417999)--(16.882799,11.257800)
  69     --cycle;
  70 pickup pencircle scaled 0.100000bp;
  71 draw (9.917970,15.089800)--(11.332000,17.417999)--(16.882799,11.257800)
  72     --cycle;
  73 drawoptions (withcolor (1.000000,0.713700,0.756900));
  74 pickup pencircle scaled 0.800000bp;
  75 draw (0.066406,7.570310)--(2.957030,9.003910);
  76 draw (14.222700,2.804690)--(11.707000,6.058590);
  77 draw (11.707000,6.058590)--(9.917970,15.089800);
  78 draw (5.617190,1.410160)--(11.707000,6.058590);
  79 draw (5.617190,1.410160)--(2.957030,9.003910);
  80 draw (9.917970,15.089800)--(16.882799,11.257800);
  81 draw (11.332000,17.417999)--(9.917970,15.089800);
  82 draw (2.726560,16.027300)--(2.957030,9.003910);
  83 draw (2.957030,9.003910)--(11.707000,6.058590);
  84 draw (2.957030,9.003910)--(9.917970,15.089800);
  85 draw (2.726560,16.027300)--(9.917970,15.089800);
  86 draw (16.882799,11.257800)--(11.707000,6.058590);
  87 drawoptions (withcolor (0.858800,0.078400,0.235300));
  88 pickup pencircle scaled 0.000000bp;
  89 fill (5.242190,12.769500)--(7.027340,3.738280)--(13.992200,9.824220)
  90     --cycle;
  91 pickup pencircle scaled 0.100000bp;
  92 draw (5.242190,12.769500)--(7.027340,3.738280)--(13.992200,9.824220)
  93     --cycle;
  94 drawoptions (withcolor (0.690200,0.062700,0.188200));
  95 pickup pencircle scaled 0.000000bp;
  96 fill (5.242190,12.769500)--(0.066406,7.570310)--(7.027340,3.738280)
  97     --cycle;
  98 pickup pencircle scaled 0.100000bp;
  99 draw (5.242190,12.769500)--(0.066406,7.570310)--(7.027340,3.738280)
 100     --cycle;
 101 drawoptions (withcolor (1.000000,0.713700,0.756900));
 102 pickup pencircle scaled 0.800000bp;
 103 draw (7.027340,3.738280)--(5.242190,12.769500);
 104 drawoptions (withcolor (0.713700,0.066700,0.196100));
 105 pickup pencircle scaled 0.000000bp;
 106 fill (5.242190,12.769500)--(13.992200,9.824220)--(11.332000,17.417999)
 107     --cycle;
 108 pickup pencircle scaled 0.100000bp;
 109 draw (5.242190,12.769500)--(13.992200,9.824220)--(11.332000,17.417999)
 110     --cycle;
 111 drawoptions (withcolor (1.000000,0.713700,0.756900));
 112 pickup pencircle scaled 0.800000bp;
 113 draw (5.242190,12.769500)--(13.992200,9.824220);
 114 drawoptions (withcolor (0.419600,0.039200,0.113700));
 115 pickup pencircle scaled 0.000000bp;
 116 fill (5.242190,12.769500)--(2.726560,16.027300)--(0.066406,7.570310)
 117     --cycle;
 118 pickup pencircle scaled 0.100000bp;
 119 draw (5.242190,12.769500)--(2.726560,16.027300)--(0.066406,7.570310)
 120     --cycle;
 121 drawoptions (withcolor (1.000000,0.713700,0.756900));
 122 pickup pencircle scaled 0.800000bp;
 123 draw (0.066406,7.570310)--(2.726560,16.027300);
 124 draw (0.066406,7.570310)--(5.242190,12.769500);
 125 drawoptions (withcolor (0.435300,0.039200,0.117600));
 126 pickup pencircle scaled 0.000000bp;
 127 fill (5.242190,12.769500)--(11.332000,17.417999)--(2.726560,16.027300)
 128     --cycle;
 129 pickup pencircle scaled 0.100000bp;
 130 draw (5.242190,12.769500)--(11.332000,17.417999)--(2.726560,16.027300)
 131     --cycle;
 132 drawoptions (withcolor (1.000000,0.713700,0.756900));
 133 pickup pencircle scaled 0.800000bp;
 134 draw (2.726560,16.027300)--(11.332000,17.417999);
 135 draw (2.726560,16.027300)--(5.242190,12.769500);
 136 draw (5.242190,12.769500)--(11.332000,17.417999);
 137 drawoptions (withcolor (0.631400,0.058800,0.172500));
 138 pickup pencircle scaled 0.000000bp;
 139 fill (14.222700,2.804690)--(13.992200,9.824220)--(7.027340,3.738280)
 140     --cycle;
 141 pickup pencircle scaled 0.100000bp;
 142 draw (14.222700,2.804690)--(13.992200,9.824220)--(7.027340,3.738280)
 143     --cycle;
 144 drawoptions (withcolor (1.000000,0.713700,0.756900));
 145 pickup pencircle scaled 0.800000bp;
 146 draw (13.992200,9.824220)--(7.027340,3.738280);
 147 drawoptions (withcolor (0.309800,0.027500,0.086300));
 148 pickup pencircle scaled 0.000000bp;
 149 fill (16.882799,11.257800)--(13.992200,9.824220)--(14.222700,2.804690)
 150     --cycle;
 151 pickup pencircle scaled 0.100000bp;
 152 draw (16.882799,11.257800)--(13.992200,9.824220)--(14.222700,2.804690)
 153     --cycle;
 154 drawoptions (withcolor (1.000000,0.713700,0.756900));
 155 pickup pencircle scaled 0.800000bp;
 156 draw (16.882799,11.257800)--(14.222700,2.804690);
 157 draw (13.992200,9.824220)--(14.222700,2.804690);
 158 drawoptions (withcolor (0.368600,0.035300,0.102000));
 159 pickup pencircle scaled 0.000000bp;
 160 fill (16.882799,11.257800)--(11.332000,17.417999)--(13.992200,9.824220)
 161     --cycle;
 162 pickup pencircle scaled 0.100000bp;
 163 draw (16.882799,11.257800)--(11.332000,17.417999)--(13.992200,9.824220)
 164     --cycle;
 165 drawoptions (withcolor (1.000000,0.713700,0.756900));
 166 pickup pencircle scaled 0.800000bp;
 167 draw (11.332000,17.417999)--(16.882799,11.257800);
 168 draw (13.992200,9.824220)--(16.882799,11.257800);
 169 draw (11.332000,17.417999)--(13.992200,9.824220);
 170 drawoptions (withcolor (0.321600,0.027500,0.086300));
 171 pickup pencircle scaled 0.000000bp;
 172 fill (5.617190,1.410160)--(7.027340,3.738280)--(0.066406,7.570310)
 173     --cycle;
 174 pickup pencircle scaled 0.100000bp;
 175 draw (5.617190,1.410160)--(7.027340,3.738280)--(0.066406,7.570310)
 176     --cycle;
 177 drawoptions (withcolor (1.000000,0.713700,0.756900));
 178 pickup pencircle scaled 0.800000bp;
 179 draw (7.027340,3.738280)--(0.066406,7.570310);
 180 draw (0.066406,7.570310)--(5.617190,1.410160);
 181 drawoptions (withcolor (0.278400,0.023500,0.074500));
 182 pickup pencircle scaled 0.000000bp;
 183 fill (14.222700,2.804690)--(7.027340,3.738280)--(5.617190,1.410160)
 184     --cycle;
 185 pickup pencircle scaled 0.100000bp;
 186 draw (14.222700,2.804690)--(7.027340,3.738280)--(5.617190,1.410160)
 187     --cycle;
 188 drawoptions (withcolor (1.000000,0.713700,0.756900));
 189 pickup pencircle scaled 0.800000bp;
 190 draw (14.222700,2.804690)--(5.617190,1.410160);
 191 draw (7.027340,3.738280)--(5.617190,1.410160);
 192 draw (14.222700,2.804690)--(7.027340,3.738280);
 193 picture pic;
 194 pic:=currentpicture;
 195 currentpicture:=nullpicture;
 196 drawoptions();
 197 draw pic scaled(0.964);
 198 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);
 199 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);
 200 draw (z0+(10.5,2));
 201 draw (z1-(10.5,2));
 202 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,0))--(z1-(8.5pt,0))--cycle);
 203 endfig;
 204 end