dev/latex/sources_MetaPost/bc-crayon.mp

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