dev/latex/sources_MetaPost/bc-aux-301.mp

   1 prologues:=1;\r
   2 outputtemplate:="%j.mps";\r
   3 beginfig(1);\r
   4 linecap := butt;\r
   5 pickup pencircle scaled(0.3bp);\r
   6 draw (5.812500,6.164060)..controls (6.117190,6.468750) and (6.488280,6.718750)..(6.917970,6.718750)\r
   7     ..controls (7.347660,6.718750) and (7.722660,6.468750)..(8.027340,6.164060)\r
   8     ..controls (8.027340,6.164060) and (13.082000,1.105470)..(13.085900,1.105470)\r
   9     ..controls (13.386700,0.804688) and (13.636700,0.429688)..(13.636700,0.000000)\r
  10     ..controls (13.636700,-0.429688) and (13.386700,-0.804688)..(13.085900,-1.105470)\r
  11     ..controls (13.082000,-1.105470) and (8.027340,-6.164060)..(8.027340,-6.164060)\r
  12     ..controls (7.722660,-6.468750) and (7.347660,-6.718750)..(6.917970,-6.718750)\r
  13     ..controls (6.488280,-6.718750) and (6.117190,-6.468750)..(5.812500,-6.164060)\r
  14     ..controls (5.812500,-6.164060) and (0.753906,-1.105470)..(0.753906,-1.105470)\r
  15     ..controls (0.449219,-0.804688) and (0.199219,-0.429688)..(0.199219,0.000000)\r
  16     ..controls (0.199219,0.429688) and (0.449219,0.804688)..(0.753906,1.105470)\r
  17     ..controls (0.753906,1.105470) and (5.812500,6.164060)..(5.812500,6.164060)\r
  18     --cycle;\r
  19 linecap := rounded;\r
  20 draw (6.363280,6.582030)--(6.363280,7.750000)--(7.472660,7.750000)\r
  21     --(7.472660,6.582030);\r
  22 draw (6.363280,-6.582030)--(6.363280,-10.757800);\r
  23 draw (7.472660,-6.582030)--(7.472660,-10.757800);\r
  24 draw (2.492190,-10.757800)--(11.347700,-10.757800);\r
  25 fill (8.855470,2.390630)..controls (9.726560,2.390630) and (9.699220,3.757810)..(8.855470,3.734380)\r
  26     ..controls (8.007810,3.734380) and (8.007810,2.390630)..(8.855470,2.390630)\r
  27     --cycle;\r
  28 fill (7.824220,2.929690)..controls (7.824220,2.929690) and (5.546880,1.433590)..(5.335940,1.199220)\r
  29     ..controls (5.148440,0.968750) and (4.937500,0.734375)..(4.937500,0.164063)\r
  30     ..controls (4.937500,-0.402344) and (5.679690,-1.179690)..(6.074220,-1.644530)\r
  31     --(6.074220,-3.738280)--(7.453130,-3.738280)--(6.660160,-3.480470)\r
  32     --(6.660160,-1.386720)..controls (6.660160,-1.281250) and (5.863280,-0.195313)..(5.812500,-0.042969)\r
  33     ..controls (5.785160,0.140625) and (5.757810,0.398438)..(5.890630,0.500000)\r
  34     ..controls (6.023440,0.632813) and (8.273440,2.257810)..(8.246090,2.285160)\r
  35     --cycle;\r
  36 fill (5.097660,0.269531)--(2.820310,-2.136720)--(4.144530,-3.218750)\r
  37     --(3.562500,-2.339840)--(5.468750,-0.222656)--cycle;\r
  38 fill (7.585940,-0.945313)--(7.585940,2.699220)--(5.757810,2.699220)\r
  39     --(6.394530,1.742190)--(5.812500,1.304690)..controls (5.812500,1.304690) and (5.125000,2.234380)..(5.125000,2.441410)\r
  40     ..controls (5.125000,2.648440) and (5.097660,2.906250)..(5.281250,3.085940)\r
  41     ..controls (5.468750,3.292970) and (5.546880,3.449220)..(5.945310,3.449220)\r
  42     --(6.894530,3.449220)..controls (7.347660,3.449220) and (7.425780,3.371090)..(7.558590,3.242190)\r
  43     ..controls (7.664060,3.136720) and (8.246090,2.285160)..(8.246090,2.285160)\r
  44     --(8.246090,-0.582031)--cycle;\r
  45 fill (6.074220,0.863281)--(7.953130,-1.980470)--(7.398440,-2.417970)\r
  46     --(8.351560,-3.738280)--(9.382810,-3.738280)--(9.808590,-2.675780)\r
  47     --(8.878910,-1.359380)--(8.296880,-1.722660)--(6.445310,1.148440)\r
  48     --cycle;\r
  49 picture pic;\r
  50 pic:=currentpicture;\r
  51 currentpicture:=nullpicture;\r
  52 drawoptions();\r
  53 draw pic scaled(1.217);\r
  54 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);\r
  55 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);\r
  56 draw (z0+(10.5,2));\r
  57 draw (z1-(10.5,3));\r
  58 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,-3pt))--(z1-(8.5pt,3pt))--cycle);\r
  59 endfig;\r
  60 end\r