Initialisation du projet bclogo

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

diff --git a/dev/latex/sources_MetaPost/bc-eclaircie.mp b/dev/latex/sources_MetaPost/bc-eclaircie.mp
new file mode 100644 (file)
index 0000000..a592d1d
--- /dev/null
+++ b/dev/latex/sources_MetaPost/bc-eclaircie.mp
@@ -0,0 +1,54 @@
+prologues:=1;\r
+outputtemplate:="%j.mps";\r
+beginfig(1);\r
+drawoptions (withcolor (1.000000,1.000000,0.000000));\r
+linecap := butt;\r
+linejoin := mitered;\r
+fill (9.199220,9.339840)..controls (9.199220,11.164100) and (7.734380,12.628900)..(5.910160,12.628900)\r
+    ..controls (4.085940,12.628900) and (2.621090,11.164100)..(2.621090,9.339840)\r
+    ..controls (2.621090,7.511720) and (4.085940,6.050780)..(5.910160,6.050780)\r
+    ..controls (7.734380,6.050780) and (9.199220,7.511720)..(9.199220,9.339840)\r
+    --cycle;\r
+drawoptions (withcolor (1.000000,0.501961,0.250980));\r
+pickup pencircle scaled 0.199250bp;\r
+linejoin := rounded;\r
+draw (9.199220,9.339840)..controls (9.199220,11.164100) and (7.734380,12.628900)..(5.910160,12.628900)\r
+    ..controls (4.085940,12.628900) and (2.621090,11.164100)..(2.621090,9.339840)\r
+    ..controls (2.621090,7.511720) and (4.085940,6.050780)..(5.910160,6.050780)\r
+    ..controls (7.734380,6.050780) and (9.199220,7.511720)..(9.199220,9.339840)\r
+    --cycle;\r
+draw (5.910160,9.339840);\r
+draw (9.257810,11.269500)--(10.593800,12.043000);\r
+draw (7.843750,12.683600)--(8.613280,14.023400);\r
+draw (5.910160,13.203100)--(5.910160,14.746100);\r
+draw (3.980470,12.683600)--(3.207030,14.023400);\r
+draw (2.566410,11.269500)--(1.226560,12.043000);\r
+draw (2.046880,9.339840)--(0.503906,9.339840);\r
+draw (2.566410,7.406250)--(1.226560,6.636720);\r
+drawoptions (withcolor (0.854902,0.854902,0.854902));\r
+pickup pencircle scaled 0.000000bp;\r
+fill (3.316410,4.925780)..controls (3.699220,3.902340) and (15.824200,4.156250)..(16.601601,4.925780)\r
+    ..controls (19.074200,7.394530) and (15.902300,10.476600)..(13.507800,7.929690)\r
+    ..controls (12.671900,12.179700) and (7.644530,12.539100)..(6.925780,8.890630)\r
+    ..controls (3.574220,9.007810) and (2.703130,6.562500)..(3.316410,4.925780)\r
+    --cycle;\r
+drawoptions (withcolor (0.725490,0.725490,0.725490));\r
+pickup pencircle scaled 0.797010bp;\r
+draw (3.316410,4.925780)..controls (3.699220,3.902340) and (15.824200,4.156250)..(16.601601,4.925780)\r
+    ..controls (19.074200,7.394530) and (15.902300,10.476600)..(13.507800,7.929690)\r
+    ..controls (12.671900,12.179700) and (7.644530,12.539100)..(6.925780,8.890630)\r
+    ..controls (3.574220,9.007810) and (2.703130,6.562500)..(3.316410,4.925780)\r
+    --cycle;\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,4));\r
+clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,-1pt))--(z1-(8.5pt,1pt))--cycle);\r
+endfig;\r
+end\r