dev/latex/sources_MetaPost/bc-ditalie.mp

   1 prologues:=1;\r
   2 outputtemplate:="%j.mps";\r
   3 beginfig(1);\r
   4 linecap := butt;\r
   5 linejoin := rounded;\r
   6 drawoptions (withcolor (0,146/256,70/256));\r
   7 fill (72.000000,713.254028)--(72.000000,718.918030)--(72.507797,718.979980)\r
   8     --(72.984398,719.026978)--(73.437500,719.054993)--(73.867203,719.070007)\r
   9     --(74.273399,719.073975)--(74.660202,719.062988)--(75.023399,719.043030)\r
  10     --(75.367203,719.012024)--(75.695297,718.968994)--(76.003899,718.918030)\r
  11     --(76.300797,718.859009)--(76.578102,718.793030)--(76.847702,718.723022)\r
  12     --(77.105499,718.648010)--(77.351601,718.570007)--(77.589798,718.484009)\r
  13     --(77.820297,718.401978)--(78.042999,718.312988)--(78.234398,718.237976)\r
  14     --(78.234398,706.906006)--(78.042999,706.979980)--(77.820297,707.065979)\r
  15     --(77.589798,707.151978)--(77.351601,707.237976)--(77.105499,707.315979)\r
  16     --(76.847702,707.390991)--(76.578102,707.460999)--(76.300797,707.526978)\r
  17     --(76.003899,707.585999)--(75.695297,707.637024)--(75.367203,707.676025)\r
  18     --(75.023399,707.710999)--(74.660202,707.729980)--(74.273399,707.742004)\r
  19     --(73.867203,707.737976)--(73.437500,707.723022)--(72.984398,707.690979)\r
  20     --(72.507797,707.648010)--(72.000000,707.585999)--cycle;\r
  21 drawoptions (withcolor (1,1,1));\r
  22 fill (78.246101,712.565979)--(78.261703,718.226990)--(78.476601,718.140991)\r
  23     --(78.691399,718.059021)--(78.902298,717.976990)--(79.113297,717.895020)\r
  24     --(79.328102,717.820007)--(79.546898,717.754028)--(79.765602,717.687988)\r
  25     --(79.992203,717.632996)--(80.226601,717.585999)--(80.468803,717.543030)\r
  26     --(80.718803,717.515991)--(80.980499,717.495972)--(81.253899,717.492004)\r
  27     --(81.542999,717.495972)--(81.843803,717.515991)--(82.160202,717.546997)\r
  28     --(82.492203,717.598022)--(82.847702,717.664001)--(83.218803,717.745972)\r
  29     --(83.332001,717.773010)--(83.332001,706.440979)--(83.218803,706.414001)\r
  30     --(82.847702,706.328003)--(82.492203,706.265991)--(82.160202,706.215027)\r
  31     --(81.843803,706.179993)--(81.542999,706.164001)--(81.253899,706.156006)\r
  32     --(80.980499,706.164001)--(80.718803,706.184021)--(80.468803,706.210999)\r
  33     --(80.226601,706.250000)--(79.992203,706.301025)--(79.765602,706.354980)\r
  34     --(79.546898,706.418030)--(79.328102,706.487976)--(79.113297,706.562988)\r
  35     --(78.902298,706.645020)--(78.691399,706.723022)--(78.476601,706.809021)\r
  36     --(78.234398,706.906006)--cycle;\r
  37 drawoptions (withcolor (206/256,43/256,55/256));\r
  38 fill (83.332001,712.109009)--(83.332001,717.773010)--(83.613297,717.843994)\r
  39     --(84.031303,717.965027)--(84.468803,718.104980)--(84.933601,718.265991)\r
  40     --(85.425797,718.448975)--(85.945297,718.651978)--(86.492203,718.882996)\r
  41     --(87.070297,719.137024)--(87.679703,719.414001)--(88.324203,719.718994)\r
  42     --(89.000000,720.054993)--(89.000000,708.718994)--(88.324203,708.387024)\r
  43     --(87.679703,708.081970)--(87.070297,707.801025)--(86.492203,707.551025)\r
  44     --(85.945297,707.320007)--(85.425797,707.117004)--(84.933601,706.934021)\r
  45     --(84.468803,706.773010)--(84.031303,706.632996)--(83.613297,706.512024)\r
  46     --(83.332001,706.440979)--cycle;\r
  47 drawoptions (withcolor (0.000000,0.000000,0.000000));\r
  48 pickup pencircle scaled 0.199253bp;\r
  49 draw (72.000000,713.254028)--(72.000000,718.918030)--(72.507797,718.979980)\r
  50     --(72.984398,719.026978)--(73.437500,719.054993)--(73.867203,719.070007)\r
  51     --(74.273399,719.073975)--(74.660202,719.062988)--(75.023399,719.043030)\r
  52     --(75.367203,719.012024)--(75.695297,718.968994)--(76.003899,718.918030)\r
  53     --(76.300797,718.859009)--(76.578102,718.793030)--(76.847702,718.723022)\r
  54     --(77.105499,718.648010)--(77.351601,718.570007)--(77.589798,718.484009)\r
  55     --(77.820297,718.401978)--(78.042999,718.312988)--(78.261703,718.226990)\r
  56     --(78.476601,718.140991)--(78.691399,718.059021)--(78.902298,717.976990)\r
  57     --(79.113297,717.895020)--(79.328102,717.820007)--(79.546898,717.754028)\r
  58     --(79.765602,717.687988)--(79.992203,717.632996)--(80.226601,717.585999)\r
  59     --(80.468803,717.543030)--(80.718803,717.515991)--(80.980499,717.495972)\r
  60     --(81.253899,717.492004)--(81.542999,717.495972)--(81.843803,717.515991)\r
  61     --(82.160202,717.546997)--(82.492203,717.598022)--(82.847702,717.664001)\r
  62     --(83.218803,717.745972)--(83.613297,717.843994)--(84.031303,717.965027)\r
  63     --(84.468803,718.104980)--(84.933601,718.265991)--(85.425797,718.448975)\r
  64     --(85.945297,718.651978)--(86.492203,718.882996)--(87.070297,719.137024)\r
  65     --(87.679703,719.414001)--(88.324203,719.718994)--(89.000000,720.054993)\r
  66     --(89.000000,708.718994)--(88.324203,708.387024)--(87.679703,708.081970)\r
  67     --(87.070297,707.801025)--(86.492203,707.551025)--(85.945297,707.320007)\r
  68     --(85.425797,707.117004)--(84.933601,706.934021)--(84.468803,706.773010)\r
  69     --(84.031303,706.632996)--(83.613297,706.512024)--(83.218803,706.414001)\r
  70     --(82.847702,706.328003)--(82.492203,706.265991)--(82.160202,706.215027)\r
  71     --(81.843803,706.179993)--(81.542999,706.164001)--(81.253899,706.156006)\r
  72     --(80.980499,706.164001)--(80.718803,706.184021)--(80.468803,706.210999)\r
  73     --(80.226601,706.250000)--(79.992203,706.301025)--(79.765602,706.354980)\r
  74     --(79.546898,706.418030)--(79.328102,706.487976)--(79.113297,706.562988)\r
  75     --(78.902298,706.645020)--(78.691399,706.723022)--(78.476601,706.809021)\r
  76     --(78.261703,706.895020)--(78.042999,706.979980)--(77.820297,707.065979)\r
  77     --(77.589798,707.151978)--(77.351601,707.237976)--(77.105499,707.315979)\r
  78     --(76.847702,707.390991)--(76.578102,707.460999)--(76.300797,707.526978)\r
  79     --(76.003899,707.585999)--(75.695297,707.637024)--(75.367203,707.676025)\r
  80     --(75.023399,707.710999)--(74.660202,707.729980)--(74.273399,707.742004)\r
  81     --(73.867203,707.737976)--(73.437500,707.723022)--(72.984398,707.690979)\r
  82     --(72.507797,707.648010)--(72.000000,707.585999)--cycle;\r
  83 pickup pencircle scaled 0.8bp;\r
  84 draw (72.000000,699)--(72.000000,720);\r
  85 r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));\r
  86 picture pic;\r
  87 pic:=currentpicture;\r
  88 currentpicture:=nullpicture;\r
  89 drawoptions();\r
  90 draw pic scaled(r);\r
  91 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);\r
  92 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);\r
  93 draw (z0+(10.5,2));\r
  94 draw (z1-(10.5,2));\r
  95 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,0))--(z1-(8.5pt,0))--cycle);\r
  96 endfig;\r
  97 end\r