dev/latex/sources_MetaPost/bc-oeil.mp

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