dev/latex/sources_MetaPost/bc-ours.mp

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