dev/latex/sources_MetaPost/bc-feuvert.mp

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