Initialisation du projet bclogo
[bclogo.git] / dev / latex / sources_MetaPost / bc-crayon.mp
1 prologues:=1;\r
2 outputtemplate:="%j.mps";\r
3 beginfig(1);\r
4 linecap := butt;\r
5 linejoin := mitered;\r
6 fill (1.820310,2.886720)..controls (1.835940,2.886720) and (2.468750,3.269530)..(2.347660,3.414060)\r
7     ..controls (2.300780,3.464840) and (2.203130,3.457030)..(2.093750,3.437500)\r
8     ..controls (1.402340,3.300780) and (-0.019531,2.550780)..(0.707031,1.695310)\r
9     ..controls (1.269530,1.035160) and (3.406250,0.691406)..(5.628910,1.121090)\r
10     ..controls (8.707030,1.714840) and (11.316400,3.410160)..(10.296900,4.613280)\r
11     ..controls (9.601560,5.433590) and (7.484380,5.503910)..(5.761720,5.535160)\r
12     ..controls (4.867190,5.539060) and (2.957030,5.562500)..(2.367190,6.257810)\r
13     ..controls (2.117190,6.554690) and (2.164060,6.925780)..(2.421880,7.171880)\r
14     ..controls (2.847660,7.542970) and (4.031250,7.773440)..(4.121090,7.789060)\r
15     ..controls (4.394530,7.843750) and (5.140630,7.964840)..(6.023440,7.949220)\r
16     ..controls (6.515630,7.941410) and (7.074220,7.933590)..(7.406250,7.542970)\r
17     ..controls (7.492190,7.441410) and (7.542970,7.308590)..(7.562500,7.261720)\r
18     ..controls (7.558590,7.238280) and (7.570310,7.199220)..(7.593750,7.171880)\r
19     ..controls (7.628910,7.128910) and (7.753910,7.132810)..(7.828130,7.144530)\r
20     ..controls (8.027340,7.183590) and (8.425780,7.363280)..(8.667970,7.578130)\r
21     ..controls (8.792970,7.683590) and (8.992190,7.847660)..(8.667970,8.230470)\r
22     ..controls (8.289060,8.675780) and (7.664060,8.710940)..(6.984380,8.714840)\r
23     ..controls (6.000000,8.722660) and (5.226560,8.582030)..(4.917970,8.523440)\r
24     ..controls (2.476560,8.054690) and (0.238281,6.593750)..(1.117190,5.562500)\r
25     ..controls (1.765630,4.792970) and (3.757810,4.773440)..(4.914060,4.757810)\r
26     ..controls (6.542970,4.738280) and (8.429690,4.636720)..(9.042970,3.914060)\r
27     ..controls (9.269530,3.648440) and (9.402340,3.144530)..(8.855470,2.714840)\r
28     ..controls (8.335940,2.328130) and (7.156250,1.996090)..(6.425780,1.855470)\r
29     ..controls (4.550780,1.492190) and (2.476560,1.789060)..(1.968750,2.386720)\r
30     ..controls (1.945310,2.410160) and (1.757810,2.632810)..(1.820310,2.886720)\r
31     --cycle;\r
32 linecap := rounded;\r
33 linejoin := rounded;\r
34 fill (3.988280,1.867190)--(3.906250,1.953130)--(4.015630,3.871090)\r
35     ..controls (4.152340,6.234380) and (4.152340,6.238280)..(4.246090,6.394530)\r
36     ..controls (4.289060,6.464840) and (4.906250,7.335940)..(5.617190,8.328130)\r
37     ..controls (6.332030,9.324220) and (7.445310,10.886700)..(8.093750,11.800800)\r
38     ..controls (8.746090,12.718800) and (9.300780,13.464800)..(9.328130,13.464800)\r
39     ..controls (9.472660,13.464800) and (9.375000,13.296900)..(8.554690,12.125000)\r
40     ..controls (8.078130,11.449200) and (7.000000,9.917970)..(6.160160,8.722660)\r
41     ..controls (5.320310,7.523440) and (4.640630,6.539060)..(4.648440,6.531250)\r
42     ..controls (4.660160,6.523440) and (4.855470,6.496090)..(5.085940,6.468750)\r
43     ..controls (5.914060,6.375000) and (6.460940,6.226560)..(6.984380,5.960940)\r
44     ..controls (7.234380,5.828130) and (7.375000,5.726560)..(7.617190,5.488280)\r
45     ..controls (7.945310,5.160160) and (8.101560,4.910160)..(8.191410,4.558590)\r
46     ..controls (8.214840,4.457030) and (8.250000,4.371090)..(8.265630,4.371090)\r
47     ..controls (8.316410,4.371090) and (8.546880,4.707030)..(10.457000,7.558590)\r
48     ..controls (11.488300,9.097660) and (12.363300,10.386700)..(12.398400,10.425800)\r
49     ..controls (12.488300,10.523400) and (12.562500,10.453100)..(12.500000,10.332000)\r
50     ..controls (12.472700,10.285200) and (11.851600,9.335940)..(11.117200,8.218750)\r
51     ..controls (10.382800,7.101560) and (9.542970,5.824220)..(9.250000,5.378910)\r
52     ..controls (8.589840,4.371090) and (8.347660,3.984380)..(8.257810,3.781250)\r
53     ..controls (8.195310,3.640630) and (8.156250,3.609380)..(7.890630,3.480470)\r
54     ..controls (7.558590,3.316410) and (4.242190,1.835940)..(4.136720,1.804690)\r
55     ..controls (4.089840,1.789060) and (4.039060,1.812500)..(3.988280,1.867190)\r
56     --cycle;\r
57 fill (5.550780,2.695310)..controls (6.480470,3.101560) and (7.210940,3.433590)..(7.476560,3.566410)\r
58     ..controls (7.761720,3.710940) and (7.777340,3.742190)..(7.746090,4.164060)\r
59     ..controls (7.699220,4.875000) and (7.175780,5.429690)..(6.265630,5.730470)\r
60     ..controls (5.757810,5.898440) and (4.457030,6.085940)..(4.402340,5.996090)\r
61     ..controls (4.390630,5.980470) and (4.347660,5.382810)..(4.308590,4.671880)\r
62     ..controls (4.269530,3.964840) and (4.226560,3.285160)..(4.214840,3.160160)\r
63     ..controls (4.179690,2.679690) and (4.253910,2.558590)..(4.164060,2.089840)\r
64     ..controls (4.191410,2.039060) and (4.902340,2.429690)..(4.917970,2.429690)\r
65     ..controls (4.929690,2.429690) and (5.214840,2.550780)..(5.550780,2.695310)\r
66     --cycle;\r
67 pickup pencircle scaled 0.193644bp;\r
68 draw (3.988280,1.867190)--(3.906250,1.953130)--(4.015630,3.871090)\r
69     ..controls (4.152340,6.234380) and (4.152340,6.238280)..(4.246090,6.394530)\r
70     ..controls (4.289060,6.464840) and (4.906250,7.335940)..(5.617190,8.328130)\r
71     ..controls (6.332030,9.324220) and (7.445310,10.886700)..(8.093750,11.800800)\r
72     ..controls (8.746090,12.718800) and (9.300780,13.464800)..(9.328130,13.464800)\r
73     ..controls (9.472660,13.464800) and (9.375000,13.296900)..(8.554690,12.125000)\r
74     ..controls (8.078130,11.449200) and (7.000000,9.917970)..(6.160160,8.722660)\r
75     ..controls (5.320310,7.523440) and (4.640630,6.539060)..(4.648440,6.531250)\r
76     ..controls (4.660160,6.523440) and (4.855470,6.496090)..(5.085940,6.468750)\r
77     ..controls (5.914060,6.375000) and (6.460940,6.226560)..(6.984380,5.960940)\r
78     ..controls (7.234380,5.828130) and (7.375000,5.726560)..(7.617190,5.488280)\r
79     ..controls (7.945310,5.160160) and (8.101560,4.910160)..(8.191410,4.558590)\r
80     ..controls (8.214840,4.457030) and (8.250000,4.371090)..(8.265630,4.371090)\r
81     ..controls (8.316410,4.371090) and (8.546880,4.707030)..(10.457000,7.558590)\r
82     ..controls (11.488300,9.097660) and (12.363300,10.386700)..(12.398400,10.425800)\r
83     ..controls (12.488300,10.523400) and (12.562500,10.453100)..(12.500000,10.332000)\r
84     ..controls (12.472700,10.285200) and (11.851600,9.335940)..(11.117200,8.218750)\r
85     ..controls (10.382800,7.101560) and (9.542970,5.824220)..(9.250000,5.378910)\r
86     ..controls (8.589840,4.371090) and (8.347660,3.984380)..(8.257810,3.781250)\r
87     ..controls (8.195310,3.640630) and (8.156250,3.609380)..(7.890630,3.480470)\r
88     ..controls (7.558590,3.316410) and (4.242190,1.835940)..(4.136720,1.804690)\r
89     ..controls (4.089840,1.789060) and (4.039060,1.812500)..(3.988280,1.867190)\r
90     --cycle;\r
91 draw (5.550780,2.695310)..controls (6.480470,3.101560) and (7.210940,3.433590)..(7.476560,3.566410)\r
92     ..controls (7.761720,3.710940) and (7.777340,3.742190)..(7.746090,4.164060)\r
93     ..controls (7.699220,4.875000) and (7.175780,5.429690)..(6.265630,5.730470)\r
94     ..controls (5.757810,5.898440) and (4.457030,6.085940)..(4.402340,5.996090)\r
95     ..controls (4.390630,5.980470) and (4.347660,5.382810)..(4.308590,4.671880)\r
96     ..controls (4.269530,3.964840) and (4.226560,3.285160)..(4.214840,3.160160)\r
97     ..controls (4.179690,2.679690) and (4.253910,2.558590)..(4.164060,2.089840)\r
98     ..controls (4.191410,2.039060) and (4.902340,2.429690)..(4.917970,2.429690)\r
99     ..controls (4.929690,2.429690) and (5.214840,2.550780)..(5.550780,2.695310)\r
100     --cycle;\r
101 pickup pencircle scaled 0.304472bp;\r
102 linejoin := mitered;\r
103 draw (5.566410,6.316410)--(10.273400,13.074200);\r
104 draw (6.859380,5.847660)--(11.351600,12.460900);\r
105 linejoin := rounded;\r
106 draw (7.722660,5.128910)--(11.925800,11.203100)--(12.000000,11.347700);\r
107 drawoptions (withcolor (0.831373,0.000000,0.000000));\r
108 pickup pencircle scaled 0.000000bp;\r
109 fill (5.078130,6.480470)..controls (4.882810,6.511720) and (4.714840,6.542970)..(4.707030,6.546880)\r
110     ..controls (4.687500,6.562500) and (5.746090,8.097660)..(7.500000,10.589800)\r
111     ..controls (8.296880,11.726600) and (9.023440,12.773400)..(9.117190,12.918000)\r
112     ..controls (9.210940,13.058600) and (9.296880,13.175800)..(9.312500,13.175800)\r
113     ..controls (9.378910,13.179700) and (9.636720,12.976600)..(9.683590,12.886700)\r
114     ..controls (9.753910,12.750000) and (9.746090,12.652300)..(9.652340,12.433600)\r
115     ..controls (9.558590,12.218800) and (5.527340,6.421880)..(5.472660,6.425780)\r
116     ..controls (5.453130,6.425780) and (5.277340,6.453130)..(5.078130,6.480470)\r
117     --cycle;\r
118 drawoptions (withcolor (0.831373,0.000000,0.000000));\r
119 pickup pencircle scaled 0.000000bp;\r
120 fill (6.558590,6.156250)..controls (6.441410,6.207030) and (6.210940,6.277340)..(6.046880,6.320310)\r
121     --(5.746090,6.390630)--(5.851560,6.539060)..controls (5.910160,6.621090) and (6.835940,7.949220)..(7.910160,9.492190)\r
122     --(9.863280,12.296900)--(10.078100,12.414100)..controls (10.457000,12.617200) and (10.761700,12.613300)..(10.972700,12.402300)\r
123     --(11.093800,12.281300)--(8.984380,9.171880)..controls (7.703130,7.281250) and (6.855470,6.062500)..(6.824220,6.066410)\r
124     ..controls (6.792970,6.066410) and (6.671880,6.109380)..(6.558590,6.156250)\r
125     --cycle;\r
126 drawoptions (withcolor (0.831373,0.000000,0.000000));\r
127 pickup pencircle scaled 0.000000bp;\r
128 fill (7.558590,5.558590)..controls (7.460940,5.660160) and (7.308590,5.785160)..(7.222660,5.835940)\r
129     ..controls (7.136720,5.886720) and (7.078130,5.945310)..(7.085940,5.972660)\r
130     ..controls (7.097660,6.000000) and (11.050800,11.843800)..(11.230500,12.093800)\r
131     ..controls (11.253900,12.128900) and (11.437500,11.960900)..(11.554700,11.789100)\r
132     ..controls (11.668000,11.625000) and (11.691400,11.554700)..(11.703100,11.363300)\r
133     ..controls (11.714800,11.222700) and (11.703100,11.105500)..(11.671900,11.050800)\r
134     ..controls (11.609400,10.933600) and (7.867190,5.519530)..(7.796880,5.441410)\r
135     ..controls (7.738280,5.378910) and (7.726560,5.386720)..(7.558590,5.558590)\r
136     --cycle;\r
137 drawoptions (withcolor (0.831373,0.000000,0.000000));\r
138 pickup pencircle scaled 0.000000bp;\r
139 fill (8.246090,4.441410)..controls (8.238280,4.472660) and (8.203130,4.578130)..(8.171880,4.679690)\r
140     ..controls (8.140630,4.781250) and (8.066410,4.937500)..(8.007810,5.031250)\r
141     --(7.902340,5.199220)--(9.878910,8.054690)..controls (10.968800,9.628910) and (11.878900,10.914100)..(11.902300,10.914100)\r
142     ..controls (12.062500,10.914100) and (12.320300,10.621100)..(12.320300,10.441400)\r
143     ..controls (12.320300,10.378900) and (12.050800,9.949220)..(11.507800,9.148440)\r
144     ..controls (11.062500,8.488280) and (10.187500,7.195310)..(9.570310,6.277340)\r
145     ..controls (8.320310,4.429690) and (8.273440,4.363280)..(8.246090,4.441410)\r
146     --cycle;\r
147 drawoptions (withcolor (0.000000,0.000000,0.000000));\r
148 pickup pencircle scaled 0.243578bp;\r
149 linejoin := mitered;\r
150 draw (4.156250,3.816410)..controls (5.097660,3.859380) and (5.656250,3.519530)..(5.878910,2.843750);\r
151 pickup pencircle scaled 0.000000bp;\r
152 fill (4.179690,2.164060)..controls (4.207030,2.324220) and (4.210940,2.347660)..(4.214840,2.730470)\r
153     ..controls (4.218750,3.046880) and (4.218750,3.121090)..(4.230470,3.292970)\r
154     ..controls (4.238280,3.402340) and (4.246090,3.535160)..(4.250000,3.589840)\r
155     --(4.257810,3.687500)--(4.285160,3.691410)..controls (4.316410,3.695310) and (4.503910,3.687500)..(4.582030,3.679690)\r
156     ..controls (4.738280,3.664060) and (4.910160,3.625000)..(5.027340,3.582030)\r
157     ..controls (5.105470,3.554690) and (5.218750,3.496090)..(5.281250,3.453130)\r
158     ..controls (5.355470,3.406250) and (5.402340,3.367190)..(5.468750,3.296880)\r
159     ..controls (5.562500,3.203130) and (5.625000,3.113280)..(5.687500,2.988280)\r
160     ..controls (5.718750,2.921880) and (5.765630,2.800780)..(5.761720,2.796880)\r
161     ..controls (5.753910,2.789060) and (5.097660,2.507810)..(4.996090,2.468750)\r
162     ..controls (4.953130,2.453130) and (4.898440,2.429690)..(4.875000,2.417970)\r
163     ..controls (4.390630,2.171880) and (4.253910,2.105470)..(4.187500,2.093750)\r
164     --(4.167970,2.089840)--cycle;\r
165 linejoin := rounded;\r
166 %drawoptions (withcolor (0.411765,0.313725,0.000000));\r
167 %pickup pencircle scaled 0.0002063bp;\r
168 %draw (4.179690,2.164060)..controls (4.207030,2.324220) and (4.210940,2.347660)..(4.214840,2.730470)\r
169 %    ..controls (4.218750,3.046880) and (4.218750,3.121090)..(4.230470,3.292970)\r
170 %    ..controls (4.238280,3.402340) and (4.246090,3.535160)..(4.250000,3.589840)\r
171 %    --(4.257810,3.687500)--(4.285160,3.691410)..controls (4.316410,3.695310) and (4.503910,3.687500)..(4.582030,3.679690)\r
172 %    ..controls (4.738280,3.664060) and (4.910160,3.625000)..(5.027340,3.582030)\r
173 %    ..controls (5.105470,3.554690) and (5.218750,3.496090)..(5.281250,3.453130)\r
174 %    ..controls (5.355470,3.406250) and (5.402340,3.367190)..(5.468750,3.296880)\r
175 %    ..controls (5.562500,3.203130) and (5.625000,3.113280)..(5.687500,2.988280)\r
176 %    ..controls (5.718750,2.921880) and (5.765630,2.800780)..(5.761720,2.796880)\r
177 %    ..controls (5.753910,2.789060) and (5.097660,2.507810)..(4.996090,2.468750)\r
178 %    ..controls (4.953130,2.453130) and (4.898440,2.429690)..(4.875000,2.417970)\r
179 %    ..controls (4.390630,2.171880) and (4.253910,2.105470)..(4.187500,2.093750)\r
180 %    --(4.167970,2.089840)--cycle;\r
181 drawoptions (withcolor (0.913725,0.776471,0.686275));\r
182 pickup pencircle scaled 0.000000bp;\r
183 fill (5.937500,3.054690)..controls (5.707030,3.574220) and (5.214840,3.886720)..(4.539060,3.937500)\r
184     --(4.273440,3.957030)--(4.289060,4.164060)..controls (4.296880,4.277340) and (4.324220,4.695310)..(4.347660,5.085940)\r
185     ..controls (4.375000,5.480470) and (4.398440,5.847660)..(4.410160,5.902340)\r
186     --(4.425780,6.000000)--(4.753910,5.980470)..controls (5.078130,5.964840) and (5.707030,5.863280)..(6.050780,5.773440)\r
187     ..controls (6.750000,5.593750) and (7.332030,5.191410)..(7.566410,4.730470)\r
188     ..controls (7.738280,4.398440) and (7.796880,3.847660)..(7.675780,3.718750)\r
189     ..controls (7.621090,3.656250) and (7.335940,3.511720)..(6.617190,3.187500)\r
190     ..controls (5.949220,2.886720) and (6.007810,2.898440)..(5.937500,3.054690)\r
191     --cycle;\r
192 drawoptions (withcolor (0.411765,0.313725,0.000000));\r
193 pickup pencircle scaled 0.0002063bp;\r
194 draw (5.937500,3.054690)..controls (5.707030,3.574220) and (5.214840,3.886720)..(4.539060,3.937500)\r
195     --(4.273440,3.957030)--(4.289060,4.164060)..controls (4.296880,4.277340) and (4.324220,4.695310)..(4.347660,5.085940)\r
196     ..controls (4.375000,5.480470) and (4.398440,5.847660)..(4.410160,5.902340)\r
197     --(4.425780,6.000000)--(4.753910,5.980470)..controls (5.078130,5.964840) and (5.707030,5.863280)..(6.050780,5.773440)\r
198     ..controls (6.750000,5.593750) and (7.332030,5.191410)..(7.566410,4.730470)\r
199     ..controls (7.738280,4.398440) and (7.796880,3.847660)..(7.675780,3.718750)\r
200     ..controls (7.621090,3.656250) and (7.335940,3.511720)..(6.617190,3.187500)\r
201     ..controls (5.949220,2.886720) and (6.007810,2.898440)..(5.937500,3.054690)\r
202     --cycle;\r
203 picture pic;\r
204 pic:=currentpicture;\r
205 currentpicture:=nullpicture;\r
206 drawoptions();\r
207 draw pic scaled(1.38);\r
208 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);\r
209 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);\r
210 draw (z0+(10.5,2));\r
211 draw (z1-(10.5,2));\r
212 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,-1pt))--(z1-(8.5pt,1pt))--cycle);\r
213 endfig;\r
214 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.