dev/latex/sources_MetaPost/bc-trefle.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 (6.820310,9.214840)..controls (5.867190,10.476600) and (3.558590,12.203100)..(4.035160,13.820300)\r
   8     ..controls (4.984380,15.347700) and (5.859380,13.793000)..(6.679690,14.035200)\r
   9     ..controls (7.976560,14.082000) and (8.000000,15.031300)..(9.214840,14.105500)\r
  10     ..controls (10.156300,13.156300) and (7.488280,10.558600)..(6.820310,9.214840)\r
  11     --cycle;\r
  12 draw (7.281250,8.710940)..controls (8.441410,9.785160) and (9.921880,12.261700)..(11.582000,11.949200)\r
  13     ..controls (13.195300,11.160200) and (11.734400,10.132800)..(12.062500,9.343750)\r
  14     ..controls (12.242200,8.054690) and (13.187500,8.128910)..(12.390600,6.828130)\r
  15     ..controls (11.539100,5.792970) and (8.687500,8.183590)..(7.281250,8.710940)\r
  16     --cycle;\r
  17 draw (6.867190,8.410160)..controls (7.808590,7.140630) and (10.105500,5.394530)..(9.613280,3.781250)\r
  18     ..controls (8.652340,2.261720) and (7.792970,3.824220)..(6.968750,3.585940)\r
  19     ..controls (5.671880,3.550780) and (5.640630,2.601560)..(4.433590,3.535160)\r
  20     ..controls (3.500000,4.496090) and (6.187500,7.070310)..(6.867190,8.410160)\r
  21     --cycle;\r
  22 draw (6.421880,8.730470)..controls (5.148440,7.792970) and (3.398440,5.500000)..(1.785160,5.996090)\r
  23     ..controls (0.265625,6.960940) and (1.832030,7.816410)..(1.597660,8.640630)\r
  24     ..controls (1.562500,9.937500) and (0.617188,9.972660)..(1.554690,11.175800)\r
  25     ..controls (2.515630,12.109400) and (5.082030,9.414060)..(6.421880,8.730470)\r
  26     --cycle;\r
  27 drawoptions (withcolor (0.000000,0.501961,0.000000));\r
  28 pickup pencircle scaled 0.000000bp;\r
  29 fill (1.917970,6.425780)..controls (1.859380,6.460940) and (1.750000,6.558590)..(1.675780,6.640630)\r
  30     ..controls (1.480470,6.855470) and (1.492190,6.972660)..(1.757810,7.558590)\r
  31     ..controls (2.031250,8.164060) and (2.058590,8.296880)..(2.007810,8.761720)\r
  32     ..controls (1.964840,9.167970) and (1.890630,9.441410)..(1.703130,9.863280)\r
  33     ..controls (1.546880,10.222700) and (1.542970,10.378900)..(1.683590,10.625000)\r
  34     ..controls (1.851560,10.918000) and (1.894530,10.945300)..(2.164060,10.921900)\r
  35     ..controls (2.613280,10.886700) and (3.113280,10.589800)..(4.632810,9.460940)\r
  36     ..controls (5.121090,9.097660) and (5.562500,8.777340)..(5.605470,8.750000)\r
  37     ..controls (5.648440,8.722660) and (5.679690,8.691410)..(5.675780,8.679690)\r
  38     ..controls (5.660160,8.640630) and (4.488280,7.585940)..(4.160160,7.312500)\r
  39     ..controls (3.582030,6.835940) and (3.089840,6.539060)..(2.687500,6.417970)\r
  40     ..controls (2.417970,6.335940) and (2.054690,6.339840)..(1.917970,6.425780)\r
  41     --cycle;\r
  42 fill (6.218750,10.523400)..controls (5.230470,11.593800) and (4.878910,12.039100)..(4.636720,12.523400)\r
  43     ..controls (4.472660,12.851600) and (4.398440,13.113300)..(4.398440,13.367200)\r
  44     ..controls (4.398440,13.621100) and (4.449220,13.726600)..(4.664060,13.925800)\r
  45     ..controls (4.886720,14.128900) and (5.015630,14.128900)..(5.488280,13.910200)\r
  46     ..controls (6.148440,13.605500) and (6.378910,13.566400)..(6.953130,13.648400)\r
  47     ..controls (7.253910,13.691400) and (7.539060,13.781300)..(7.917970,13.945300)\r
  48     ..controls (8.281250,14.109400) and (8.425780,14.109400)..(8.683590,13.957000)\r
  49     ..controls (8.972660,13.781300) and (9.015630,13.710900)..(8.972660,13.449200)\r
  50     ..controls (8.902340,13.015600) and (8.464840,12.269500)..(7.625000,11.136700)\r
  51     ..controls (7.429690,10.875000) and (7.164060,10.507800)..(7.027340,10.316400)\r
  52     ..controls (6.890630,10.125000) and (6.769530,9.968750)..(6.757810,9.968750)\r
  53     ..controls (6.746090,9.968750) and (6.503910,10.218800)..(6.218750,10.523400)\r
  54     --cycle;\r
  55 fill (11.265600,7.093750)..controls (10.929700,7.207030) and (10.437500,7.437500)..(9.972660,7.707030)\r
  56     ..controls (9.457030,8.000000) and (8.027340,8.828130)..(8.015630,8.839840)\r
  57     ..controls (8.000000,8.855470) and (8.800780,9.761720)..(9.281250,10.277300)\r
  58     ..controls (10.082000,11.136700) and (10.718800,11.539100)..(11.261700,11.543000)\r
  59     ..controls (11.437500,11.543000) and (11.492200,11.527300)..(11.632800,11.429700)\r
  60     ..controls (11.828100,11.296900) and (11.933600,11.136700)..(11.933600,10.972700)\r
  61     ..controls (11.933600,10.910200) and (11.863300,10.636700)..(11.773400,10.371100)\r
  62     ..controls (11.644500,9.984380) and (11.613300,9.839840)..(11.613300,9.640630)\r
  63     ..controls (11.613300,9.167970) and (11.781300,8.667970)..(12.171900,7.968750)\r
  64     ..controls (12.269500,7.789060) and (12.293000,7.707030)..(12.281300,7.621090)\r
  65     ..controls (12.253900,7.445310) and (12.074200,7.074220)..(12.003900,7.035160)\r
  66     ..controls (11.890600,6.976560) and (11.535200,7.003910)..(11.265600,7.093750)\r
  67     --cycle;\r
  68 fill (5.062500,3.628910)..controls (4.656250,3.843750) and (4.617190,3.910160)..(4.683590,4.222660)\r
  69     ..controls (4.781250,4.683590) and (5.148440,5.285160)..(6.187500,6.683590)\r
  70     ..controls (6.531250,7.144530) and (6.835940,7.558590)..(6.863280,7.605470)\r
  71     ..controls (6.917970,7.683590) and (6.925780,7.675780)..(7.496090,7.050780)\r
  72     ..controls (8.492190,5.949220) and (8.765630,5.597660)..(9.023440,5.078130)\r
  73     ..controls (9.242190,4.644530) and (9.312500,4.207030)..(9.207030,3.957030)\r
  74     ..controls (9.183590,3.894530) and (9.085940,3.773440)..(8.996090,3.691410)\r
  75     ..controls (8.781250,3.492190) and (8.640630,3.488280)..(8.238280,3.667970)\r
  76     ..controls (7.437500,4.027340) and (7.320310,4.054690)..(6.851560,4.000000)\r
  77     ..controls (6.460940,3.953130) and (6.128910,3.863280)..(5.765630,3.695310)\r
  78     ..controls (5.382810,3.523440) and (5.277340,3.511720)..(5.062500,3.628910)\r
  79     --cycle;\r
  80 r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));\r
  81 picture pic;\r
  82 pic:=currentpicture;\r
  83 currentpicture:=nullpicture;\r
  84 drawoptions();\r
  85 draw pic scaled(r);\r
  86 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);\r
  87 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);\r
  88 draw (z0+(10.5,2));\r
  89 draw (z1-(10.5,4));\r
  90 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,-3pt))--(z1-(8.5pt,3pt))--cycle);\r
  91 endfig;\r
  92 end\r