dev/latex/sources_MetaPost/bc-eclaircie.mp

   1 prologues:=1;\r
   2 outputtemplate:="%j.mps";\r
   3 beginfig(1);\r
   4 drawoptions (withcolor (1.000000,1.000000,0.000000));\r
   5 linecap := butt;\r
   6 linejoin := mitered;\r
   7 fill (9.199220,9.339840)..controls (9.199220,11.164100) and (7.734380,12.628900)..(5.910160,12.628900)\r
   8     ..controls (4.085940,12.628900) and (2.621090,11.164100)..(2.621090,9.339840)\r
   9     ..controls (2.621090,7.511720) and (4.085940,6.050780)..(5.910160,6.050780)\r
  10     ..controls (7.734380,6.050780) and (9.199220,7.511720)..(9.199220,9.339840)\r
  11     --cycle;\r
  12 drawoptions (withcolor (1.000000,0.501961,0.250980));\r
  13 pickup pencircle scaled 0.199250bp;\r
  14 linejoin := rounded;\r
  15 draw (9.199220,9.339840)..controls (9.199220,11.164100) and (7.734380,12.628900)..(5.910160,12.628900)\r
  16     ..controls (4.085940,12.628900) and (2.621090,11.164100)..(2.621090,9.339840)\r
  17     ..controls (2.621090,7.511720) and (4.085940,6.050780)..(5.910160,6.050780)\r
  18     ..controls (7.734380,6.050780) and (9.199220,7.511720)..(9.199220,9.339840)\r
  19     --cycle;\r
  20 draw (5.910160,9.339840);\r
  21 draw (9.257810,11.269500)--(10.593800,12.043000);\r
  22 draw (7.843750,12.683600)--(8.613280,14.023400);\r
  23 draw (5.910160,13.203100)--(5.910160,14.746100);\r
  24 draw (3.980470,12.683600)--(3.207030,14.023400);\r
  25 draw (2.566410,11.269500)--(1.226560,12.043000);\r
  26 draw (2.046880,9.339840)--(0.503906,9.339840);\r
  27 draw (2.566410,7.406250)--(1.226560,6.636720);\r
  28 drawoptions (withcolor (0.854902,0.854902,0.854902));\r
  29 pickup pencircle scaled 0.000000bp;\r
  30 fill (3.316410,4.925780)..controls (3.699220,3.902340) and (15.824200,4.156250)..(16.601601,4.925780)\r
  31     ..controls (19.074200,7.394530) and (15.902300,10.476600)..(13.507800,7.929690)\r
  32     ..controls (12.671900,12.179700) and (7.644530,12.539100)..(6.925780,8.890630)\r
  33     ..controls (3.574220,9.007810) and (2.703130,6.562500)..(3.316410,4.925780)\r
  34     --cycle;\r
  35 drawoptions (withcolor (0.725490,0.725490,0.725490));\r
  36 pickup pencircle scaled 0.797010bp;\r
  37 draw (3.316410,4.925780)..controls (3.699220,3.902340) and (15.824200,4.156250)..(16.601601,4.925780)\r
  38     ..controls (19.074200,7.394530) and (15.902300,10.476600)..(13.507800,7.929690)\r
  39     ..controls (12.671900,12.179700) and (7.644530,12.539100)..(6.925780,8.890630)\r
  40     ..controls (3.574220,9.007810) and (2.703130,6.562500)..(3.316410,4.925780)\r
  41     --cycle;\r
  42 r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));\r
  43 picture pic;\r
  44 pic:=currentpicture;\r
  45 currentpicture:=nullpicture;\r
  46 drawoptions();\r
  47 draw pic scaled(r);\r
  48 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);\r
  49 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);\r
  50 draw (z0+(10.5,2));\r
  51 draw (z1-(10.5,4));\r
  52 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,-1pt))--(z1-(8.5pt,1pt))--cycle);\r
  53 endfig;\r
  54 end\r