dev/latex/sources_MetaPost/bc-dallemagne.mp

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