dev/latex/sources_MetaPost/bc-clesol.mp

   1 outputtemplate:="%j.mps";\r
   2 prologues := 1;\r
   3 beginfig(1);\r
   4 linecap := butt;\r
   5 linejoin := mitered;\r
   6 fill (29.707001,28.515600)..controls (29.707001,36.953098) and (22.675800,42.539101)..(15.218800,40.441399)\r
   7     ..(13.093800,39.574200)\r
   8     ..controls (8.351560,36.871101) and (6.000000,29.875000)..(9.410160,25.300800)\r
   9     --(10.878900,25.851601)\r
  10     ..controls (9.609380,30.386700) and (11.359400,34.167999)..(14.382800,35.753899)\r
  11     ..(16.546900,36.472698)\r
  12     ..controls (22.109400,37.406300) and (25.574200,33.035198)..(25.574200,27.503901)\r
  13     ..controls (25.574200,24.250000) and (23.714800,21.023399)..(21.164101,18.839800)\r
  14     ..(18.996099,17.332001)\r
  15     ..controls (17.593800,16.562500) and (16.093800,16.117201)..(14.644500,16.117201)\r
  16     ..controls (8.093750,16.117201) and (2.890630,21.261700)..(2.890630,27.871099)\r
  17     ..controls (2.890630,34.144501) and (6.367190,38.625000)..(11.324200,44.382801)\r
  18     ..(13.050800,46.539101)\r
  19     ..controls (16.101601,50.574200) and (20.332001,57.312500)..(21.164101,62.863300)\r
  20     ..controls (22.175800,69.566399) and (19.363300,76.050797)..(15.414100,80.000000)\r
  21     ..controls (6.199220,71.980499) and (5.039060,59.789101)..(9.343750,49.218800)\r
  22     ..(11.324200,44.382801)\r
  23     ..controls (11.925800,42.828098) and (12.519500,41.214802)..(13.093800,39.574200)\r
  24     ..(14.382800,35.753899)\r
  25     ..controls (16.714800,28.585899) and (18.535200,21.468800)..(18.996099,17.332001)\r
  26     ..(19.199200,14.425800)\r
  27     ..controls (19.515600,6.558590) and (17.562500,3.914060)..(16.113300,3.578130)\r
  28     ..controls (15.527300,3.445310) and (15.421900,3.785160)..(15.656300,4.042970)\r
  29     ..controls (17.398399,5.933590) and (16.042999,10.390600)..(12.355500,10.390600)\r
  30     ..controls (9.464840,10.390600) and (7.855470,7.921880)..(7.890630,5.394530)\r
  31     ..controls (7.921880,2.734380) and (9.777340,0.000000)..(13.878900,0.000000)\r
  32     ..controls (18.152300,0.000000) and (22.402300,3.960940)..(21.558599,15.355500)\r
  33     ..(21.164101,18.839800)\r
  34     ..controls (20.367201,23.945299) and (18.511700,30.441401)..(16.546900,36.472698)\r
  35     ..(15.218800,40.441399)\r
  36     ..controls (14.460900,42.640598) and (13.722700,44.707001)..(13.050800,46.539101)\r
  37     ..(11.269500,51.710899)\r
  38     ..controls (10.347700,55.269501) and (10.363300,58.898399)..(11.246100,63.687500)\r
  39     ..controls (12.168000,68.644501) and (14.371100,71.843803)..(16.757799,74.781303)\r
  40     ..controls (18.710899,71.808601) and (19.242201,66.527298)..(17.769501,62.675800)\r
  41     ..controls (16.277300,58.781300) and (14.339800,55.753899)..(11.269500,51.710899)\r
  42     ..(9.343750,49.218800)\r
  43     ..controls (2.816410,40.828098) and (0.121094,35.414101)..(0.003906,28.964800)\r
  44     ..controls (-0.144531,21.128901) and (5.625000,13.789100)..(14.644500,13.789100)\r
  45     ..controls (16.300800,13.789100) and (17.816401,14.019500)..(19.199200,14.425800)\r
  46     ..(21.558599,15.355500)\r
  47     ..controls (26.976601,18.062500) and (29.707001,23.792999)..(29.707001,28.515600)\r
  48     --cycle;\r
  49 \r
  50 r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));\r
  51 picture pic;\r
  52 pic:=currentpicture;\r
  53 currentpicture:=nullpicture;\r
  54 drawoptions();\r
  55 draw pic scaled(r);\r
  56 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);\r
  57 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);\r
  58 draw (z0+(10.5,2));\r
  59 draw (z1-(10.5,2));\r
  60 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,0))--(z1-(8.5pt,0))--cycle);\r
  61 endfig;\r
  62 end\r