dev/latex/sources_MetaPost/bc-dallemagne.mp

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