dev/latex/sources_MetaPost/bc-icosaedre.mp

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