Initialisation du projet bclogo

[bclogo.git] / dev / latex / sources_MetaPost / bc-feuvert.mp

diff --git a/dev/latex/sources_MetaPost/bc-feuvert.mp b/dev/latex/sources_MetaPost/bc-feuvert.mp
new file mode 100644 (file)
index 0000000..2848888
--- /dev/null
+++ b/dev/latex/sources_MetaPost/bc-feuvert.mp
@@ -0,0 +1,61 @@
+outputtemplate:="%j.mps";\r
+prologues := 1;\r
+beginfig(1);\r
+path p[];\r
+linecap := butt;\r
+linejoin := mitered;\r
+fill (40.746101,48.289101)\r
+    --(43.507801,48.289101)\r
+    --(43.507801,56.335899)\r
+    ..controls (43.507801,56.335899) and (57.378899,68.437500)..(55.039101,72.914101)\r
+    --(43.507801,72.914101)\r
+    --(43.507801,75.675797)\r
+    ..controls (43.507801,78.062500) and (41.570301,80.000000)..(39.183601,80.000000)\r
+    --(16.121099,80.000000)\r
+    ..controls (13.734400,80.000000) and (11.796900,78.062500)..(11.796900,75.675797)\r
+    --(11.796900,72.914101)\r
+    --(0.265625,72.914101)\r
+    ..controls (-2.074220,68.437500) and (11.796900,56.335899)..(11.796900,56.335899)\r
+    --(11.796900,48.289101)\r
+    --(0.265625,48.289101)\r
+    ..controls (-2.074220,43.812500) and (11.796900,31.710899)..(11.796900,31.710899)\r
+    --(11.796900,23.664101)\r
+    --(0.265625,23.664101)\r
+    ..controls (-2.074220,19.187500) and (11.796900,7.085940)..(11.796900,7.085940)\r
+    --(11.796900,4.324220)\r
+    ..controls (11.796900,1.937500) and (13.734400,0.000000)..(16.121099,0.000000)\r
+    --(39.183601,0.000000)\r
+    ..controls (41.570301,0.000000) and (43.507801,1.937500)..(43.507801,4.324220)\r
+    --(43.507801,7.085940)\r
+    ..controls (43.507801,7.085940) and (57.378899,19.187500)..(55.039101,23.664101)\r
+    --(43.507801,23.664101)\r
+    --(43.507801,31.710899)\r
+    ..controls (43.507801,31.710899) and (57.378899,43.812500)..(55.039101,48.289101)\r
+    --(43.507801,48.289101)\r
+    --(40.746101,48.289101)\r
+    --(40.746101,15.382800)\r
+    ..controls (40.746101,8.152340) and (34.886700,2.289060)..(27.652300,2.289060)\r
+    ..controls (20.421900,2.289060) and (14.558600,8.152340)..(14.558600,15.382800)\r
+    --(14.558600,64.617203)\r
+    ..controls (14.558600,71.847702) and (20.421900,77.710899)..(27.652300,77.710899)\r
+    ..controls (34.886700,77.710899) and (40.746101,71.847702)..(40.746101,64.617203)\r
+    --cycle;\r
+\r
+fill fullcircle scaled(17.777302) shifted(27.6523,64.277298);\r
+fill fullcircle scaled(17.777302) shifted(27.6523,39.953098);\r
+fill fullcircle scaled(17.777302) shifted(27.6523,15.628898) withcolor(82/256,174/256,39/256);\r
+draw fullcircle scaled(17.777302) shifted(27.6523,15.628898);\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