dev/latex/sources_MetaPost/bc-dbulgarie.mp

   1 prologues:=1;
   2 outputtemplate:="%j.mps";
   3 beginfig(1);
   4 linecap := butt;
   5 drawoptions (withcolor (1,1,1));
   6 fill (0.000000,24.800800)--(0.507813,24.859400)--(0.984375,24.906300)
   7     --(1.441410,24.937500)--(1.867190,24.953100)--(2.273440,24.953100)
   8     --(2.660160,24.945299)--(3.023440,24.921900)--(3.367190,24.890600)
   9     --(3.695310,24.847700)--(4.003910,24.796900)--(4.300780,24.742201)
  10     --(4.582030,24.675800)--(4.847660,24.605499)--(5.105470,24.527300)
  11     --(5.351560,24.449200)--(5.589840,24.367201)--(5.820310,24.281300)
  12     --(6.042970,24.195299)--(6.261720,24.109400)--(6.476560,24.023399)
  13     --(6.691410,23.937500)--(6.902340,23.855499)--(7.117190,23.777300)
  14     --(7.328130,23.703100)--(7.546880,23.632799)--(7.765630,23.570299)
  15     --(7.992190,23.511700)--(8.226560,23.464800)--(8.468750,23.425800)
  16     --(8.718750,23.394501)--(8.980470,23.378901)--(9.253910,23.371099)
  17     --(9.542970,23.375000)--(9.843750,23.394501)--(10.160200,23.429701)
  18     --(10.496100,23.476601)--(10.847700,23.542999)--(11.218800,23.625000)
  19     --(11.613300,23.726601)--(12.031300,23.843800)--(12.472700,23.984400)
  20     --(12.937500,24.144501)--(13.425800,24.328100)--(13.945300,24.535200)
  21     --(14.492200,24.761700)--(15.070300,25.015600)--(15.679700,25.292999)
  22     --(16.324200,25.601601)--(17.000000,25.933599)--(17.000000,22.191401)
  23     --(16.324200,21.859400)--(15.679700,21.554701)--(15.070300,21.277300)
  24     --(14.492200,21.023399)--(13.945300,20.792999)--(13.425800,20.589800)
  25     --(12.937500,20.406300)--(12.472700,20.246099)--(12.031300,20.105499)
  26     --(11.613300,19.984400)--(11.218800,19.886700)--(10.847700,19.804701)
  27     --(10.496100,19.738300)--(10.160200,19.687500)--(9.843750,19.656300)
  28     --(9.542970,19.636700)--(9.253910,19.628901)--(8.980470,19.636700)
  29     --(8.718750,19.656300)--(8.468750,19.687500)--(8.226560,19.726601)
  30     --(7.992190,19.773399)--(7.765630,19.828100)--(7.546880,19.894501)
  31     --(7.328130,19.960899)--(7.117190,20.035200)--(6.902340,20.117201)
  32     --(6.691410,20.199200)--(6.476560,20.281300)--(6.261720,20.367201)
  33     --(6.042970,20.453100)--(5.820310,20.542999)--(5.589840,20.625000)
  34     --(5.351560,20.710899)--(5.105470,20.789101)--(4.847660,20.863300)
  35     --(4.582030,20.933599)--(4.300780,21.000000)--(4.003910,21.058599)
  36     --(3.695310,21.109400)--(3.367190,21.148399)--(3.023440,21.183599)
  37     --(2.660160,21.203100)--(2.273440,21.214800)--(1.867190,21.210899)
  38     --(1.441410,21.195299)--(0.984375,21.164101)--(0.507813,21.121099)
  39     --(0.000000,21.058599)--cycle;
  40 drawoptions (withcolor (0,150/256,110/256));
  41 fill (0.000000,21.058599)--(0.507813,21.121099)--(0.984375,21.164101)
  42     --(1.441410,21.195299)--(1.867190,21.210899)--(2.273440,21.214800)
  43     --(2.660160,21.203100)--(3.023440,21.183599)--(3.367190,21.148399)
  44     --(3.695310,21.109400)--(4.003910,21.058599)--(4.300780,21.000000)
  45     --(4.582030,20.933599)--(4.847660,20.863300)--(5.105470,20.789101)
  46     --(5.351560,20.710899)--(5.589840,20.625000)--(5.820310,20.542999)
  47     --(6.042970,20.453100)--(6.261720,20.367201)--(6.476560,20.281300)
  48     --(6.691410,20.199200)--(6.902340,20.117201)--(7.117190,20.035200)
  49     --(7.328130,19.960899)--(7.546880,19.894501)--(7.765630,19.828100)
  50     --(7.992190,19.773399)--(8.226560,19.726601)--(8.468750,19.687500)
  51     --(8.718750,19.656300)--(8.980470,19.636700)--(9.253910,19.628901)
  52     --(9.542970,19.636700)--(9.843750,19.656300)--(10.160200,19.687500)
  53     --(10.496100,19.738300)--(10.847700,19.804701)--(11.218800,19.886700)
  54     --(11.613300,19.984400)--(12.031300,20.105499)--(12.472700,20.246099)
  55     --(12.937500,20.406300)--(13.425800,20.589800)--(13.945300,20.792999)
  56     --(14.492200,21.023399)--(15.070300,21.277300)--(15.679700,21.554701)
  57     --(16.324200,21.859400)--(17.000000,22.191401)--(17.000000,18.339800)
  58     --(16.324200,18.007799)--(15.679700,17.703100)--(15.070300,17.421900)
  59     --(14.492200,17.167999)--(13.945300,16.941401)--(13.425800,16.734400)
  60     --(12.937500,16.550800)--(12.472700,16.390600)--(12.031300,16.253901)
  61     --(11.613300,16.132799)--(11.218800,16.031300)--(10.847700,15.949200)
  62     --(10.496100,15.882800)--(10.160200,15.835900)--(9.843750,15.800800)
  63     --(9.542970,15.781300)--(9.253910,15.777300)--(8.980470,15.785200)
  64     --(8.718750,15.804700)--(8.468750,15.832000)--(8.226560,15.871100)
  65     --(7.992190,15.921900)--(7.765630,15.976600)--(7.546880,16.039101)
  66     --(7.328130,16.109400)--(7.117190,16.183599)--(6.902340,16.261700)
  67     --(6.691410,16.343800)--(6.476560,16.429701)--(6.261720,16.515600)
  68     --(6.042970,16.601601)--(5.820310,16.687500)--(5.589840,16.773399)
  69     --(5.351560,16.855499)--(5.105470,16.937500)--(4.847660,17.011700)
  70     --(4.582030,17.082001)--(4.300780,17.148399)--(4.003910,17.203100)
  71     --(3.695310,17.253901)--(3.367190,17.296900)--(3.023440,17.328100)
  72     --(2.660160,17.351601)--(2.273440,17.359400)--(1.867190,17.359400)
  73     --(1.441410,17.343800)--(0.984375,17.312500)--(0.507813,17.269501)
  74     --(0.000000,17.207001)--cycle;
  75 drawoptions (withcolor (214/256,38/256,18/256));
  76 fill (0.000000,17.207001)--(0.507813,17.269501)--(0.984375,17.312500)
  77     --(1.441410,17.343800)--(1.867190,17.359400)--(2.273440,17.359400)
  78     --(2.660160,17.351601)--(3.023440,17.328100)--(3.367190,17.296900)
  79     --(3.695310,17.253901)--(4.003910,17.203100)--(4.300780,17.148399)
  80     --(4.582030,17.082001)--(4.847660,17.011700)--(5.105470,16.937500)
  81     --(5.351560,16.855499)--(5.589840,16.773399)--(5.820310,16.687500)
  82     --(6.042970,16.601601)--(6.261720,16.515600)--(6.476560,16.429701)
  83     --(6.691410,16.343800)--(6.902340,16.261700)--(7.117190,16.183599)
  84     --(7.328130,16.109400)--(7.546880,16.039101)--(7.765630,15.976600)
  85     --(7.992190,15.921900)--(8.226560,15.871100)--(8.468750,15.832000)
  86     --(8.718750,15.804700)--(8.980470,15.785200)--(9.253910,15.777300)
  87     --(9.542970,15.781300)--(9.843750,15.800800)--(10.160200,15.835900)
  88     --(10.496100,15.882800)--(10.847700,15.949200)--(11.218800,16.031300)
  89     --(11.613300,16.132799)--(12.031300,16.253901)--(12.472700,16.390600)
  90     --(12.937500,16.550800)--(13.425800,16.734400)--(13.945300,16.941401)
  91     --(14.492200,17.167999)--(15.070300,17.421900)--(15.679700,17.703100)
  92     --(16.324200,18.007799)--(17.000000,18.339800)--(17.000000,14.601600)
  93     --(16.324200,14.265600)--(15.679700,13.960900)--(15.070300,13.683600)
  94     --(14.492200,13.429700)--(13.945300,13.199200)--(13.425800,12.996100)
  95     --(12.937500,12.812500)--(12.472700,12.652300)--(12.031300,12.511700)
  96     --(11.613300,12.394500)--(11.218800,12.293000)--(10.847700,12.210900)
  97     --(10.496100,12.144500)--(10.160200,12.093800)--(9.843750,12.062500)
  98     --(9.542970,12.043000)--(9.253910,12.039100)--(8.980470,12.043000)
  99     --(8.718750,12.062500)--(8.468750,12.093800)--(8.226560,12.132800)
 100     --(7.992190,12.179700)--(7.765630,12.234400)--(7.546880,12.300800)
 101     --(7.328130,12.367200)--(7.117190,12.441400)--(6.902340,12.523400)
 102     --(6.691410,12.605500)--(6.476560,12.687500)--(6.261720,12.773400)
 103     --(6.042970,12.863300)--(5.820310,12.949200)--(5.589840,13.031300)
 104     --(5.351560,13.117200)--(5.105470,13.195300)--(4.847660,13.269500)
 105     --(4.582030,13.343800)--(4.300780,13.406300)--(4.003910,13.464800)
 106     --(3.695310,13.515600)--(3.367190,13.558600)--(3.023440,13.589800)
 107     --(2.660160,13.609400)--(2.273440,13.621100)--(1.867190,13.617200)
 108     --(1.441410,13.601600)--(0.984375,13.574200)--(0.507813,13.527300)
 109     --(0.000000,13.464800)--cycle;
 110 drawoptions (withcolor (0.000000,0.000000,0.000000));
 111 pickup pencircle scaled 0.200000bp;
 112 draw (0.000000,24.800800)--(0.507813,24.859400)--(0.984375,24.906300)
 113     --(1.441410,24.937500)--(1.867190,24.953100)--(2.273440,24.953100)
 114     --(2.660160,24.945299)--(3.023440,24.921900)--(3.367190,24.890600)
 115     --(3.695310,24.847700)--(4.003910,24.796900)--(4.300780,24.742201)
 116     --(4.582030,24.675800)--(4.847660,24.605499)--(5.105470,24.527300)
 117     --(5.351560,24.449200)--(5.589840,24.367201)--(5.820310,24.281300)
 118     --(6.042970,24.195299)--(6.261720,24.109400)--(6.476560,24.023399)
 119     --(6.691410,23.937500)--(6.902340,23.855499)--(7.117190,23.777300)
 120     --(7.328130,23.703100)--(7.546880,23.632799)--(7.765630,23.570299)
 121     --(7.992190,23.511700)--(8.226560,23.464800)--(8.468750,23.425800)
 122     --(8.718750,23.394501)--(8.980470,23.378901)--(9.253910,23.371099)
 123     --(9.542970,23.375000)--(9.843750,23.394501)--(10.160200,23.429701)
 124     --(10.496100,23.476601)--(10.847700,23.542999)--(11.218800,23.625000)
 125     --(11.613300,23.726601)--(12.031300,23.843800)--(12.472700,23.984400)
 126     --(12.937500,24.144501)--(13.425800,24.328100)--(13.945300,24.535200)
 127     --(14.492200,24.761700)--(15.070300,25.015600)--(15.679700,25.292999)
 128     --(16.324200,25.601601)--(17.000000,25.933599)--(17.000000,14.601600)
 129     --(16.324200,14.265600)--(15.679700,13.960900)--(15.070300,13.683600)
 130     --(14.492200,13.429700)--(13.945300,13.199200)--(13.425800,12.996100)
 131     --(12.937500,12.812500)--(12.472700,12.652300)--(12.031300,12.511700)
 132     --(11.613300,12.394500)--(11.218800,12.293000)--(10.847700,12.210900)
 133     --(10.496100,12.144500)--(10.160200,12.093800)--(9.843750,12.062500)
 134     --(9.542970,12.043000)--(9.253910,12.039100)--(8.980470,12.043000)
 135     --(8.718750,12.062500)--(8.468750,12.093800)--(8.226560,12.132800)
 136     --(7.992190,12.179700)--(7.765630,12.234400)--(7.546880,12.300800)
 137     --(7.328130,12.367200)--(7.117190,12.441400)--(6.902340,12.523400)
 138     --(6.691410,12.605500)--(6.476560,12.687500)--(6.261720,12.773400)
 139     --(6.042970,12.863300)--(5.820310,12.949200)--(5.589840,13.031300)
 140     --(5.351560,13.117200)--(5.105470,13.195300)--(4.847660,13.269500)
 141     --(4.582030,13.343800)--(4.300780,13.406300)--(4.003910,13.464800)
 142     --(3.695310,13.515600)--(3.367190,13.558600)--(3.023440,13.589800)
 143     --(2.660160,13.609400)--(2.273440,13.621100)--(1.867190,13.617200)
 144     --(1.441410,13.601600)--(0.984375,13.574200)--(0.507813,13.527300)
 145     --(0.000000,13.464800)--cycle;
 146 pickup pencircle scaled 0.8bp;
 147 draw (0.000000,5.000000)--(0.000000,26);
 148 r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));
 149 picture pic;
 150 pic:=currentpicture;
 151 currentpicture:=nullpicture;
 152 drawoptions();
 153 draw pic scaled(r);
 154 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);
 155 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);
 156 draw (z0+(10.5,2));
 157 draw (z1-(10.5,2));
 158 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,0))--(z1-(8.5pt,0))--cycle);
 159 endfig;
 160 end