dev/latex/sources_MetaPost/bc-book.mp

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