dev/latex/sources_MetaPost/bc-book.mp

   1 prologues:=1;
   2 outputtemplate:="%j.mps";
   3 beginfig(1);
   4 drawoptions (withcolor (1.000000,0.752900,0.796100));
   5 linecap := butt;
   6 fill (0.726563,17.027300)..controls (2.683590,19.082001) and (7.953130,21.128901)..(9.214840,21.039101)
   7     ..controls (9.214840,19.144501) and (11.675800,17.941401)..(13.789100,17.972700)
   8     ..controls (9.183590,13.867200) and (4.796880,13.582000)..(0.851563,15.605500)
   9     --cycle;
  10 drawoptions (withcolor (0.000000,0.000000,0.000000));
  11 pickup pencircle scaled 0.600000bp;
  12 draw (0.726563,17.027300)..controls (2.683590,19.082001) and (7.953130,21.128901)..(9.214840,21.039101)
  13     ..controls (9.214840,19.144501) and (11.675800,17.941401)..(13.789100,17.972700)
  14     ..controls (9.183590,13.867200) and (4.796880,13.582000)..(0.851563,15.605500);
  15 drawoptions (withcolor (1.000000,1.000000,0.000000));
  16 pickup pencircle scaled 0.000000bp;
  17 fill (0.726563,17.027300)..controls (1.292970,16.238300) and (2.714840,15.605500)..(4.164060,15.699200)
  18     ..controls (5.933590,16.363300) and (11.140600,17.941401)..(13.789100,17.972700)
  19     ..controls (13.410200,14.375000) and (14.293000,7.992190)..(15.621100,5.750000)
  20     ..controls (14.293000,4.515630) and (7.132810,1.925780)..(5.710940,2.085940)
  21     ..controls (4.417970,1.957030) and (2.652340,2.621090)..(2.113280,3.632810)
  22     ..controls (0.945313,7.738280) and (0.125000,14.625000)..(0.726563,17.027300)
  23     --cycle;
  24 drawoptions (withcolor (0.000000,0.000000,0.000000));
  25 pickup pencircle scaled 0.600000bp;
  26 draw (0.726563,17.027300)..controls (1.292970,16.238300) and (2.714840,15.605500)..(4.164060,15.699200)
  27     ..controls (5.933590,16.363300) and (11.140600,17.941401)..(13.789100,17.972700)
  28     ..controls (13.410200,14.375000) and (14.293000,7.992190)..(15.621100,5.750000)
  29     ..controls (14.293000,4.515630) and (7.132810,1.925780)..(5.710940,2.085940)
  30     ..controls (4.417970,1.957030) and (2.652340,2.621090)..(2.113280,3.632810)
  31     ..controls (0.945313,7.738280) and (0.125000,14.625000)..(0.726563,17.027300)
  32     --cycle;
  33 draw (4.164060,15.699200)..controls (3.914060,11.656300) and (4.734380,5.750000)..(5.710940,2.085940);
  34 pickup pencircle scaled 0.400000bp;
  35 draw (13.179700,8.234380)..controls (13.718800,6.257810) and (10.039100,4.820310)..(8.769530,6.824220);
  36 drawoptions (withcolor (1.000000,1.000000,0.000000));
  37 pickup pencircle scaled 0.000000bp;
  38 fill (9.632810,11.320300)..controls (13.171900,11.980500) and (13.929700,9.613280)..(10.265600,8.730470)
  39     --cycle;
  40 drawoptions (withcolor (0.000000,0.000000,0.000000));
  41 pickup pencircle scaled 0.400000bp;
  42 draw (9.632810,11.320300)..controls (13.171900,11.980500) and (13.929700,9.613280)..(10.265600,8.730470);
  43 pickup pencircle scaled 0.000000bp;
  44 fill (11.421900,15.699200)..controls (11.675800,15.257800) and (11.675800,14.566400)..(11.582000,14.183600)
  45     ..controls (11.488300,13.800800) and (11.296900,13.722700)..(11.109400,14.058600)
  46     ..controls (10.918000,14.390600) and (10.726600,15.136700)..(10.793000,15.574200)
  47     ..controls (10.855500,16.011700) and (11.171900,16.140600)..(11.421900,15.699200)
  48     --cycle;
  49 pickup pencircle scaled 0.400000bp;
  50 draw (11.421900,15.699200)..controls (11.675800,15.257800) and (11.675800,14.566400)..(11.582000,14.183600)
  51     ..controls (11.488300,13.800800) and (11.296900,13.722700)..(11.109400,14.058600)
  52     ..controls (10.918000,14.390600) and (10.726600,15.136700)..(10.793000,15.574200)
  53     ..controls (10.855500,16.011700) and (11.171900,16.140600)..(11.421900,15.699200);
  54 pickup pencircle scaled 0.000000bp;
  55 fill (7.386720,14.679700)..controls (7.964840,14.738300) and (8.019530,13.593800)..(7.847660,13.000000)
  56     ..controls (7.679690,12.406300) and (7.285160,12.367200)..(7.070310,12.921900)
  57     ..controls (6.851560,13.472700) and (6.812500,14.621100)..(7.386720,14.679700)
  58     --cycle;
  59 pickup pencircle scaled 0.400000bp;
  60 draw (7.386720,14.679700)..controls (7.964840,14.738300) and (8.019530,13.593800)..(7.847660,13.000000)
  61     ..controls (7.679690,12.406300) and (7.285160,12.367200)..(7.070310,12.921900)
  62     ..controls (6.851560,13.472700) and (6.812500,14.621100)..(7.386720,14.679700);
  63 pickup pencircle scaled 0.200000bp;
  64 draw (11.828100,16.359400)..controls (11.472700,17.144501) and (10.257800,16.656300)..(10.121100,15.761700);
  65 draw (7.847660,15.058600)..controls (7.496090,15.843800) and (6.277340,15.355500)..(6.144530,14.460900);
  66 draw (2.382810,7.476560)--(3.707030,7.664060);
  67 draw (2.218750,8.015630)--(2.437500,6.878910);
  68 draw (2.031250,9.531250)--(2.191410,8.667970)--(3.355470,8.828130)
  69     --(3.382810,9.585940);
  70 draw (2.761720,8.773440)--(2.761720,9.207030);
  71 draw (1.730470,11.402300)..controls (1.867190,11.136700) and (2.000000,10.867200)..(2.246090,10.804700)
  72     ..controls (2.492190,10.742200) and (2.851560,10.886700)..(3.058590,10.859400)
  73     ..controls (3.265630,10.835900) and (3.324220,10.644500)..(3.382810,10.453100);
  74 draw (2.082030,10.128900)..controls (2.128910,10.355500) and (2.175780,10.585900)..(2.328130,10.699200)
  75     ..controls (2.480470,10.808600) and (2.738280,10.808600)..(2.894530,10.914100)
  76     ..controls (3.054690,11.019500) and (3.109380,11.238300)..(3.167970,11.457000);
  77 picture pic;
  78 pic:=currentpicture;
  79 currentpicture:=nullpicture;
  80 drawoptions();
  81 draw pic scaled(1.08);
  82 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);
  83 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);
  84 draw (z0+(10.5,2));
  85 draw (z1-(10.5,2));
  86 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,-2pt))--(z1-(8.5pt,2pt))--cycle);
  87 endfig;
  88 end