dev/latex/sources_MetaPost/bc-fleur.mp

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