dev/latex/sources_MetaPost/bc-clesol.mp

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