dev/latex/sources_MetaPost/bc-dodecaedre.mp

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