dev/latex/sources_MetaPost/bc-ours.mp

   1 prologues:=1;
   2 outputtemplate:="%j.mps";
   3 beginfig(1);
   4 drawoptions (withcolor (0.511765,0.209804,0.000000));
   5 linecap := butt;
   6 linejoin := mitered;
   7 fill (6.105470,11.589800)..controls (6.105470,10.574200) and (5.234380,9.750000)..(4.160160,9.750000)
   8     ..controls (3.085940,9.750000) and (2.214840,10.574200)..(2.214840,11.589800)
   9     ..controls (2.214840,12.605500) and (3.085940,13.429700)..(4.160160,13.429700)
  10     ..controls (5.234380,13.429700) and (6.105470,12.605500)..(6.105470,11.589800)
  11     --cycle;
  12 drawoptions (withcolor (0.000000,0.000000,0.000000));
  13 pickup pencircle scaled 0.320000bp;
  14 linecap := rounded;
  15 linejoin := rounded;
  16 draw (6.105470,11.589800)..controls (6.105470,10.574200) and (5.234380,9.750000)..(4.160160,9.750000)
  17     ..controls (3.085940,9.750000) and (2.214840,10.574200)..(2.214840,11.589800)
  18     ..controls (2.214840,12.605500) and (3.085940,13.429700)..(4.160160,13.429700)
  19     ..controls (5.234380,13.429700) and (6.105470,12.605500)..(6.105470,11.589800)
  20     --cycle;
  21 drawoptions (withcolor (0.511765,0.205882,0.000000));
  22 pickup pencircle scaled 0.000000bp;
  23 linecap := butt;
  24 linejoin := mitered;
  25 fill (11.625000,11.679700)..controls (11.625000,10.664100) and (10.753900,9.839840)..(9.679690,9.839840)
  26     ..controls (8.605470,9.839840) and (7.730470,10.664100)..(7.730470,11.679700)
  27     ..controls (7.730470,12.695300) and (8.605470,13.519500)..(9.679690,13.519500)
  28     ..controls (10.753900,13.519500) and (11.625000,12.695300)..(11.625000,11.679700)
  29     --cycle;
  30 drawoptions (withcolor (0.000000,0.000000,0.000000));
  31 pickup pencircle scaled 0.320000bp;
  32 linecap := rounded;
  33 linejoin := rounded;
  34 draw (11.625000,11.679700)..controls (11.625000,10.664100) and (10.753900,9.839840)..(9.679690,9.839840)
  35     ..controls (8.605470,9.839840) and (7.730470,10.664100)..(7.730470,11.679700)
  36     ..controls (7.730470,12.695300) and (8.605470,13.519500)..(9.679690,13.519500)
  37     ..controls (10.753900,13.519500) and (11.625000,12.695300)..(11.625000,11.679700)
  38     --cycle;
  39 drawoptions (withcolor (0.878431,0.478431,0.184314));
  40 pickup pencircle scaled 0.000000bp;
  41 linecap := butt;
  42 linejoin := mitered;
  43 fill (5.304690,11.339800)..controls (5.304690,10.847700) and (4.878910,10.445300)..(4.355470,10.445300)
  44     ..controls (3.835940,10.445300) and (3.410160,10.847700)..(3.410160,11.339800)
  45     ..controls (3.410160,11.832000) and (3.835940,12.230500)..(4.355470,12.230500)
  46     ..controls (4.878910,12.230500) and (5.304690,11.832000)..(5.304690,11.339800)
  47     --cycle;
  48 drawoptions (withcolor (0.000000,0.000000,0.000000));
  49 pickup pencircle scaled 0.320264bp;
  50 linecap := rounded;
  51 linejoin := rounded;
  52 draw (5.304690,11.339800)..controls (5.304690,10.847700) and (4.878910,10.445300)..(4.355470,10.445300)
  53     ..controls (3.835940,10.445300) and (3.410160,10.847700)..(3.410160,11.339800)
  54     ..controls (3.410160,11.832000) and (3.835940,12.230500)..(4.355470,12.230500)
  55     ..controls (4.878910,12.230500) and (5.304690,11.832000)..(5.304690,11.339800)
  56     --cycle;
  57 drawoptions (withcolor (0.878431,0.478431,0.184314));
  58 pickup pencircle scaled 0.000000bp;
  59 linecap := butt;
  60 linejoin := mitered;
  61 fill (10.519500,11.285200)..controls (10.519500,10.793000) and (10.093800,10.394500)..(9.570310,10.394500)
  62     ..controls (9.050780,10.394500) and (8.625000,10.793000)..(8.625000,11.285200)
  63     ..controls (8.625000,11.777300) and (9.050780,12.179700)..(9.570310,12.179700)
  64     ..controls (10.093800,12.179700) and (10.519500,11.777300)..(10.519500,11.285200)
  65     --cycle;
  66 drawoptions (withcolor (0.000000,0.000000,0.000000));
  67 pickup pencircle scaled 0.320264bp;
  68 linecap := rounded;
  69 linejoin := rounded;
  70 draw (10.519500,11.285200)..controls (10.519500,10.793000) and (10.093800,10.394500)..(9.570310,10.394500)
  71     ..controls (9.050780,10.394500) and (8.625000,10.793000)..(8.625000,11.285200)
  72     ..controls (8.625000,11.777300) and (9.050780,12.179700)..(9.570310,12.179700)
  73     ..controls (10.093800,12.179700) and (10.519500,11.777300)..(10.519500,11.285200)
  74     --cycle;
  75 drawoptions (withcolor (0.511765,0.209804,0.000000));
  76 pickup pencircle scaled 0.000000bp;
  77 linecap := butt;
  78 linejoin := mitered;
  79 fill (11.855500,7.445310)..controls (11.855500,4.855470) and (9.664060,2.750000)..(6.964840,2.750000)
  80     ..controls (4.261720,2.750000) and (2.070310,4.855470)..(2.070310,7.445310)
  81     ..controls (2.070310,10.039100) and (4.261720,12.144500)..(6.964840,12.144500)
  82     ..controls (9.664060,12.144500) and (11.855500,10.039100)..(11.855500,7.445310)
  83     --cycle;
  84 drawoptions (withcolor (0.000000,0.000000,0.000000));
  85 pickup pencircle scaled 0.320000bp;
  86 linecap := rounded;
  87 linejoin := rounded;
  88 draw (11.855500,7.445310)..controls (11.855500,4.855470) and (9.664060,2.750000)..(6.964840,2.750000)
  89     ..controls (4.261720,2.750000) and (2.070310,4.855470)..(2.070310,7.445310)
  90     ..controls (2.070310,10.039100) and (4.261720,12.144500)..(6.964840,12.144500)
  91     ..controls (9.664060,12.144500) and (11.855500,10.039100)..(11.855500,7.445310)
  92     --cycle;
  93 pickup pencircle scaled 0.000000bp;
  94 linecap := butt;
  95 linejoin := mitered;
  96 fill (8.179690,6.820310)..controls (8.179690,6.367190) and (7.640630,6.000000)..(6.980470,6.000000)
  97     ..controls (6.320310,6.000000) and (5.785160,6.367190)..(5.785160,6.820310)
  98     ..controls (5.785160,7.273440) and (6.320310,7.644530)..(6.980470,7.644530)
  99     ..controls (7.640630,7.644530) and (8.179690,7.273440)..(8.179690,6.820310)
 100     --cycle;
 101 pickup pencircle scaled 0.317037bp;
 102 linecap := rounded;
 103 linejoin := rounded;
 104 draw (8.179690,6.820310)..controls (8.179690,6.367190) and (7.640630,6.000000)..(6.980470,6.000000)
 105     ..controls (6.320310,6.000000) and (5.785160,6.367190)..(5.785160,6.820310)
 106     ..controls (5.785160,7.273440) and (6.320310,7.644530)..(6.980470,7.644530)
 107     ..controls (7.640630,7.644530) and (8.179690,7.273440)..(8.179690,6.820310)
 108     --cycle;
 109 drawoptions (withcolor (1.000000,1.000000,1.000000));
 110 pickup pencircle scaled 0.000000bp;
 111 linecap := butt;
 112 linejoin := mitered;
 113 fill (6.144530,9.375000)..controls (6.144530,8.792970) and (5.671880,8.320310)..(5.089840,8.320310)
 114     ..controls (4.507810,8.320310) and (4.035160,8.792970)..(4.035160,9.375000)
 115     ..controls (4.035160,9.957030) and (4.507810,10.429700)..(5.089840,10.429700)
 116     ..controls (5.671880,10.429700) and (6.144530,9.957030)..(6.144530,9.375000)
 117     --cycle;
 118 drawoptions (withcolor (0.000000,0.000000,0.000000));
 119 pickup pencircle scaled 0.394631bp;
 120 linecap := rounded;
 121 linejoin := rounded;
 122 draw (6.144530,9.375000)..controls (6.144530,8.792970) and (5.671880,8.320310)..(5.089840,8.320310)
 123     ..controls (4.507810,8.320310) and (4.035160,8.792970)..(4.035160,9.375000)
 124     ..controls (4.035160,9.957030) and (4.507810,10.429700)..(5.089840,10.429700)
 125     ..controls (5.671880,10.429700) and (6.144530,9.957030)..(6.144530,9.375000)
 126     --cycle;
 127 drawoptions (withcolor (1.000000,1.000000,1.000000));
 128 pickup pencircle scaled 0.000000bp;
 129 linecap := butt;
 130 linejoin := mitered;
 131 fill (9.660160,9.394530)..controls (9.660160,8.812500) and (9.187500,8.339840)..(8.605470,8.339840)
 132     ..controls (8.027340,8.339840) and (7.554690,8.812500)..(7.554690,9.394530)
 133     ..controls (7.554690,9.972660) and (8.027340,10.445300)..(8.605470,10.445300)
 134     ..controls (9.187500,10.445300) and (9.660160,9.972660)..(9.660160,9.394530)
 135     --cycle;
 136 drawoptions (withcolor (0.000000,0.000000,0.000000));
 137 pickup pencircle scaled 0.394631bp;
 138 linecap := rounded;
 139 linejoin := rounded;
 140 draw (9.660160,9.394530)..controls (9.660160,8.812500) and (9.187500,8.339840)..(8.605470,8.339840)
 141     ..controls (8.027340,8.339840) and (7.554690,8.812500)..(7.554690,9.394530)
 142     ..controls (7.554690,9.972660) and (8.027340,10.445300)..(8.605470,10.445300)
 143     ..controls (9.187500,10.445300) and (9.660160,9.972660)..(9.660160,9.394530)
 144     --cycle;
 145 pickup pencircle scaled 0.000000bp;
 146 linecap := butt;
 147 linejoin := mitered;
 148 fill (8.980470,9.000000)..controls (8.980470,8.792970) and (8.812500,8.625000)..(8.605470,8.625000)
 149     ..controls (8.398440,8.625000) and (8.230470,8.792970)..(8.230470,9.000000)
 150     ..controls (8.230470,9.207030) and (8.398440,9.375000)..(8.605470,9.375000)
 151     ..controls (8.812500,9.375000) and (8.980470,9.207030)..(8.980470,9.000000)
 152     --cycle;
 153 pickup pencircle scaled 0.320000bp;
 154 linecap := rounded;
 155 linejoin := rounded;
 156 draw (8.980470,9.000000)..controls (8.980470,8.792970) and (8.812500,8.625000)..(8.605470,8.625000)
 157     ..controls (8.398440,8.625000) and (8.230470,8.792970)..(8.230470,9.000000)
 158     ..controls (8.230470,9.207030) and (8.398440,9.375000)..(8.605470,9.375000)
 159     ..controls (8.812500,9.375000) and (8.980470,9.207030)..(8.980470,9.000000)
 160     --cycle;
 161 pickup pencircle scaled 0.000000bp;
 162 linecap := butt;
 163 linejoin := mitered;
 164 fill (5.519530,8.929690)..controls (5.519530,8.722660) and (5.351560,8.554690)..(5.144530,8.554690)
 165     ..controls (4.937500,8.554690) and (4.769530,8.722660)..(4.769530,8.929690)
 166     ..controls (4.769530,9.136720) and (4.937500,9.304690)..(5.144530,9.304690)
 167     ..controls (5.351560,9.304690) and (5.519530,9.136720)..(5.519530,8.929690)
 168     --cycle;
 169 pickup pencircle scaled 0.320000bp;
 170 linecap := rounded;
 171 linejoin := rounded;
 172 draw (5.519530,8.929690)..controls (5.519530,8.722660) and (5.351560,8.554690)..(5.144530,8.554690)
 173     ..controls (4.937500,8.554690) and (4.769530,8.722660)..(4.769530,8.929690)
 174     ..controls (4.769530,9.136720) and (4.937500,9.304690)..(5.144530,9.304690)
 175     ..controls (5.351560,9.304690) and (5.519530,9.136720)..(5.519530,8.929690)
 176     --cycle;
 177 pickup pencircle scaled 0.400000bp;
 178 linecap := butt;
 179 linejoin := mitered;
 180 draw (4.894530,4.894530)..controls (4.894530,4.894530) and (7.144530,2.820310)..(9.179690,5.464840);
 181 pickup pencircle scaled 0.160000bp;
 182 draw (6.664060,12.105500)..controls (6.855470,12.789100) and (6.570310,13.375000)..(6.000000,13.468800);
 183 draw (6.812500,12.168000)..controls (6.683590,12.933600) and (6.875000,13.589800)..(7.265630,13.695300);
 184 draw (6.996090,12.144500)..controls (6.847660,12.691400) and (7.070310,13.168000)..(7.515630,13.242200);
 185 picture pic;
 186 pic:=currentpicture;
 187 currentpicture:=nullpicture;
 188 drawoptions();
 189 draw pic scaled(1.35);
 190 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);
 191 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);
 192 draw (z0+(10.5,2));
 193 draw (z1-(10.5,2));
 194 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,-2pt))--(z1-(8.5pt,2pt))--cycle);
 195 endfig;
 196 end