dev/latex/sources_MetaPost/bc-inter.mp

   1 prologues:=1;\r
   2 outputtemplate:="%j.mps";\r
   3 beginfig(1);\r
   4 drawoptions (withcolor (0.623529,0.007843,0.007843));\r
   5 linecap := butt;\r
   6 linejoin := mitered;\r
   7 fill (5.242190,4.937500)--(4.820310,5.058590)..controls (5.085940,5.800780) and (5.367190,6.390630)..(5.671880,6.835940)\r
   8     ..controls (5.984380,7.285160) and (6.531250,7.871090)..(7.308590,8.601560)\r
   9     ..controls (7.910160,9.160160) and (8.328130,9.601560)..(8.550780,9.925780)\r
  10     ..controls (8.781250,10.253900) and (8.945310,10.605500)..(9.050780,10.976600)\r
  11     ..controls (9.269530,11.738300) and (9.210940,12.410200)..(8.875000,12.992200)\r
  12     ..controls (8.546880,13.570300) and (8.046880,13.957000)..(7.375000,14.148400)\r
  13     ..controls (6.781250,14.316400) and (6.281250,14.328100)..(5.867190,14.179700)\r
  14     ..controls (5.457030,14.035200) and (5.210940,13.816400)..(5.128910,13.527300)\r
  15     ..controls (5.062500,13.308600) and (5.089840,13.003900)..(5.199220,12.625000)\r
  16     ..controls (5.312500,12.242200) and (5.343750,11.968800)..(5.296880,11.800800)\r
  17     ..controls (5.234380,11.582000) and (5.105470,11.425800)..(4.906250,11.320300)\r
  18     ..controls (4.707030,11.218800) and (4.496090,11.203100)..(4.269530,11.269500)\r
  19     ..controls (3.984380,11.351600) and (3.753910,11.546900)..(3.585940,11.863300)\r
  20     ..controls (3.425780,12.179700) and (3.410160,12.558600)..(3.535160,13.003900)\r
  21     ..controls (3.730470,13.679700) and (4.230470,14.183600)..(5.042970,14.515600)\r
  22     ..controls (5.855470,14.843800) and (6.828130,14.847700)..(7.960940,14.523400)\r
  23     ..controls (9.367190,14.121100) and (10.300800,13.464800)..(10.757800,12.558600)\r
  24     ..controls (11.097700,11.890600) and (11.175800,11.238300)..(10.992200,10.597700)\r
  25     ..controls (10.867200,10.160200) and (10.628900,9.742190)..(10.269500,9.347660)\r
  26     ..controls (9.921880,8.949220) and (9.343750,8.527340)..(8.546880,8.082030)\r
  27     ..controls (7.273440,7.382810) and (6.464840,6.859380)..(6.125000,6.511720)\r
  28     ..controls (5.789060,6.167970) and (5.492190,5.644530)..(5.242190,4.937500)..cycle;\r
  29 fill (4.777340,3.867190)..(5.503910,3.339840)\r
  30     ..controls (5.671880,3.082030) and (5.718750,2.812500)..(5.636720,2.531250)\r
  31     ..controls (5.558590,2.257810) and (5.378910,2.054690)..(5.097660,1.917970)\r
  32     ..controls (4.816410,1.792970) and (4.519530,1.773440)..(4.207030,1.863280)\r
  33     ..controls (3.890630,1.953130) and (3.648440,2.128910)..(3.480470,2.382810)\r
  34     ..controls (3.316410,2.644530) and (3.273440,2.910160)..(3.355470,3.187500)\r
  35     ..controls (3.433590,3.468750) and (3.609380,3.671880)..(3.882810,3.800780)\r
  36     ..controls (4.167970,3.933590) and (4.464840,3.957030)..(4.777340,3.867190)\r
  37     --cycle;\r
  38 drawoptions (withcolor (0.000000,0.000000,0.000000));\r
  39 pickup pencircle scaled 0.167761bp;\r
  40 linecap := rounded;\r
  41 linejoin := rounded;\r
  42 draw (5.242190,4.937500)--(4.820310,5.058590)..controls (5.085940,5.800780) and (5.367190,6.390630)..(5.671880,6.835940)\r
  43     ..controls (5.984380,7.285160) and (6.531250,7.871090)..(7.308590,8.601560)\r
  44     ..controls (7.910160,9.160160) and (8.328130,9.601560)..(8.550780,9.925780)\r
  45     ..controls (8.781250,10.253900) and (8.945310,10.605500)..(9.050780,10.976600)\r
  46     ..controls (9.269530,11.738300) and (9.210940,12.410200)..(8.875000,12.992200)\r
  47     ..controls (8.546880,13.570300) and (8.046880,13.957000)..(7.375000,14.148400)\r
  48     ..controls (6.781250,14.316400) and (6.281250,14.328100)..(5.867190,14.179700)\r
  49     ..controls (5.457030,14.035200) and (5.210940,13.816400)..(5.128910,13.527300)\r
  50     ..controls (5.062500,13.308600) and (5.089840,13.003900)..(5.199220,12.625000)\r
  51     ..controls (5.312500,12.242200) and (5.343750,11.968800)..(5.296880,11.800800)\r
  52     ..controls (5.234380,11.582000) and (5.105470,11.425800)..(4.906250,11.320300)\r
  53     ..controls (4.707030,11.218800) and (4.496090,11.203100)..(4.269530,11.269500)\r
  54     ..controls (3.984380,11.351600) and (3.753910,11.546900)..(3.585940,11.863300)\r
  55     ..controls (3.425780,12.179700) and (3.410160,12.558600)..(3.535160,13.003900)\r
  56     ..controls (3.730470,13.679700) and (4.230470,14.183600)..(5.042970,14.515600)\r
  57     ..controls (5.855470,14.843800) and (6.828130,14.847700)..(7.960940,14.523400)\r
  58     ..controls (9.367190,14.121100) and (10.300800,13.464800)..(10.757800,12.558600)\r
  59     ..controls (11.097700,11.890600) and (11.175800,11.238300)..(10.992200,10.597700)\r
  60     ..controls (10.867200,10.160200) and (10.628900,9.742190)..(10.269500,9.347660)\r
  61     ..controls (9.921880,8.949220) and (9.343750,8.527340)..(8.546880,8.082030)\r
  62     ..controls (7.273440,7.382810) and (6.464840,6.859380)..(6.125000,6.511720)\r
  63     ..controls (5.789060,6.167970) and (5.492190,5.644530)..(5.242190,4.937500);\r
  64 draw (4.777340,3.867190)..controls (5.101560,3.773440) and (5.339840,3.597660)..(5.503910,3.339840)\r
  65     ..controls (5.671880,3.082030) and (5.718750,2.812500)..(5.636720,2.531250)\r
  66     ..controls (5.558590,2.257810) and (5.378910,2.054690)..(5.097660,1.917970)\r
  67     ..controls (4.816410,1.792970) and (4.519530,1.773440)..(4.207030,1.863280)\r
  68     ..controls (3.890630,1.953130) and (3.648440,2.128910)..(3.480470,2.382810)\r
  69     ..controls (3.316410,2.644530) and (3.273440,2.910160)..(3.355470,3.187500)\r
  70     ..controls (3.433590,3.468750) and (3.609380,3.671880)..(3.882810,3.800780)\r
  71     ..controls (4.167970,3.933590) and (4.464840,3.957030)..(4.777340,3.867190);\r
  72 picture pic;\r
  73 pic:=currentpicture;\r
  74 currentpicture:=nullpicture;\r
  75 drawoptions();\r
  76 draw pic scaled(1.3);\r
  77 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);\r
  78 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);\r
  79 draw (z0+(10.5,2));\r
  80 draw (z1-(10.5,2));\r
  81 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,-2pt))--(z1-(8.5pt,2pt))--cycle);\r
  82 endfig;\r
  83 end\r