dev/latex/sources_MetaPost/bc-fleur.mp

   1 prologues:=1;\r
   2 outputtemplate:="%j.mps";\r
   3 beginfig(1);\r
   4 pickup pencircle scaled 0.800000bp;\r
   5 linecap := butt;\r
   6 linejoin := mitered;\r
   7 draw (10.468800,26.773399)..controls (10.468800,26.773399) and (16.121099,14.875000)..(12.097700,6.656250);\r
   8 drawoptions (withcolor (1.000000,0.760784,0.000000));\r
   9 pickup pencircle scaled 0.000000bp;\r
  10 fill (10.515600,30.835899)..controls (10.515600,30.835899) and (12.015600,33.253899)..(14.640600,34.242199)\r
  11     ..controls (17.550800,35.339802) and (19.160200,32.277302)..(15.113300,29.859400)\r
  12     ..controls (13.277300,28.765600) and (11.546900,28.886700)..(11.546900,28.886700)\r
  13     --cycle;\r
  14 drawoptions (withcolor (0.000000,0.000000,0.000000));\r
  15 pickup pencircle scaled 0.400000bp;\r
  16 draw (10.515600,30.835899)..controls (10.515600,30.835899) and (12.015600,33.253899)..(14.640600,34.242199)\r
  17     ..controls (17.550800,35.339802) and (19.160200,32.277302)..(15.113300,29.859400)\r
  18     ..controls (13.277300,28.765600) and (11.546900,28.886700)..(11.546900,28.886700);\r
  19 drawoptions (withcolor (1.000000,0.760784,0.000000));\r
  20 pickup pencircle scaled 0.000000bp;\r
  21 fill (10.855500,26.640600)..controls (10.855500,26.640600) and (12.285200,24.214800)..(14.785200,23.222700)\r
  22     ..controls (17.550800,22.121099) and (19.082001,25.191401)..(15.230500,27.617201)\r
  23     ..controls (13.484400,28.718800) and (11.839800,28.597700)..(11.839800,28.597700)\r
  24     --cycle;\r
  25 drawoptions (withcolor (0.000000,0.000000,0.000000));\r
  26 pickup pencircle scaled 0.400000bp;\r
  27 draw (10.855500,26.640600)..controls (10.855500,26.640600) and (12.285200,24.214800)..(14.785200,23.222700)\r
  28     ..controls (17.550800,22.121099) and (19.082001,25.191401)..(15.230500,27.617201)\r
  29     ..controls (13.484400,28.718800) and (11.839800,28.597700)..(11.839800,28.597700);\r
  30 drawoptions (withcolor (1.000000,0.760784,0.000000));\r
  31 pickup pencircle scaled 0.000000bp;\r
  32 fill (10.113300,30.992201)..controls (10.113300,30.992201) and (9.550780,35.507801)..(6.429690,36.339802)\r
  33     ..controls (4.441410,36.871101) and (4.121090,33.738300)..(5.929690,31.503901)\r
  34     ..controls (6.910160,30.289101) and (7.347660,29.632799)..(7.347660,29.632799)\r
  35     --cycle;\r
  36 drawoptions (withcolor (0.000000,0.000000,0.000000));\r
  37 pickup pencircle scaled 0.400000bp;\r
  38 draw (10.113300,30.992201)..controls (10.113300,30.992201) and (9.550780,35.507801)..(6.429690,36.339802)\r
  39     ..controls (4.441410,36.871101) and (4.121090,33.738300)..(5.929690,31.503901)\r
  40     ..controls (6.910160,30.289101) and (7.347660,29.632799)..(7.347660,29.632799);\r
  41 drawoptions (withcolor (1.000000,0.760784,0.000000));\r
  42 pickup pencircle scaled 0.000000bp;\r
  43 fill (8.429690,26.761700)..controls (7.796880,25.031300) and (7.339840,23.171900)..(8.175780,21.511700)\r
  44     ..controls (9.492190,18.890600) and (12.511700,19.367201)..(11.355500,23.394501)\r
  45     ..controls (10.793000,25.355499) and (10.421900,26.316401)..(10.421900,26.316401)\r
  46     --cycle;\r
  47 drawoptions (withcolor (0.000000,0.000000,0.000000));\r
  48 pickup pencircle scaled 0.400000bp;\r
  49 draw (8.429690,26.761700)..controls (7.796880,25.031300) and (7.339840,23.171900)..(8.175780,21.511700)\r
  50     ..controls (9.492190,18.890600) and (12.511700,19.367201)..(11.355500,23.394501)\r
  51     ..controls (10.793000,25.355499) and (10.421900,26.316401)..(10.421900,26.316401);\r
  52 drawoptions (withcolor (1.000000,0.760784,0.000000));\r
  53 pickup pencircle scaled 0.000000bp;\r
  54 fill (7.800780,27.187500)..controls (7.800780,27.187500) and (6.820310,25.238300)..(4.109380,24.343800)\r
  55     ..controls (1.105470,23.359400) and (-0.558594,26.117201)..(3.625000,28.296900)\r
  56     ..controls (5.519530,29.285200) and (7.304690,29.171900)..(7.304690,29.171900)\r
  57     --cycle;\r
  58 drawoptions (withcolor (0.000000,0.000000,0.000000));\r
  59 pickup pencircle scaled 0.400000bp;\r
  60 draw (7.800780,27.187500)..controls (7.800780,27.187500) and (6.820310,25.238300)..(4.109380,24.343800)\r
  61     ..controls (1.105470,23.359400) and (-0.558594,26.117201)..(3.625000,28.296900)\r
  62     ..controls (5.519530,29.285200) and (7.304690,29.171900)..(7.304690,29.171900);\r
  63 drawoptions (withcolor (1.000000,1.000000,1.000000));\r
  64 pickup pencircle scaled 0.000000bp;\r
  65 fill (11.886700,28.656300)..controls (11.886700,27.394501) and (10.835900,26.371099)..(9.542970,26.371099)\r
  66     ..controls (8.250000,26.371099) and (7.199220,27.394501)..(7.199220,28.656300)\r
  67     ..controls (7.199220,29.917999) and (8.250000,30.945299)..(9.542970,30.945299)\r
  68     ..controls (10.835900,30.945299) and (11.886700,29.917999)..(11.886700,28.656300)\r
  69     --cycle;\r
  70 drawoptions (withcolor (0.000000,0.000000,0.000000));\r
  71 pickup pencircle scaled 0.480000bp;\r
  72 linecap := rounded;\r
  73 linejoin := rounded;\r
  74 draw (11.886700,28.656300)..controls (11.886700,27.394501) and (10.835900,26.371099)..(9.542970,26.371099)\r
  75     ..controls (8.250000,26.371099) and (7.199220,27.394501)..(7.199220,28.656300)\r
  76     ..controls (7.199220,29.917999) and (8.250000,30.945299)..(9.542970,30.945299)\r
  77     ..controls (10.835900,30.945299) and (11.886700,29.917999)..(11.886700,28.656300)\r
  78     --cycle;\r
  79 drawoptions (withcolor (0.176471,0.603922,0.000000));\r
  80 pickup pencircle scaled 0.000000bp;\r
  81 linecap := butt;\r
  82 linejoin := mitered;\r
  83 fill (13.601600,13.570300)..controls (21.027300,23.515600) and (25.027300,22.144501)..(25.941401,22.371099)\r
  84     --cycle;\r
  85 drawoptions (withcolor (0.000000,0.000000,0.000000));\r
  86 pickup pencircle scaled 0.400000bp;\r
  87 draw (13.601600,13.570300)..controls (21.027300,23.515600) and (25.027300,22.144501)..(25.941401,22.371099);\r
  88 drawoptions (withcolor (0.176471,0.603922,0.000000));\r
  89 pickup pencircle scaled 0.000000bp;\r
  90 fill (14.000000,13.859400)..controls (22.765600,14.886700) and (25.191401,22.406300)..(26.113300,22.542999)\r
  91     --cycle;\r
  92 drawoptions (withcolor (0.000000,0.000000,0.000000));\r
  93 pickup pencircle scaled 0.400000bp;\r
  94 draw (14.000000,13.859400)..controls (22.765600,14.886700) and (25.191401,22.406300)..(26.113300,22.542999);\r
  95 r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));\r
  96 picture pic;\r
  97 pic:=currentpicture;\r
  98 currentpicture:=nullpicture;\r
  99 drawoptions();\r
 100 draw pic scaled(r);\r
 101 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);\r
 102 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);\r
 103 draw (z0+(10.5,2));\r
 104 draw (z1-(10.5,2));\r
 105 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,0))--(z1-(8.5pt,0))--cycle);\r
 106 endfig;\r
 107 end\r