dev/latex/sources_MetaPost/bc-homme.mp

   1 outputtemplate:="%j.mps";\r
   2 prologues := 1;\r
   3 beginfig(1);\r
   4 linecap := butt;\r
   5 linejoin := mitered;\r
   6 fill (63.867199,57.281300)--(70.945297,64.363297)--(77.445297,57.863300)\r
   7     --(80.000000,80.000000)--(57.863300,77.445297)--(64.363297,70.945297)\r
   8     --(57.281300,63.867199)\r
   9     --cycle;\r
  10 pickup pencircle scaled(9.3);\r
  11 draw fullcircle scaled(61.95) shifted(35.60745,35.60745);\r
  12 \r
  13 r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));\r
  14 picture pic;\r
  15 pic:=currentpicture;\r
  16 currentpicture:=nullpicture;\r
  17 drawoptions();\r
  18 draw pic scaled(r);\r
  19 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);\r
  20 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);\r
  21 draw (z0+(10.5,2));\r
  22 draw (z1-(10.5,2));\r
  23 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,0))--(z1-(8.5pt,0))--cycle);\r
  24 endfig;\r
  25 end\r