Script makearchive pour dépot sur CTAN, suppression des CR-LF sur les fichiers metap...
[bclogo.git] / dev / latex / sources_MetaPost / bc-recyclage.mp
index c587c84..e2a20aa 100644 (file)
-prologues := 1;\r
-outputtemplate:="%j.mps";\r
-beginfig(1);\r
-drawoptions (withcolor (0.000000,0.431373,0.152941));\r
-linecap := butt;\r
-linejoin := mitered;\r
-fill (205.339996,423.945007)..controls (203.815994,423.886993) and (202.746002,423.710999)..(202.261993,423.500000)\r
-    ..controls (202.199005,423.468994) and (202.104996,423.433990)..(202.063004,423.398010)\r
-    ..controls (202.042999,423.378998) and (202.026993,423.320007)..(202.016006,423.300995)\r
-    ..controls (202.007996,423.285004) and (201.968994,423.265991)..(201.964996,423.250000)\r
-    ..controls (201.964996,423.242004) and (201.964996,423.207001)..(201.964996,423.199005)\r
-    ..controls (201.968994,423.175995) and (202.000000,423.125000)..(202.016006,423.101990)\r
-    ..controls (202.050995,423.042999) and (202.128998,422.964996)..(202.210999,422.902008)\r
-    ..controls (202.289001,422.847992) and (202.395004,422.761993)..(202.511993,422.703003)\r
-    ..controls (204.964996,421.484009) and (212.352005,415.644989)..(218.895004,409.695007)\r
-    ..controls (225.440994,403.746002) and (234.445007,395.691010)..(238.901993,391.820007)\r
-    ..controls (245.929993,385.722992) and (279.867004,324.636993)..(279.867004,318.089996)\r
-    ..controls (279.867004,318.085999) and (279.867004,318.046997)..(279.867004,318.039001)\r
-    ..controls (279.863007,318.031006) and (279.867004,318.003998)..(279.867004,317.992004)\r
-    ..controls (279.433990,316.523010) and (270.074005,311.039001)..(258.714996,305.628998)\r
-    --(237.563004,295.550995)--(263.929993,293.859009)..controls (278.425995,292.941010) and (301.781006,291.984009)..(315.812988,291.675995)\r
-    ..controls (345.324005,291.027008) and (343.269989,289.640991)..(369.433990,327.972992)\r
-    ..controls (394.988007,365.402008) and (403.152008,377.863007)..(403.394989,380.003998)\r
-    ..controls (403.394989,380.011993) and (403.445007,380.046997)..(403.445007,380.054993)\r
-    ..controls (403.445007,380.062988) and (403.445007,380.097992)..(403.445007,380.105011)\r
-    ..controls (403.445007,380.109009) and (403.394989,380.148010)..(403.394989,380.152008)\r
-    ..controls (403.394989,380.160004) and (403.398010,380.195007)..(403.394989,380.203003)\r
-    ..controls (403.394989,380.207001) and (403.398010,380.246002)..(403.394989,380.253998)\r
-    ..controls (403.390991,380.257996) and (403.347992,380.296997)..(403.347992,380.300995)\r
-    ..controls (403.343994,380.304993) and (403.300995,380.300995)..(403.296997,380.300995)\r
-    ..controls (403.292999,380.304993) and (403.300995,380.351990)..(403.296997,380.351990)\r
-    ..controls (403.292999,380.351990) and (403.253998,380.351990)..(403.246002,380.351990)\r
-    ..controls (403.242004,380.351990) and (403.203003,380.351990)..(403.195007,380.351990)\r
-    ..controls (403.191010,380.351990) and (403.156006,380.351990)..(403.148010,380.351990)\r
-    ..controls (402.015991,380.199005) and (394.843994,376.898010)..(386.960999,372.906006)\r
-    ..controls (379.140991,368.941010) and (371.703003,365.691010)..(370.082001,365.507996)\r
-    ..controls (370.054993,365.503998) and (370.003998,365.507996)..(369.980011,365.507996)\r
-    ..controls (369.960999,365.507996) and (369.902008,365.503998)..(369.882996,365.507996)\r
-    ..controls (369.847992,365.515991) and (369.773010,365.539001)..(369.734009,365.554993)\r
-    ..controls (368.011993,366.398010) and (361.984009,374.257996)..(355.878998,383.726990)\r
-    ..controls (349.425995,393.746002) and (340.175995,405.660004)..(335.324005,410.191010)\r
-    ..controls (326.691010,418.261993) and (325.574005,418.484009)..(280.164001,420.320007)\r
-    ..controls (254.651993,421.351990) and (225.733994,422.789001)..(215.914001,423.546997)\r
-    ..controls (211.468994,423.890991) and (207.796997,424.039001)..(205.339996,423.945007)\r
-    --cycle;\r
-fill (159.464996,414.609009)..controls (146.171997,414.125000) and (134.675995,408.757996)..(128.285004,400.957001)\r
-    ..controls (128.266006,400.941010) and (128.250000,400.921997)..(128.233994,400.906006)\r
-    ..controls (128.207001,400.875000) and (128.160004,400.839996)..(128.132996,400.808990)\r
-    ..controls (120.746002,394.316010) and (112.167999,382.757996)..(102.316002,366.003998)\r
-    ..controls (92.996101,350.152008) and (83.558601,335.027008)..(81.312500,332.339996)\r
-    ..controls (77.695297,328.003998) and (79.023399,326.351990)..(93.031303,317.992004)\r
-    ..controls (123.945000,299.542999) and (129.796997,296.003998)..(144.520004,286.910004)\r
-    ..controls (152.714996,281.847992) and (162.113007,276.203003)..(165.371002,274.347992)\r
-    ..controls (168.272995,272.699005) and (170.875000,271.417999)..(171.578003,271.320007)\r
-    ..controls (171.602005,271.316010) and (171.660004,271.320007)..(171.675995,271.320007)\r
-    ..controls (171.684006,271.320007) and (171.723007,271.367004)..(171.727005,271.371002)\r
-    ..controls (172.539001,272.332001) and (209.843994,335.925995)..(217.852005,350.015991)\r
-    ..controls (220.934006,355.437988) and (225.617004,363.234009)..(228.276993,367.292999)\r
-    ..controls (232.335999,373.484009) and (232.542999,375.816010)..(229.371002,381.742004)\r
-    ..controls (224.477005,390.886993) and (203.214996,406.097992)..(187.664001,411.582001)\r
-    ..controls (182.429993,413.429993) and (174.953003,414.269989)..(167.854996,414.261993)\r
-    ..controls (167.757996,414.261993) and (167.656006,414.265991)..(167.554993,414.261993)\r
-    ..controls (167.526993,414.265991) and (167.488007,414.261993)..(167.457001,414.261993)\r
-    ..controls (165.500000,414.484009) and (163.496002,414.609009)..(161.449005,414.609009)\r
-    ..controls (160.785004,414.609009) and (160.121002,414.636993)..(159.464996,414.609009)\r
-    --cycle;\r
-fill (400.367004,302.101990)--(357.222992,277.972992)..controls (333.492004,264.722992) and (312.363007,252.772995)..(310.250000,251.410004)\r
-    ..controls (306.527008,249.000000) and (313.328003,234.750000)..(346.000000,176.539001)\r
-    ..controls (350.589996,168.354996) and (355.945007,158.000000)..(357.914001,153.500000)\r
-    ..controls (359.683990,149.457001) and (361.753998,146.102005)..(362.781006,145.507996)\r
-    ..controls (362.808990,145.492004) and (362.855011,145.468994)..(362.882996,145.457001)\r
-    ..controls (362.890991,145.453003) and (362.921997,145.460999)..(362.929993,145.457001)\r
-    ..controls (362.953003,145.449005) and (363.007996,145.410004)..(363.031006,145.406006)\r
-    ..controls (363.035004,145.406006) and (363.074005,145.406006)..(363.078003,145.406006)\r
-    ..controls (363.949005,145.464996) and (372.925995,147.309006)..(383.039001,149.477005)\r
-    ..controls (417.101990,156.789001) and (438.175995,181.261993)..(438.199005,213.526993)\r
-    ..controls (438.214996,232.136993) and (435.300995,239.897995)..(414.714996,276.535004)\r
-    --cycle;\r
-fill (1.722660,291.328003)--(10.660200,283.781006)..controls (15.531300,279.664001) and (20.847700,276.281006)..(22.527300,276.187988)\r
-    ..controls (24.164101,276.140991) and (28.644501,273.707001)..(32.457001,270.773010)\r
-    --(39.359402,265.410004)--(31.316401,247.785004)..controls (26.875000,238.074005) and (22.054701,227.789001)..(20.640600,224.945007)\r
-    ..controls (19.226601,222.104996) and (18.058599,213.770004)..(18.058599,206.425995)\r
-    ..controls (18.058599,195.089996) and (22.472700,185.233994)..(47.105499,140.938004)\r
-    --(76.101601,88.757797)--(78.085899,112.191002)..controls (80.281303,137.852005) and (87.968803,156.233994)..(112.296997,193.964996)\r
-    ..controls (125.073997,213.781006) and (125.612999,214.188004)..(132.007996,209.656006)\r
-    ..controls (141.132996,203.188004) and (166.589996,189.089996)..(169.542999,188.750000)\r
-    ..controls (169.565994,188.750000) and (169.621002,188.750000)..(169.641006,188.750000)\r
-    ..controls (169.651993,188.753998) and (169.684006,188.750000)..(169.690994,188.750000)\r
-    ..controls (169.699005,188.753998) and (169.733994,188.800995)..(169.742004,188.800995)\r
-    ..controls (169.746002,188.804993) and (169.785004,188.796997)..(169.789001,188.800995)\r
-    ..controls (169.792999,188.804993) and (169.789001,188.848007)..(169.789001,188.852005)\r
-    ..controls (169.789001,188.854996) and (169.792999,188.895004)..(169.789001,188.901993)\r
-    ..controls (169.535004,190.078003) and (161.203003,205.507996)..(151.074005,223.554993)\r
-    ..controls (140.781006,241.891006) and (130.421997,260.777008)..(128.035004,265.562988)\r
-    ..controls (117.980003,285.695007) and (120.573997,284.503998)..(83.695297,286.464996)\r
-    ..controls (64.800797,287.464996) and (38.597698,288.949005)..(25.507799,289.789001)\r
-    --cycle;\r
-fill (291.781006,185.477005)--(281.800995,169.141006)..controls (276.324005,160.141006) and (263.390991,140.035004)..(253.054993,124.503998)\r
-    ..controls (242.718994,108.973000) and (234.238007,94.617203)..(234.238007,92.578102)\r
-    ..controls (234.238007,92.570297) and (234.238007,92.539101)..(234.238007,92.527298)\r
-    ..controls (234.401993,90.187500) and (244.968994,67.710899)..(257.820007,42.281300)\r
-    ..controls (283.093994,-7.718750) and (284.507996,-8.593750)..(285.476990,25.253901)\r
-    --(285.824005,37.566399)--(316.308990,38.757801)..controls (348.949005,40.058601) and (357.113007,43.031300)..(363.675995,55.937500)\r
-    ..controls (365.792999,60.105499) and (373.488007,72.882797)..(380.753998,84.335899)\r
-    ..controls (404.503998,121.758003) and (407.089996,125.859001)..(414.566010,138.007996)\r
-    --(421.964996,150.022995)--(408.160004,143.223007)..controls (384.441010,131.554993) and (347.375000,127.594002)..(307.371002,132.397995)\r
-    --(291.781006,134.233994)--(291.781006,159.854996)--cycle;\r
-fill (147.843994,145.309006)..controls (116.155998,145.125000) and (102.789001,144.171997)..(99.734398,142.031006)\r
-    ..controls (99.636703,141.960999) and (99.511703,141.854996)..(99.437500,141.781006)\r
-    ..controls (99.386703,141.729996) and (99.328102,141.636993)..(99.289101,141.582001)\r
-    ..controls (97.738297,139.539001) and (94.800797,132.102005)..(92.785202,125.051003)\r
-    ..controls (82.859398,90.363297) and (110.355003,44.058601)..(143.031006,40.394501)\r
-    ..controls (148.757996,39.753899) and (168.511993,38.984402)..(186.921997,38.707001)\r
-    --(220.382996,38.210899)--(220.382996,91.785202)--(220.382996,145.309006)\r
-    --(161.250000,145.309006)..controls (156.457001,145.309006) and (151.992004,145.332001)..(147.843994,145.309006)\r
-    --cycle;\r
-\r
-r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));\r
-picture pic;\r
-pic:=currentpicture;\r
-currentpicture:=nullpicture;\r
-drawoptions();\r
-draw pic scaled(r);\r
-z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);\r
-z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);\r
-draw (z0+(10.5,2));\r
-draw (z1-(10.5,2));\r
-clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,0))--(z1-(8.5pt,0))--cycle);\r
-endfig;\r
-end\r
+prologues := 1;
+outputtemplate:="%j.mps";
+beginfig(1);
+drawoptions (withcolor (0.000000,0.431373,0.152941));
+linecap := butt;
+linejoin := mitered;
+fill (205.339996,423.945007)..controls (203.815994,423.886993) and (202.746002,423.710999)..(202.261993,423.500000)
+    ..controls (202.199005,423.468994) and (202.104996,423.433990)..(202.063004,423.398010)
+    ..controls (202.042999,423.378998) and (202.026993,423.320007)..(202.016006,423.300995)
+    ..controls (202.007996,423.285004) and (201.968994,423.265991)..(201.964996,423.250000)
+    ..controls (201.964996,423.242004) and (201.964996,423.207001)..(201.964996,423.199005)
+    ..controls (201.968994,423.175995) and (202.000000,423.125000)..(202.016006,423.101990)
+    ..controls (202.050995,423.042999) and (202.128998,422.964996)..(202.210999,422.902008)
+    ..controls (202.289001,422.847992) and (202.395004,422.761993)..(202.511993,422.703003)
+    ..controls (204.964996,421.484009) and (212.352005,415.644989)..(218.895004,409.695007)
+    ..controls (225.440994,403.746002) and (234.445007,395.691010)..(238.901993,391.820007)
+    ..controls (245.929993,385.722992) and (279.867004,324.636993)..(279.867004,318.089996)
+    ..controls (279.867004,318.085999) and (279.867004,318.046997)..(279.867004,318.039001)
+    ..controls (279.863007,318.031006) and (279.867004,318.003998)..(279.867004,317.992004)
+    ..controls (279.433990,316.523010) and (270.074005,311.039001)..(258.714996,305.628998)
+    --(237.563004,295.550995)--(263.929993,293.859009)..controls (278.425995,292.941010) and (301.781006,291.984009)..(315.812988,291.675995)
+    ..controls (345.324005,291.027008) and (343.269989,289.640991)..(369.433990,327.972992)
+    ..controls (394.988007,365.402008) and (403.152008,377.863007)..(403.394989,380.003998)
+    ..controls (403.394989,380.011993) and (403.445007,380.046997)..(403.445007,380.054993)
+    ..controls (403.445007,380.062988) and (403.445007,380.097992)..(403.445007,380.105011)
+    ..controls (403.445007,380.109009) and (403.394989,380.148010)..(403.394989,380.152008)
+    ..controls (403.394989,380.160004) and (403.398010,380.195007)..(403.394989,380.203003)
+    ..controls (403.394989,380.207001) and (403.398010,380.246002)..(403.394989,380.253998)
+    ..controls (403.390991,380.257996) and (403.347992,380.296997)..(403.347992,380.300995)
+    ..controls (403.343994,380.304993) and (403.300995,380.300995)..(403.296997,380.300995)
+    ..controls (403.292999,380.304993) and (403.300995,380.351990)..(403.296997,380.351990)
+    ..controls (403.292999,380.351990) and (403.253998,380.351990)..(403.246002,380.351990)
+    ..controls (403.242004,380.351990) and (403.203003,380.351990)..(403.195007,380.351990)
+    ..controls (403.191010,380.351990) and (403.156006,380.351990)..(403.148010,380.351990)
+    ..controls (402.015991,380.199005) and (394.843994,376.898010)..(386.960999,372.906006)
+    ..controls (379.140991,368.941010) and (371.703003,365.691010)..(370.082001,365.507996)
+    ..controls (370.054993,365.503998) and (370.003998,365.507996)..(369.980011,365.507996)
+    ..controls (369.960999,365.507996) and (369.902008,365.503998)..(369.882996,365.507996)
+    ..controls (369.847992,365.515991) and (369.773010,365.539001)..(369.734009,365.554993)
+    ..controls (368.011993,366.398010) and (361.984009,374.257996)..(355.878998,383.726990)
+    ..controls (349.425995,393.746002) and (340.175995,405.660004)..(335.324005,410.191010)
+    ..controls (326.691010,418.261993) and (325.574005,418.484009)..(280.164001,420.320007)
+    ..controls (254.651993,421.351990) and (225.733994,422.789001)..(215.914001,423.546997)
+    ..controls (211.468994,423.890991) and (207.796997,424.039001)..(205.339996,423.945007)
+    --cycle;
+fill (159.464996,414.609009)..controls (146.171997,414.125000) and (134.675995,408.757996)..(128.285004,400.957001)
+    ..controls (128.266006,400.941010) and (128.250000,400.921997)..(128.233994,400.906006)
+    ..controls (128.207001,400.875000) and (128.160004,400.839996)..(128.132996,400.808990)
+    ..controls (120.746002,394.316010) and (112.167999,382.757996)..(102.316002,366.003998)
+    ..controls (92.996101,350.152008) and (83.558601,335.027008)..(81.312500,332.339996)
+    ..controls (77.695297,328.003998) and (79.023399,326.351990)..(93.031303,317.992004)
+    ..controls (123.945000,299.542999) and (129.796997,296.003998)..(144.520004,286.910004)
+    ..controls (152.714996,281.847992) and (162.113007,276.203003)..(165.371002,274.347992)
+    ..controls (168.272995,272.699005) and (170.875000,271.417999)..(171.578003,271.320007)
+    ..controls (171.602005,271.316010) and (171.660004,271.320007)..(171.675995,271.320007)
+    ..controls (171.684006,271.320007) and (171.723007,271.367004)..(171.727005,271.371002)
+    ..controls (172.539001,272.332001) and (209.843994,335.925995)..(217.852005,350.015991)
+    ..controls (220.934006,355.437988) and (225.617004,363.234009)..(228.276993,367.292999)
+    ..controls (232.335999,373.484009) and (232.542999,375.816010)..(229.371002,381.742004)
+    ..controls (224.477005,390.886993) and (203.214996,406.097992)..(187.664001,411.582001)
+    ..controls (182.429993,413.429993) and (174.953003,414.269989)..(167.854996,414.261993)
+    ..controls (167.757996,414.261993) and (167.656006,414.265991)..(167.554993,414.261993)
+    ..controls (167.526993,414.265991) and (167.488007,414.261993)..(167.457001,414.261993)
+    ..controls (165.500000,414.484009) and (163.496002,414.609009)..(161.449005,414.609009)
+    ..controls (160.785004,414.609009) and (160.121002,414.636993)..(159.464996,414.609009)
+    --cycle;
+fill (400.367004,302.101990)--(357.222992,277.972992)..controls (333.492004,264.722992) and (312.363007,252.772995)..(310.250000,251.410004)
+    ..controls (306.527008,249.000000) and (313.328003,234.750000)..(346.000000,176.539001)
+    ..controls (350.589996,168.354996) and (355.945007,158.000000)..(357.914001,153.500000)
+    ..controls (359.683990,149.457001) and (361.753998,146.102005)..(362.781006,145.507996)
+    ..controls (362.808990,145.492004) and (362.855011,145.468994)..(362.882996,145.457001)
+    ..controls (362.890991,145.453003) and (362.921997,145.460999)..(362.929993,145.457001)
+    ..controls (362.953003,145.449005) and (363.007996,145.410004)..(363.031006,145.406006)
+    ..controls (363.035004,145.406006) and (363.074005,145.406006)..(363.078003,145.406006)
+    ..controls (363.949005,145.464996) and (372.925995,147.309006)..(383.039001,149.477005)
+    ..controls (417.101990,156.789001) and (438.175995,181.261993)..(438.199005,213.526993)
+    ..controls (438.214996,232.136993) and (435.300995,239.897995)..(414.714996,276.535004)
+    --cycle;
+fill (1.722660,291.328003)--(10.660200,283.781006)..controls (15.531300,279.664001) and (20.847700,276.281006)..(22.527300,276.187988)
+    ..controls (24.164101,276.140991) and (28.644501,273.707001)..(32.457001,270.773010)
+    --(39.359402,265.410004)--(31.316401,247.785004)..controls (26.875000,238.074005) and (22.054701,227.789001)..(20.640600,224.945007)
+    ..controls (19.226601,222.104996) and (18.058599,213.770004)..(18.058599,206.425995)
+    ..controls (18.058599,195.089996) and (22.472700,185.233994)..(47.105499,140.938004)
+    --(76.101601,88.757797)--(78.085899,112.191002)..controls (80.281303,137.852005) and (87.968803,156.233994)..(112.296997,193.964996)
+    ..controls (125.073997,213.781006) and (125.612999,214.188004)..(132.007996,209.656006)
+    ..controls (141.132996,203.188004) and (166.589996,189.089996)..(169.542999,188.750000)
+    ..controls (169.565994,188.750000) and (169.621002,188.750000)..(169.641006,188.750000)
+    ..controls (169.651993,188.753998) and (169.684006,188.750000)..(169.690994,188.750000)
+    ..controls (169.699005,188.753998) and (169.733994,188.800995)..(169.742004,188.800995)
+    ..controls (169.746002,188.804993) and (169.785004,188.796997)..(169.789001,188.800995)
+    ..controls (169.792999,188.804993) and (169.789001,188.848007)..(169.789001,188.852005)
+    ..controls (169.789001,188.854996) and (169.792999,188.895004)..(169.789001,188.901993)
+    ..controls (169.535004,190.078003) and (161.203003,205.507996)..(151.074005,223.554993)
+    ..controls (140.781006,241.891006) and (130.421997,260.777008)..(128.035004,265.562988)
+    ..controls (117.980003,285.695007) and (120.573997,284.503998)..(83.695297,286.464996)
+    ..controls (64.800797,287.464996) and (38.597698,288.949005)..(25.507799,289.789001)
+    --cycle;
+fill (291.781006,185.477005)--(281.800995,169.141006)..controls (276.324005,160.141006) and (263.390991,140.035004)..(253.054993,124.503998)
+    ..controls (242.718994,108.973000) and (234.238007,94.617203)..(234.238007,92.578102)
+    ..controls (234.238007,92.570297) and (234.238007,92.539101)..(234.238007,92.527298)
+    ..controls (234.401993,90.187500) and (244.968994,67.710899)..(257.820007,42.281300)
+    ..controls (283.093994,-7.718750) and (284.507996,-8.593750)..(285.476990,25.253901)
+    --(285.824005,37.566399)--(316.308990,38.757801)..controls (348.949005,40.058601) and (357.113007,43.031300)..(363.675995,55.937500)
+    ..controls (365.792999,60.105499) and (373.488007,72.882797)..(380.753998,84.335899)
+    ..controls (404.503998,121.758003) and (407.089996,125.859001)..(414.566010,138.007996)
+    --(421.964996,150.022995)--(408.160004,143.223007)..controls (384.441010,131.554993) and (347.375000,127.594002)..(307.371002,132.397995)
+    --(291.781006,134.233994)--(291.781006,159.854996)--cycle;
+fill (147.843994,145.309006)..controls (116.155998,145.125000) and (102.789001,144.171997)..(99.734398,142.031006)
+    ..controls (99.636703,141.960999) and (99.511703,141.854996)..(99.437500,141.781006)
+    ..controls (99.386703,141.729996) and (99.328102,141.636993)..(99.289101,141.582001)
+    ..controls (97.738297,139.539001) and (94.800797,132.102005)..(92.785202,125.051003)
+    ..controls (82.859398,90.363297) and (110.355003,44.058601)..(143.031006,40.394501)
+    ..controls (148.757996,39.753899) and (168.511993,38.984402)..(186.921997,38.707001)
+    --(220.382996,38.210899)--(220.382996,91.785202)--(220.382996,145.309006)
+    --(161.250000,145.309006)..controls (156.457001,145.309006) and (151.992004,145.332001)..(147.843994,145.309006)
+    --cycle;
+
+r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));
+picture pic;
+pic:=currentpicture;
+currentpicture:=nullpicture;
+drawoptions();
+draw pic scaled(r);
+z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);
+z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);
+draw (z0+(10.5,2));
+draw (z1-(10.5,2));
+clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,0))--(z1-(8.5pt,0))--cycle);
+endfig;
+end

Licence Creative Commons Les fichiers de Syracuse sont mis à disposition (sauf mention contraire) selon les termes de la
Licence Creative Commons Attribution - Pas d’Utilisation Commerciale - Partage dans les Mêmes Conditions 4.0 International.