dev/latex/sources_MetaPost/bc-etoile.mp

   1 prologues:=1;
   2 outputtemplate:="%j.mps";
   3 beginfig(1);
   4 drawoptions (withcolor (1.000000,0.831373,0.000000));
   5 linecap := butt;
   6 linejoin := mitered;
   7 fill (9.964840,3.820310)--(6.769530,5.523440)--(3.554690,3.859380)
   8     --(4.187500,7.421880)--(1.609370,9.964840)--(5.195310,10.464800)
   9     --(6.816410,13.699200)--(8.402340,10.445300)--(11.980500,9.906250)
  10     --(9.371090,7.394530)--cycle;
  11 drawoptions (withcolor (0.000000,0.000000,0.000000));
  12 pickup pencircle scaled 0.400000bp;
  13 linecap := rounded;
  14 linejoin := rounded;
  15 draw (9.964840,3.820310)--(6.769530,5.523440)--(3.554690,3.859380)
  16     --(4.187500,7.421880)--(1.609370,9.964840)--(5.195310,10.464800)
  17     --(6.816410,13.699200)--(8.402340,10.445300)--(11.980500,9.906250)
  18     --(9.371090,7.394530)--cycle;
  19 r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));
  20 picture pic;
  21 pic:=currentpicture;
  22 currentpicture:=nullpicture;
  23 drawoptions();
  24 draw pic scaled(1.3);
  25 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);
  26 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);
  27 draw (z0+(10.5,2));
  28 draw (z1-(10.5,3));
  29 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,-1pt))--(z1-(8.5pt,1pt))--cycle);
  30 endfig;
  31 end