dev/latex/sources_MetaPost/bc-cle.mp

   1 outputtemplate:="%j.mps";
   2 prologues := 1;
   3 beginfig(1);
   4 linecap := butt;
   5 linejoin := mitered;
   6 picture pic;
   7 fill (77.968803,17.304701)
   8     ..controls (69.660202,17.304701) and (61.351601,17.304701)..(53.046902,17.304701)
   9     ..controls (52.609402,18.070299) and (51.937500,18.562500)..(51.183601,18.562500)
  10     ..controls (50.429699,18.562500) and (49.757801,18.070299)..(49.320301,17.304701)
  11     ..controls (48.273399,17.304701) and (47.226601,17.304701)..(46.179699,17.304701)
  12     ..controls (35.859402,17.304701) and (25.531300,17.304701)..(15.207000,17.304701)
  13     ..controls (14.511700,22.261700) and (11.406300,26.000000)..(7.675780,26.000000)
  14     ..controls (3.437500,26.000000) and (0.000000,21.167999)..(0.000000,15.203100)
  15     --(5.589840,15.203100)
  16     ..controls (4.804690,15.824200) and (4.300780,16.781300)..(4.300780,17.859400)
  17     ..controls (4.300780,19.722700) and (5.812500,21.234400)..(7.675780,21.234400)
  18     ..controls (9.539060,21.234400) and (11.054700,19.722700)..(11.054700,17.859400)
  19     ..controls (11.054700,16.781300) and (10.546900,15.824200)..(9.761720,15.203100)
  20     ..controls (10.546900,14.585900) and (11.054700,13.628900)..(11.054700,12.550800)
  21     ..controls (11.054700,10.687500) and (9.539060,9.171880)..(7.675780,9.171880)
  22     ..controls (5.812500,9.171880) and (4.300780,10.687500)..(4.300780,12.550800)
  23     ..controls (4.300780,13.628900) and (4.804690,14.585900)..(5.589840,15.203100)
  24     --(0.000000,15.203100)
  25     ..controls (0.000000,9.242190) and (3.437500,4.406250)..(7.675780,4.406250)
  26     ..controls (11.406300,4.406250) and (14.511700,8.148440)..(15.207000,13.105500)
  27     ..controls (25.132799,13.105500) and (35.058601,13.105500)..(44.980499,13.105500)
  28     ..controls (46.429699,13.105500) and (47.875000,13.105500)..(49.320301,13.105500)
  29     ..controls (49.757801,12.335900) and (50.429699,11.843800)..(51.183601,11.843800)
  30     ..controls (51.937500,11.843800) and (52.609402,12.335900)..(53.046902,13.105500)
  31     ..controls (56.183601,13.105500) and (59.320301,13.105500)..(62.457001,13.105500)
  32     --(62.457001,8.488280)
  33     ..controls (63.914101,8.488280) and (65.093803,7.304690)..(65.093803,5.847660)
  34     ..controls (65.093803,4.390630) and (63.914101,3.207030)..(62.457001,3.207030)
  35     --(62.457001,0.570313)
  36     --(66.054703,0.570313)
  37     ..controls (66.054703,2.027340) and (67.234398,3.207030)..(68.695297,3.207030)
  38     ..controls (70.152298,3.207030) and (71.332001,2.027340)..(71.332001,0.570313)
  39     --(74.929703,0.570313)
  40     --(74.929703,3.207030)
  41     ..controls (73.472702,3.207030) and (72.292999,4.390630)..(72.292999,5.847660)
  42     ..controls (72.292999,7.304690) and (73.472702,8.488280)..(74.929703,8.488280)
  43     --(74.929703,13.105500)
  44     ..controls (75.933601,13.105500) and (76.937500,13.105500)..(77.941399,13.105500)
  45     ..controls (77.949203,13.105500) and (77.960899,13.105500)..(77.968803,13.105500)
  46     ..controls (80.675797,13.105500) and (80.675797,17.304701)..(77.968803,17.304701)
  47     --cycle withcolor(.2,.2,.2);
  48 pic:=currentpicture;
  49 currentpicture:=nullpicture;
  50 draw pic rotated(45);
  51 r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));
  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