dev/latex/sources_MetaPost/bc-dodecaedre.mp

   1 prologues:=1;\r
   2 outputtemplate:="%j.mps";\r
   3 beginfig(1);\r
   4 drawoptions (withcolor (0.592200,0.054900,0.160800));\r
   5 fill (11.582000,6.187500)--(10.789100,12.148400)--(14.050800,14.820300)\r
   6     --(16.859400,10.507800)--(15.332000,5.171880)--cycle;\r
   7 pickup pencircle scaled 0.100000bp;\r
   8 draw (11.582000,6.187500)--(10.789100,12.148400)--(14.050800,14.820300)\r
   9     --(16.859400,10.507800)--(15.332000,5.171880)--cycle;\r
  10 drawoptions (withcolor (0.435300,0.039200,0.117600));\r
  11 pickup pencircle scaled 0.000000bp;\r
  12 fill (11.582000,6.187500)--(15.332000,5.171880)--(12.316400,2.062500)\r
  13     --(6.703130,1.152340)--(6.250000,3.703130)--cycle;\r
  14 pickup pencircle scaled 0.100000bp;\r
  15 draw (11.582000,6.187500)--(15.332000,5.171880)--(12.316400,2.062500)\r
  16     --(6.703130,1.152340)--(6.250000,3.703130)--cycle;\r
  17 drawoptions (withcolor (0.847100,0.078400,0.231400));\r
  18 pickup pencircle scaled 0.000000bp;\r
  19 fill (11.582000,6.187500)--(6.250000,3.703130)--(2.164060,8.128910)\r
  20     --(4.968750,13.351600)--(10.789100,12.148400)--cycle;\r
  21 pickup pencircle scaled 0.100000bp;\r
  22 draw (11.582000,6.187500)--(6.250000,3.703130)--(2.164060,8.128910)\r
  23     --(4.968750,13.351600)--(10.789100,12.148400)--cycle;\r
  24 drawoptions (withcolor (0.545100,0.051000,0.149000));\r
  25 pickup pencircle scaled 0.000000bp;\r
  26 fill (10.789100,12.148400)--(4.968750,13.351600)--(4.632810,16.761700)\r
  27     --(10.246100,17.671900)--(14.050800,14.820300)--cycle;\r
  28 pickup pencircle scaled 0.100000bp;\r
  29 draw (10.789100,12.148400)--(4.968750,13.351600)--(4.632810,16.761700)\r
  30     --(10.246100,17.671900)--(14.050800,14.820300)--cycle;\r
  31 drawoptions (withcolor (0.278400,0.023500,0.074500));\r
  32 pickup pencircle scaled 0.000000bp;\r
  33 fill (2.898440,4.003910)--(0.093750,8.316410)--(2.164060,8.128910)\r
  34     --(6.250000,3.703130)--(6.703130,1.152340)--cycle;\r
  35 pickup pencircle scaled 0.100000bp;\r
  36 draw (2.898440,4.003910)--(0.093750,8.316410)--(2.164060,8.128910)\r
  37     --(6.250000,3.703130)--(6.703130,1.152340)--cycle;\r
  38 drawoptions (withcolor (0.352900,0.031400,0.098000));\r
  39 pickup pencircle scaled 0.000000bp;\r
  40 fill (4.632810,16.761700)--(4.968750,13.351600)--(2.164060,8.128910)\r
  41     --(0.093750,8.316410)--(1.621090,13.652300)--cycle;\r
  42 pickup pencircle scaled 0.100000bp;\r
  43 draw (4.632810,16.761700)--(4.968750,13.351600)--(2.164060,8.128910)\r
  44     --(0.093750,8.316410)--(1.621090,13.652300)--cycle;\r
  45 drawoptions (withcolor (1.000000,0.713700,0.756900));\r
  46 pickup pencircle scaled 0.800000bp;\r
  47 draw (0.093750,8.316410)--(2.164060,8.128910);\r
  48 draw (15.332000,5.171880)--(11.582000,6.187500);\r
  49 draw (4.968750,13.351600)--(10.789100,12.148400);\r
  50 draw (10.789100,12.148400)--(14.050800,14.820300);\r
  51 draw (6.250000,3.703130)--(11.582000,6.187500);\r
  52 draw (2.164060,8.128910)--(4.968750,13.351600);\r
  53 draw (11.582000,6.187500)--(10.789100,12.148400);\r
  54 draw (4.968750,13.351600)--(4.632810,16.761700);\r
  55 draw (6.250000,3.703130)--(2.164060,8.128910);\r
  56 draw (6.703130,1.152340)--(6.250000,3.703130);\r
  57 drawoptions (withcolor (0.278400,0.023500,0.074500));\r
  58 pickup pencircle scaled 0.000000bp;\r
  59 fill (10.703100,15.121100)--(14.789100,10.695300)--(16.859400,10.507800)\r
  60     --(14.050800,14.820300)--(10.246100,17.671900)--cycle;\r
  61 pickup pencircle scaled 0.100000bp;\r
  62 draw (10.703100,15.121100)--(14.789100,10.695300)--(16.859400,10.507800)\r
  63     --(14.050800,14.820300)--(10.246100,17.671900)--cycle;\r
  64 drawoptions (withcolor (1.000000,0.713700,0.756900));\r
  65 pickup pencircle scaled 0.800000bp;\r
  66 draw (14.050800,14.820300)--(16.859400,10.507800);\r
  67 draw (10.246100,17.671900)--(14.050800,14.820300);\r
  68 drawoptions (withcolor (0.352900,0.031400,0.098000));\r
  69 pickup pencircle scaled 0.000000bp;\r
  70 fill (12.316400,2.062500)--(15.332000,5.171880)--(16.859400,10.507800)\r
  71     --(14.789100,10.695300)--(11.980500,5.472660)--cycle;\r
  72 pickup pencircle scaled 0.100000bp;\r
  73 draw (12.316400,2.062500)--(15.332000,5.171880)--(16.859400,10.507800)\r
  74     --(14.789100,10.695300)--(11.980500,5.472660)--cycle;\r
  75 drawoptions (withcolor (1.000000,0.713700,0.756900));\r
  76 pickup pencircle scaled 0.800000bp;\r
  77 draw (15.332000,5.171880)--(12.316400,2.062500);\r
  78 draw (16.859400,10.507800)--(15.332000,5.171880);\r
  79 draw (16.859400,10.507800)--(14.789100,10.695300);\r
  80 drawoptions (withcolor (0.435300,0.039200,0.117600));\r
  81 pickup pencircle scaled 0.000000bp;\r
  82 fill (10.703100,15.121100)--(10.246100,17.671900)--(4.632810,16.761700)\r
  83     --(1.621090,13.652300)--(5.371090,12.636700)--cycle;\r
  84 pickup pencircle scaled 0.100000bp;\r
  85 draw (10.703100,15.121100)--(10.246100,17.671900)--(4.632810,16.761700)\r
  86     --(1.621090,13.652300)--(5.371090,12.636700)--cycle;\r
  87 drawoptions (withcolor (1.000000,0.713700,0.756900));\r
  88 pickup pencircle scaled 0.800000bp;\r
  89 draw (10.703100,15.121100)--(10.246100,17.671900);\r
  90 draw (4.632810,16.761700)--(10.246100,17.671900);\r
  91 draw (4.632810,16.761700)--(1.621090,13.652300);\r
  92 drawoptions (withcolor (0.592200,0.054900,0.160800));\r
  93 pickup pencircle scaled 0.000000bp;\r
  94 fill (5.371090,12.636700)--(1.621090,13.652300)--(0.093750,8.316410)\r
  95     --(2.898440,4.003910)--(6.160160,6.675780)--cycle;\r
  96 pickup pencircle scaled 0.100000bp;\r
  97 draw (5.371090,12.636700)--(1.621090,13.652300)--(0.093750,8.316410)\r
  98     --(2.898440,4.003910)--(6.160160,6.675780)--cycle;\r
  99 drawoptions (withcolor (1.000000,0.713700,0.756900));\r
 100 pickup pencircle scaled 0.800000bp;\r
 101 draw (0.093750,8.316410)--(2.898440,4.003910);\r
 102 draw (1.621090,13.652300)--(0.093750,8.316410);\r
 103 draw (5.371090,12.636700)--(1.621090,13.652300);\r
 104 drawoptions (withcolor (0.545100,0.051000,0.149000));\r
 105 pickup pencircle scaled 0.000000bp;\r
 106 fill (2.898440,4.003910)--(6.703130,1.152340)--(12.316400,2.062500)\r
 107     --(11.980500,5.472660)--(6.160160,6.675780)--cycle;\r
 108 pickup pencircle scaled 0.100000bp;\r
 109 draw (2.898440,4.003910)--(6.703130,1.152340)--(12.316400,2.062500)\r
 110     --(11.980500,5.472660)--(6.160160,6.675780)--cycle;\r
 111 drawoptions (withcolor (1.000000,0.713700,0.756900));\r
 112 pickup pencircle scaled 0.800000bp;\r
 113 draw (6.160160,6.675780)--(2.898440,4.003910);\r
 114 draw (12.316400,2.062500)--(6.703130,1.152340);\r
 115 draw (12.316400,2.062500)--(11.980500,5.472660);\r
 116 draw (2.898440,4.003910)--(6.703130,1.152340);\r
 117 drawoptions (withcolor (0.847100,0.078400,0.231400));\r
 118 pickup pencircle scaled 0.000000bp;\r
 119 fill (11.980500,5.472660)--(14.789100,10.695300)--(10.703100,15.121100)\r
 120     --(5.371090,12.636700)--(6.160160,6.675780)--cycle;\r
 121 pickup pencircle scaled 0.100000bp;\r
 122 draw (11.980500,5.472660)--(14.789100,10.695300)--(10.703100,15.121100)\r
 123     --(5.371090,12.636700)--(6.160160,6.675780)--cycle;\r
 124 drawoptions (withcolor (1.000000,0.713700,0.756900));\r
 125 pickup pencircle scaled 0.800000bp;\r
 126 draw (6.160160,6.675780)--(11.980500,5.472660);\r
 127 draw (14.789100,10.695300)--(10.703100,15.121100);\r
 128 draw (10.703100,15.121100)--(5.371090,12.636700);\r
 129 draw (11.980500,5.472660)--(14.789100,10.695300);\r
 130 draw (5.371090,12.636700)--(6.160160,6.675780);\r
 131 r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));\r
 132 picture pic;\r
 133 pic:=currentpicture;\r
 134 currentpicture:=nullpicture;\r
 135 drawoptions();\r
 136 draw pic scaled(r);\r
 137 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);\r
 138 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);\r
 139 draw (z0+(10.5,2));\r
 140 draw (z1-(10.5,2));\r
 141 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,0))--(z1-(8.5pt,0))--cycle);\r
 142 endfig;\r
 143 end\r