dev/latex/sources_MetaPost/bc-soleil.mp

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