dev/latex/sources_MetaPost/bc-eclaircie.mp

   1 prologues:=1;
   2 outputtemplate:="%j.mps";
   3 beginfig(1);
   4 drawoptions (withcolor (1.000000,1.000000,0.000000));
   5 linecap := butt;
   6 linejoin := mitered;
   7 fill (9.199220,9.339840)..controls (9.199220,11.164100) and (7.734380,12.628900)..(5.910160,12.628900)
   8     ..controls (4.085940,12.628900) and (2.621090,11.164100)..(2.621090,9.339840)
   9     ..controls (2.621090,7.511720) and (4.085940,6.050780)..(5.910160,6.050780)
  10     ..controls (7.734380,6.050780) and (9.199220,7.511720)..(9.199220,9.339840)
  11     --cycle;
  12 drawoptions (withcolor (1.000000,0.501961,0.250980));
  13 pickup pencircle scaled 0.199250bp;
  14 linejoin := rounded;
  15 draw (9.199220,9.339840)..controls (9.199220,11.164100) and (7.734380,12.628900)..(5.910160,12.628900)
  16     ..controls (4.085940,12.628900) and (2.621090,11.164100)..(2.621090,9.339840)
  17     ..controls (2.621090,7.511720) and (4.085940,6.050780)..(5.910160,6.050780)
  18     ..controls (7.734380,6.050780) and (9.199220,7.511720)..(9.199220,9.339840)
  19     --cycle;
  20 draw (5.910160,9.339840);
  21 draw (9.257810,11.269500)--(10.593800,12.043000);
  22 draw (7.843750,12.683600)--(8.613280,14.023400);
  23 draw (5.910160,13.203100)--(5.910160,14.746100);
  24 draw (3.980470,12.683600)--(3.207030,14.023400);
  25 draw (2.566410,11.269500)--(1.226560,12.043000);
  26 draw (2.046880,9.339840)--(0.503906,9.339840);
  27 draw (2.566410,7.406250)--(1.226560,6.636720);
  28 drawoptions (withcolor (0.854902,0.854902,0.854902));
  29 pickup pencircle scaled 0.000000bp;
  30 fill (3.316410,4.925780)..controls (3.699220,3.902340) and (15.824200,4.156250)..(16.601601,4.925780)
  31     ..controls (19.074200,7.394530) and (15.902300,10.476600)..(13.507800,7.929690)
  32     ..controls (12.671900,12.179700) and (7.644530,12.539100)..(6.925780,8.890630)
  33     ..controls (3.574220,9.007810) and (2.703130,6.562500)..(3.316410,4.925780)
  34     --cycle;
  35 drawoptions (withcolor (0.725490,0.725490,0.725490));
  36 pickup pencircle scaled 0.797010bp;
  37 draw (3.316410,4.925780)..controls (3.699220,3.902340) and (15.824200,4.156250)..(16.601601,4.925780)
  38     ..controls (19.074200,7.394530) and (15.902300,10.476600)..(13.507800,7.929690)
  39     ..controls (12.671900,12.179700) and (7.644530,12.539100)..(6.925780,8.890630)
  40     ..controls (3.574220,9.007810) and (2.703130,6.562500)..(3.316410,4.925780)
  41     --cycle;
  42 r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));
  43 picture pic;
  44 pic:=currentpicture;
  45 currentpicture:=nullpicture;
  46 drawoptions();
  47 draw pic scaled(r);
  48 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);
  49 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);
  50 draw (z0+(10.5,2));
  51 draw (z1-(10.5,4));
  52 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,-1pt))--(z1-(8.5pt,1pt))--cycle);
  53 endfig;
  54 end