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

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