dev/latex/sources_MetaPost/bc-feutricolore.mp

   1 outputtemplate:="%j.mps";
   2 prologues := 1;
   3 beginfig(1);
   4 path p[];
   5 linecap := butt;
   6 linejoin := mitered;
   7 fill (40.746101,48.289101)
   8     --(43.507801,48.289101)
   9     --(43.507801,56.335899)
  10     ..controls (43.507801,56.335899) and (57.378899,68.437500)..(55.039101,72.914101)
  11     --(43.507801,72.914101)
  12     --(43.507801,75.675797)
  13     ..controls (43.507801,78.062500) and (41.570301,80.000000)..(39.183601,80.000000)
  14     --(16.121099,80.000000)
  15     ..controls (13.734400,80.000000) and (11.796900,78.062500)..(11.796900,75.675797)
  16     --(11.796900,72.914101)
  17     --(0.265625,72.914101)
  18     ..controls (-2.074220,68.437500) and (11.796900,56.335899)..(11.796900,56.335899)
  19     --(11.796900,48.289101)
  20     --(0.265625,48.289101)
  21     ..controls (-2.074220,43.812500) and (11.796900,31.710899)..(11.796900,31.710899)
  22     --(11.796900,23.664101)
  23     --(0.265625,23.664101)
  24     ..controls (-2.074220,19.187500) and (11.796900,7.085940)..(11.796900,7.085940)
  25     --(11.796900,4.324220)
  26     ..controls (11.796900,1.937500) and (13.734400,0.000000)..(16.121099,0.000000)
  27     --(39.183601,0.000000)
  28     ..controls (41.570301,0.000000) and (43.507801,1.937500)..(43.507801,4.324220)
  29     --(43.507801,7.085940)
  30     ..controls (43.507801,7.085940) and (57.378899,19.187500)..(55.039101,23.664101)
  31     --(43.507801,23.664101)
  32     --(43.507801,31.710899)
  33     ..controls (43.507801,31.710899) and (57.378899,43.812500)..(55.039101,48.289101)
  34     --(43.507801,48.289101)
  35     --(40.746101,48.289101)
  36     --(40.746101,15.382800)
  37     ..controls (40.746101,8.152340) and (34.886700,2.289060)..(27.652300,2.289060)
  38     ..controls (20.421900,2.289060) and (14.558600,8.152340)..(14.558600,15.382800)
  39     --(14.558600,64.617203)
  40     ..controls (14.558600,71.847702) and (20.421900,77.710899)..(27.652300,77.710899)
  41     ..controls (34.886700,77.710899) and (40.746101,71.847702)..(40.746101,64.617203)
  42     --cycle;
  43
  44 fill fullcircle scaled(17.777302) shifted(27.6523,64.277298) withcolor(248/256,25/256,13/256);
  45 draw fullcircle scaled(17.777302) shifted(27.6523,64.277298);
  46 fill fullcircle scaled(17.777302) shifted(27.6523,39.953098) withcolor(235/256,243/256,13/256);
  47 draw fullcircle scaled(17.777302) shifted(27.6523,39.953098);
  48 fill fullcircle scaled(17.777302) shifted(27.6523,15.628898) withcolor(82/256,174/256,39/256);
  49 draw fullcircle scaled(17.777302) shifted(27.6523,15.628898);
  50
  51 r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));
  52 picture pic;
  53 pic:=currentpicture;
  54 currentpicture:=nullpicture;
  55 drawoptions();
  56 draw pic scaled(r);
  57 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);
  58 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);
  59 draw (z0+(10.5,2));
  60 draw (z1-(10.5,2));
  61 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,0))--(z1-(8.5pt,0))--cycle);
  62 endfig;
  63 end