Initialisation du projet bclogo
[bclogo.git] / dev / latex / sources_MetaPost / bc-cle.mp
1 outputtemplate:="%j.mps";\r
2 prologues := 1;\r
3 beginfig(1);\r
4 linecap := butt;\r
5 linejoin := mitered;\r
6 picture pic;\r
7 fill (77.968803,17.304701)\r
8     ..controls (69.660202,17.304701) and (61.351601,17.304701)..(53.046902,17.304701)\r
9     ..controls (52.609402,18.070299) and (51.937500,18.562500)..(51.183601,18.562500)\r
10     ..controls (50.429699,18.562500) and (49.757801,18.070299)..(49.320301,17.304701)\r
11     ..controls (48.273399,17.304701) and (47.226601,17.304701)..(46.179699,17.304701)\r
12     ..controls (35.859402,17.304701) and (25.531300,17.304701)..(15.207000,17.304701)\r
13     ..controls (14.511700,22.261700) and (11.406300,26.000000)..(7.675780,26.000000)\r
14     ..controls (3.437500,26.000000) and (0.000000,21.167999)..(0.000000,15.203100)\r
15     --(5.589840,15.203100)\r
16     ..controls (4.804690,15.824200) and (4.300780,16.781300)..(4.300780,17.859400)\r
17     ..controls (4.300780,19.722700) and (5.812500,21.234400)..(7.675780,21.234400)\r
18     ..controls (9.539060,21.234400) and (11.054700,19.722700)..(11.054700,17.859400)\r
19     ..controls (11.054700,16.781300) and (10.546900,15.824200)..(9.761720,15.203100)\r
20     ..controls (10.546900,14.585900) and (11.054700,13.628900)..(11.054700,12.550800)\r
21     ..controls (11.054700,10.687500) and (9.539060,9.171880)..(7.675780,9.171880)\r
22     ..controls (5.812500,9.171880) and (4.300780,10.687500)..(4.300780,12.550800)\r
23     ..controls (4.300780,13.628900) and (4.804690,14.585900)..(5.589840,15.203100)\r
24     --(0.000000,15.203100)\r
25     ..controls (0.000000,9.242190) and (3.437500,4.406250)..(7.675780,4.406250)\r
26     ..controls (11.406300,4.406250) and (14.511700,8.148440)..(15.207000,13.105500)\r
27     ..controls (25.132799,13.105500) and (35.058601,13.105500)..(44.980499,13.105500)\r
28     ..controls (46.429699,13.105500) and (47.875000,13.105500)..(49.320301,13.105500)\r
29     ..controls (49.757801,12.335900) and (50.429699,11.843800)..(51.183601,11.843800)\r
30     ..controls (51.937500,11.843800) and (52.609402,12.335900)..(53.046902,13.105500)\r
31     ..controls (56.183601,13.105500) and (59.320301,13.105500)..(62.457001,13.105500)\r
32     --(62.457001,8.488280)\r
33     ..controls (63.914101,8.488280) and (65.093803,7.304690)..(65.093803,5.847660)\r
34     ..controls (65.093803,4.390630) and (63.914101,3.207030)..(62.457001,3.207030)\r
35     --(62.457001,0.570313)\r
36     --(66.054703,0.570313)\r
37     ..controls (66.054703,2.027340) and (67.234398,3.207030)..(68.695297,3.207030)\r
38     ..controls (70.152298,3.207030) and (71.332001,2.027340)..(71.332001,0.570313)\r
39     --(74.929703,0.570313)\r
40     --(74.929703,3.207030)\r
41     ..controls (73.472702,3.207030) and (72.292999,4.390630)..(72.292999,5.847660)\r
42     ..controls (72.292999,7.304690) and (73.472702,8.488280)..(74.929703,8.488280)\r
43     --(74.929703,13.105500)\r
44     ..controls (75.933601,13.105500) and (76.937500,13.105500)..(77.941399,13.105500)\r
45     ..controls (77.949203,13.105500) and (77.960899,13.105500)..(77.968803,13.105500)\r
46     ..controls (80.675797,13.105500) and (80.675797,17.304701)..(77.968803,17.304701)\r
47     --cycle withcolor(.2,.2,.2);\r
48 pic:=currentpicture;\r
49 currentpicture:=nullpicture;\r
50 draw pic rotated(45);\r
51 r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));\r
52 pic:=currentpicture;\r
53 currentpicture:=nullpicture;\r
54 drawoptions();\r
55 draw pic scaled(r);\r
56 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);\r
57 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);\r
58 draw (z0+(10.5,2));\r
59 draw (z1-(10.5,2));\r
60 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,0))--(z1-(8.5pt,0))--cycle);\r
61 endfig;\r
62 end\r

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.