dev/latex/sources_MetaPost/bc-soleil.mp

   1 prologues:=1;
   2 outputtemplate:="%j.mps";
   3 beginfig(1);
   4 linecap := butt;
   5 linejoin := mitered;
   6 drawoptions (withcolor (1.000000,0.843100,0.000000));
   7 fill (84.382797,711.479980)..controls (84.382797,713.612976) and (82.652298,715.343994)..(80.519501,715.343994)
   8     ..controls (78.386703,715.343994) and (76.656303,713.612976)..(76.656303,711.479980)
   9     ..controls (76.656303,709.348022) and (78.386703,707.617004)..(80.519501,707.617004)
  10     ..controls (82.652298,707.617004) and (84.382797,709.348022)..(84.382797,711.479980)
  11     --cycle;
  12 linejoin := rounded;
  13 fill (85.929703,711.479980)--(89.019501,711.479980)--cycle;
  14 pickup pencircle scaled 0.797011bp;
  15 draw (85.929703,711.479980)--(89.019501,711.479980);
  16 pickup pencircle scaled 0.000000bp;
  17 fill (85.203102,714.184021)--(87.882797,715.729980)--cycle;
  18 pickup pencircle scaled 0.797011bp;
  19 draw (85.203102,714.184021)--(87.882797,715.729980);
  20 pickup pencircle scaled 0.000000bp;
  21 fill (83.222702,716.164001)--(84.769501,718.840027)--cycle;
  22 pickup pencircle scaled 0.797011bp;
  23 draw (83.222702,716.164001)--(84.769501,718.840027);
  24 pickup pencircle scaled 0.000000bp;
  25 fill (80.519501,716.890991)--(80.519501,719.979980)--cycle;
  26 pickup pencircle scaled 0.797011bp;
  27 draw (80.519501,716.890991)--(80.519501,719.979980);
  28 pickup pencircle scaled 0.000000bp;
  29 fill (77.816399,716.164001)--(76.269501,718.840027)--cycle;
  30 pickup pencircle scaled 0.797011bp;
  31 draw (77.816399,716.164001)--(76.269501,718.840027);
  32 pickup pencircle scaled 0.000000bp;
  33 fill (75.835899,714.184021)--(73.160202,715.729980)--cycle;
  34 pickup pencircle scaled 0.797011bp;
  35 draw (75.835899,714.184021)--(73.160202,715.729980);
  36 pickup pencircle scaled 0.000000bp;
  37 fill (75.109398,711.479980)--(72.019501,711.479980)--cycle;
  38 pickup pencircle scaled 0.797011bp;
  39 draw (75.109398,711.479980)--(72.019501,711.479980);
  40 pickup pencircle scaled 0.000000bp;
  41 fill (75.835899,708.776978)--(73.160202,707.229980)--cycle;
  42 pickup pencircle scaled 0.797011bp;
  43 draw (75.835899,708.776978)--(73.160202,707.229980);
  44 pickup pencircle scaled 0.000000bp;
  45 fill (77.816399,706.796997)--(76.269501,704.117004)--cycle;
  46 pickup pencircle scaled 0.797011bp;
  47 draw (77.816399,706.796997)--(76.269501,704.117004);
  48 pickup pencircle scaled 0.000000bp;
  49 fill (80.519501,706.070007)--(80.519501,702.979980)--cycle;
  50 pickup pencircle scaled 0.797011bp;
  51 draw (80.519501,706.070007)--(80.519501,702.979980);
  52 pickup pencircle scaled 0.000000bp;
  53 fill (83.222702,706.796997)--(84.769501,704.117004)--cycle;
  54 pickup pencircle scaled 0.797011bp;
  55 draw (83.222702,706.796997)--(84.769501,704.117004);
  56 pickup pencircle scaled 0.000000bp;
  57 fill (85.203102,708.776978)--(87.882797,707.229980)--cycle;
  58 pickup pencircle scaled 0.797011bp;
  59 draw (85.203102,708.776978)--(87.882797,707.229980);
  60 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);
  61 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);
  62 draw (z0+(10.5,2));
  63 draw (z1-(10.5,2));
  64 clip currentpicture to ((z0-(9pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,0))--(z1-(9pt,0))--cycle);
  65 endfig;
  66 end