dev/latex/sources_MetaPost/bc-oeil.mp

   1 prologues:=1;\r
   2 outputtemplate:="%j.mps";\r
   3 beginfig(1);\r
   4 drawoptions (withcolor (0.996078,0.996078,0.996078));\r
   5 linecap := butt;\r
   6 linejoin := mitered;\r
   7 fill (4.000000,198.309006)..controls (4.000000,198.309006) and (134.039001,313.355011)..(229.145004,328.597992)\r
   8     ..controls (351.214996,271.585999) and (300.035004,90.281303)..(224.570007,76.023399)\r
   9     ..controls (125.148003,104.089996) and (4.000000,198.309006)..(4.000000,198.309006)\r
  10     --cycle;\r
  11 drawoptions (withcolor (0.019608,0.019608,0.019608));\r
  12 pickup pencircle scaled 8.000000bp;\r
  13 draw (4.000000,198.309006)..controls (4.000000,198.309006) and (134.039001,313.355011)..(229.145004,328.597992)\r
  14     ..controls (351.214996,271.585999) and (300.035004,90.281303)..(224.570007,76.023399)\r
  15     ..controls (125.148003,104.089996) and (4.000000,198.309006)..(4.000000,198.309006)\r
  16     --cycle;\r
  17 drawoptions (withcolor (0.352941,0.352941,0.352941));\r
  18 pickup pencircle scaled 0.000000bp;\r
  19 fill (304.292999,202.882996)..controls (304.292999,134.901993) and (268.320007,79.734398)..(224.000000,79.734398)\r
  20     ..controls (179.679993,79.734398) and (143.707001,134.901993)..(143.707001,202.882996)\r
  21     ..controls (143.707001,270.859009) and (179.679993,326.031006)..(224.000000,326.031006)\r
  22     ..controls (268.320007,326.031006) and (304.292999,270.859009)..(304.292999,202.882996)\r
  23     --cycle;\r
  24 drawoptions (withcolor (0.019608,0.019608,0.019608));\r
  25 pickup pencircle scaled 0.573510bp;\r
  26 draw (304.292999,202.882996)..controls (304.292999,134.901993) and (268.320007,79.734398)..(224.000000,79.734398)\r
  27     ..controls (179.679993,79.734398) and (143.707001,134.901993)..(143.707001,202.882996)\r
  28     ..controls (143.707001,270.859009) and (179.679993,326.031006)..(224.000000,326.031006)\r
  29     ..controls (268.320007,326.031006) and (304.292999,270.859009)..(304.292999,202.882996)\r
  30     --cycle;\r
  31 drawoptions (withcolor (0.011765,0.011765,0.011765));\r
  32 pickup pencircle scaled 0.000000bp;\r
  33 fill (300.957001,210.882996)..controls (300.957001,174.397995) and (283.121002,144.785004)..(261.144989,144.785004)\r
  34     ..controls (239.167999,144.785004) and (221.332001,174.397995)..(221.332001,210.882996)\r
  35     ..controls (221.332001,247.367004) and (239.167999,276.980011)..(261.144989,276.980011)\r
  36     ..controls (283.121002,276.980011) and (300.957001,247.367004)..(300.957001,210.882996)\r
  37     --cycle;\r
  38 drawoptions (withcolor (0.019608,0.019608,0.019608));\r
  39 pickup pencircle scaled 4.568620bp;\r
  40 linejoin := beveled;\r
  41 draw (300.957001,210.882996)..controls (300.957001,174.397995) and (283.121002,144.785004)..(261.144989,144.785004)\r
  42     ..controls (239.167999,144.785004) and (221.332001,174.397995)..(221.332001,210.882996)\r
  43     ..controls (221.332001,247.367004) and (239.167999,276.980011)..(261.144989,276.980011)\r
  44     ..controls (283.121002,276.980011) and (300.957001,247.367004)..(300.957001,210.882996)\r
  45     --cycle;\r
  46 drawoptions (withcolor (0.996078,0.996078,0.996078));\r
  47 pickup pencircle scaled 0.000000bp;\r
  48 linejoin := mitered;\r
  49 fill (277.957001,207.453003)..controls (277.957001,192.813004) and (271.703003,180.925995)..(264.000000,180.925995)\r
  50     ..controls (256.296997,180.925995) and (250.042999,192.813004)..(250.042999,207.453003)\r
  51     ..controls (250.042999,222.098007) and (256.296997,233.983994)..(264.000000,233.983994)\r
  52     ..controls (271.703003,233.983994) and (277.957001,222.098007)..(277.957001,207.453003)\r
  53     --cycle;\r
  54 drawoptions (withcolor (0.019608,0.019608,0.019608));\r
  55 pickup pencircle scaled 0.574741bp;\r
  56 draw (277.957001,207.453003)..controls (277.957001,192.813004) and (271.703003,180.925995)..(264.000000,180.925995)\r
  57     ..controls (256.296997,180.925995) and (250.042999,192.813004)..(250.042999,207.453003)\r
  58     ..controls (250.042999,222.098007) and (256.296997,233.983994)..(264.000000,233.983994)\r
  59     ..controls (271.703003,233.983994) and (277.957001,222.098007)..(277.957001,207.453003)\r
  60     --cycle;\r
  61 drawoptions (withcolor (0.000000,0.000000,0.000000));\r
  62 pickup pencircle scaled 0.000000bp;\r
  63 fill (2.812500,214.108994)..controls (52.933601,269.074005) and (79.730499,313.589996)..(81.003899,346.910004)\r
  64     ..controls (99.347702,312.503998) and (60.734402,277.953003)..(72.902298,282.093994)\r
  65     ..controls (85.425797,286.355011) and (115.055000,330.593994)..(130.578003,369.023010)\r
  66     ..controls (141.667999,327.929993) and (108.476997,310.816010)..(124.801003,314.570007)\r
  67     ..controls (141.125000,318.324005) and (170.233994,365.976990)..(184.339996,392.992004)\r
  68     ..controls (189.875000,355.953003) and (168.957001,346.859009)..(173.343994,336.785004)\r
  69     ..controls (177.729996,326.714996) and (219.468994,371.343994)..(245.968994,404.085999)\r
  70     ..controls (241.977005,359.472992) and (206.429993,349.226990)..(214.949005,344.039001)\r
  71     ..controls (222.921997,339.187988) and (275.183990,360.070007)..(332.417999,416.703003)\r
  72     ..controls (299.968994,360.316010) and (251.145004,334.765991)..(272.445007,348.277008)\r
  73     ..controls (290.132996,359.492004) and (249.867004,331.312988)..(234.897995,331.105011)\r
  74     ..controls (221.276993,330.917999) and (185.270004,333.644989)..(151.675995,314.503998)\r
  75     ..controls (89.167999,278.886993) and (52.234402,256.464996)..(3.074220,203.625000)\r
  76     --cycle;\r
  77 drawoptions (withcolor (1.000000,1.000000,1.000000));\r
  78 pickup pencircle scaled 2.596320bp;\r
  79 draw (2.812500,214.108994)..controls (52.933601,269.074005) and (79.730499,313.589996)..(81.003899,346.910004)\r
  80     ..controls (99.347702,312.503998) and (60.734402,277.953003)..(72.902298,282.093994)\r
  81     ..controls (85.425797,286.355011) and (115.055000,330.593994)..(130.578003,369.023010)\r
  82     ..controls (141.667999,327.929993) and (108.476997,310.816010)..(124.801003,314.570007)\r
  83     ..controls (141.125000,318.324005) and (170.233994,365.976990)..(184.339996,392.992004)\r
  84     ..controls (189.875000,355.953003) and (168.957001,346.859009)..(173.343994,336.785004)\r
  85     ..controls (177.729996,326.714996) and (219.468994,371.343994)..(245.968994,404.085999)\r
  86     ..controls (241.977005,359.472992) and (206.429993,349.226990)..(214.949005,344.039001)\r
  87     ..controls (222.921997,339.187988) and (275.183990,360.070007)..(332.417999,416.703003)\r
  88     ..controls (299.968994,360.316010) and (251.145004,334.765991)..(272.445007,348.277008)\r
  89     ..controls (290.132996,359.492004) and (249.867004,331.312988)..(234.897995,331.105011)\r
  90     ..controls (221.276993,330.917999) and (185.270004,333.644989)..(151.675995,314.503998)\r
  91     ..controls (89.167999,278.886993) and (52.234402,256.464996)..(3.074220,203.625000);\r
  92 drawoptions (withcolor (0.000000,0.000000,0.000000));\r
  93 pickup pencircle scaled 0.000000bp;\r
  94 fill (5.441410,191.108994)..controls (54.652302,147.938004) and (84.289101,90.906303)..(85.453102,61.003899)\r
  95     ..controls (91.285202,82.062500) and (71.730499,118.402000)..(80.628899,116.969002)\r
  96     ..controls (90.867203,115.323997) and (123.637001,64.214798)..(129.031006,38.875000)\r
  97     ..controls (139.223007,60.371101) and (111.183998,91.113297)..(122.652000,88.886703)\r
  98     ..controls (133.020004,86.871101) and (170.675995,17.367201)..(170.675995,17.367201)\r
  99     ..controls (170.675995,17.367201) and (156.781006,66.769501)..(159.703003,72.378899)\r
 100     ..controls (162.625000,77.984398) and (209.746002,31.078100)..(234.098007,1.691410)\r
 101     ..controls (235.679993,29.421900) and (182.199005,61.042999)..(204.102005,64.722702)\r
 102     ..controls (226.007996,68.406303) and (250.315994,42.332001)..(278.519989,14.371100)\r
 103     ..controls (258.570007,46.328098) and (264.867004,46.730499)..(253.625000,59.542999)\r
 104     ..controls (241.335999,73.550797) and (232.921997,73.328102)..(225.938004,75.183601)\r
 105     ..controls (208.292999,79.867203) and (175.964996,75.191399)..(145.093994,92.371101)\r
 106     ..controls (87.652298,124.335999) and (46.656300,155.147995)..(1.480470,202.570007)\r
 107     --cycle;\r
 108 drawoptions (withcolor (1.000000,1.000000,1.000000));\r
 109 pickup pencircle scaled 2.400000bp;\r
 110 draw (5.441410,191.108994)..controls (54.652302,147.938004) and (84.289101,90.906303)..(85.453102,61.003899)\r
 111     ..controls (91.285202,82.062500) and (71.730499,118.402000)..(80.628899,116.969002)\r
 112     ..controls (90.867203,115.323997) and (123.637001,64.214798)..(129.031006,38.875000)\r
 113     ..controls (139.223007,60.371101) and (111.183998,91.113297)..(122.652000,88.886703)\r
 114     ..controls (133.020004,86.871101) and (170.675995,17.367201)..(170.675995,17.367201)\r
 115     ..controls (170.675995,17.367201) and (156.781006,66.769501)..(159.703003,72.378899)\r
 116     ..controls (162.625000,77.984398) and (209.746002,31.078100)..(234.098007,1.691410)\r
 117     ..controls (235.679993,29.421900) and (182.199005,61.042999)..(204.102005,64.722702)\r
 118     ..controls (226.007996,68.406303) and (250.315994,42.332001)..(278.519989,14.371100)\r
 119     ..controls (258.570007,46.328098) and (264.867004,46.730499)..(253.625000,59.542999)\r
 120     ..controls (241.335999,73.550797) and (232.921997,73.328102)..(225.938004,75.183601)\r
 121     ..controls (208.292999,79.867203) and (175.964996,75.191399)..(145.093994,92.371101)\r
 122     ..controls (87.652298,124.335999) and (46.656300,155.147995)..(1.480470,202.570007);\r
 123 \r
 124 r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));\r
 125 picture pic;\r
 126 pic:=currentpicture;\r
 127 currentpicture:=nullpicture;\r
 128 drawoptions();\r
 129 draw pic scaled(r);\r
 130 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);\r
 131 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);\r
 132 draw (z0+(10.5,2));\r
 133 draw (z1-(10.5,2));\r
 134 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,0))--(z1-(8.5pt,0))--cycle);\r
 135 endfig;\r
 136 end\r