dev/latex/sources_MetaPost/bc-info.mp

   1 prologues:=1;
   2 outputtemplate:="%j.mps";
   3 beginfig(1);
   4 drawoptions (withcolor (1.000000,0.309804,0.380392));
   5 linecap := butt;
   6 linejoin := mitered;
   7 fill (12.683600,7.140630)..controls (12.683600,3.925780) and (10.074200,1.316410)..(6.859370,1.316410)
   8     ..controls (3.648440,1.316410) and (1.039060,3.925780)..(1.039060,7.140630)
   9     ..controls (1.039060,10.351600) and (3.648440,12.960900)..(6.859370,12.960900)
  10     ..controls (10.074200,12.960900) and (12.683600,10.351600)..(12.683600,7.140630)
  11     --cycle;
  12 drawoptions (withcolor (0.000000,0.000000,0.000000));
  13 pickup pencircle scaled 0.392320bp;
  14 linecap := rounded;
  15 linejoin := rounded;
  16 draw (12.683600,7.140630)..controls (12.683600,3.925780) and (10.074200,1.316410)..(6.859370,1.316410)
  17     ..controls (3.648440,1.316410) and (1.039060,3.925780)..(1.039060,7.140630)
  18     ..controls (1.039060,10.351600) and (3.648440,12.960900)..(6.859370,12.960900)
  19     ..controls (10.074200,12.960900) and (12.683600,10.351600)..(12.683600,7.140630)
  20     --cycle;
  21 drawoptions (withcolor (0.968628,0.725490,0.000000));
  22 pickup pencircle scaled 0.000000bp;
  23 linecap := butt;
  24 linejoin := mitered;
  25 fill (12.304700,7.140630)..controls (12.304700,4.132810) and (9.867190,1.695310)..(6.859370,1.695310)
  26     ..controls (3.855470,1.695310) and (1.417970,4.132810)..(1.417970,7.140630)
  27     ..controls (1.417970,10.144500) and (3.855470,12.582000)..(6.859370,12.582000)
  28     ..controls (9.867190,12.582000) and (12.304700,10.144500)..(12.304700,7.140630)
  29     --cycle;
  30 drawoptions (withcolor (1.000000,1.000000,1.000000));
  31 pickup pencircle scaled 0.366751bp;
  32 linecap := rounded;
  33 linejoin := rounded;
  34 draw (12.304700,7.140630)..controls (12.304700,4.132810) and (9.867190,1.695310)..(6.859370,1.695310)
  35     ..controls (3.855470,1.695310) and (1.417970,4.132810)..(1.417970,7.140630)
  36     ..controls (1.417970,10.144500) and (3.855470,12.582000)..(6.859370,12.582000)
  37     ..controls (9.867190,12.582000) and (12.304700,10.144500)..(12.304700,7.140630)
  38     --cycle;
  39 drawoptions (withcolor (1.000000,0.803922,0.003922));
  40 pickup pencircle scaled 0.000000bp;
  41 linecap := butt;
  42 linejoin := mitered;
  43 fill (6.843750,12.378900)..controls (4.171880,12.378900) and (1.960940,10.339800)..(1.605470,7.691410)
  44     ..controls (2.890630,6.210940) and (4.750000,5.265630)..(6.820310,5.234380)
  45     ..controls (6.859380,5.234380) and (6.898440,5.230470)..(6.933590,5.230470)
  46     ..controls (8.968750,5.230470) and (10.804700,6.113280)..(12.105500,7.519530)
  47     ..controls (11.824200,10.250000) and (9.574220,12.378900)..(6.843750,12.378900)
  48     --cycle;
  49 drawoptions (withcolor (1.000000,1.000000,1.000000));
  50 fill (6.859380,11.457000)..controls (6.121090,11.457000) and (5.523440,10.839800)..(5.523440,10.082000)
  51     ..controls (5.523440,9.320310) and (6.121090,8.703130)..(6.859380,8.703130)
  52     ..controls (7.597660,8.703130) and (8.199220,9.320310)..(8.199220,10.082000)
  53     ..controls (8.199220,10.839800) and (7.597660,11.457000)..(6.859380,11.457000)
  54     --cycle;
  55 fill (6.210940,7.996090)..controls (5.828130,7.996090) and (5.523440,7.679690)..(5.523440,7.285160)
  56     --(5.523440,3.531250)..controls (5.523440,3.140630) and (5.828130,2.820310)..(6.210940,2.820310)
  57     --(7.507810,2.820310)..controls (7.890630,2.820310) and (8.199220,3.140630)..(8.199220,3.531250)
  58     --(8.199220,7.285160)..controls (8.199220,7.679690) and (7.890630,7.996090)..(7.507810,7.996090)
  59     --cycle;
  60 drawoptions (withcolor (0.000000,0.000000,0.000000));
  61 pickup pencircle scaled 0.380348bp;
  62 linecap := rounded;
  63 linejoin := rounded;
  64 draw (6.859380,11.457000)..controls (6.121090,11.457000) and (5.523440,10.839800)..(5.523440,10.082000)
  65     ..controls (5.523440,9.320310) and (6.121090,8.703130)..(6.859380,8.703130)
  66     ..controls (7.597660,8.703130) and (8.199220,9.320310)..(8.199220,10.082000)
  67     ..controls (8.199220,10.839800) and (7.597660,11.457000)..(6.859380,11.457000)
  68     --cycle;
  69 draw (6.210940,7.996090)..controls (5.828130,7.996090) and (5.523440,7.679690)..(5.523440,7.285160)
  70     --(5.523440,3.531250)..controls (5.523440,3.140630) and (5.828130,2.820310)..(6.210940,2.820310)
  71     --(7.507810,2.820310)..controls (7.890630,2.820310) and (8.199220,3.140630)..(8.199220,3.531250)
  72     --(8.199220,7.285160)..controls (8.199220,7.679690) and (7.890630,7.996090)..(7.507810,7.996090)
  73     --cycle;
  74 picture pic;
  75 pic:=currentpicture;
  76 currentpicture:=nullpicture;
  77 drawoptions();
  78 draw pic scaled(1.3);
  79 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);
  80 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);
  81 draw (z0+(10.5,2));
  82 draw (z1-(10.5,2));
  83 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,-1pt))--(z1-(8.5pt,1pt))--cycle);
  84 endfig;
  85 end