dev/latex/sources_MetaPost/bc-poisson.mp

   1 prologues:=1;\r
   2 outputtemplate:="%j.mps";\r
   3 beginfig(1);\r
   4 drawoptions (withcolor (0.752941,0.752941,0.752941));\r
   5 linecap := butt;\r
   6 linejoin := mitered;\r
   7 fill (10.468800,10.171900)..controls (10.660200,10.828100) and (10.160200,11.367200)..(9.816410,11.250000)\r
   8     ..controls (7.621090,10.789100) and (7.199220,10.828100)..(5.468750,9.363280)\r
   9     ..controls (6.199220,9.054690) and (5.996090,8.917970)..(5.851560,8.363280)\r
  10     --cycle;\r
  11 drawoptions (withcolor (0.501961,0.501961,0.501961));\r
  12 pickup pencircle scaled 0.797010bp;\r
  13 linejoin := rounded;\r
  14 draw (10.468800,10.171900)..controls (10.660200,10.828100) and (10.160200,11.367200)..(9.816410,11.250000)\r
  15     ..controls (7.621090,10.789100) and (7.199220,10.828100)..(5.468750,9.363280)\r
  16     ..controls (6.199220,9.054690) and (5.996090,8.917970)..(5.851560,8.363280);\r
  17 drawoptions (withcolor (0.752941,0.752941,0.752941));\r
  18 pickup pencircle scaled 0.000000bp;\r
  19 fill (0.503906,8.933590)--(0.503906,2.152340)..controls (1.976560,3.625000) and (5.078130,10.039100)..(10.753900,10.144500)\r
  20     ..controls (13.699200,10.199200) and (17.746099,7.621090)..(17.484400,5.203130)\r
  21     ..controls (17.234400,2.902340) and (13.488300,1.316410)..(10.808600,1.367190)\r
  22     ..controls (5.132810,1.472660) and (3.289060,6.625000)..(0.503906,8.937500)\r
  23     --cycle;\r
  24 drawoptions (withcolor (0.501961,0.501961,0.501961));\r
  25 pickup pencircle scaled 0.797010bp;\r
  26 draw (0.503906,8.933590)--(0.503906,2.152340)..controls (1.976560,3.625000) and (5.078130,10.039100)..(10.753900,10.144500)\r
  27     ..controls (13.699200,10.199200) and (17.746099,7.621090)..(17.484400,5.203130)\r
  28     ..controls (17.234400,2.902340) and (13.488300,1.316410)..(10.808600,1.367190)\r
  29     ..controls (5.132810,1.472660) and (3.289060,6.625000)..(0.503906,8.937500)\r
  30     --cycle;\r
  31 drawoptions (withcolor (1.000000,1.000000,1.000000));\r
  32 pickup pencircle scaled 0.000000bp;\r
  33 fill (14.992200,7.304690)..controls (14.992200,7.789060) and (14.605500,8.179690)..(14.117200,8.179690)\r
  34     ..controls (13.632800,8.179690) and (13.242200,7.789060)..(13.242200,7.304690)\r
  35     ..controls (13.242200,6.820310) and (13.632800,6.429690)..(14.117200,6.429690)\r
  36     ..controls (14.605500,6.429690) and (14.992200,6.820310)..(14.992200,7.304690)\r
  37     --cycle;\r
  38 drawoptions (withcolor (0.000000,0.000000,0.000000));\r
  39 pickup pencircle scaled 0.0099620bp;\r
  40 draw (14.992200,7.304690)..controls (14.992200,7.789060) and (14.605500,8.179690)..(14.117200,8.179690)\r
  41     ..controls (13.632800,8.179690) and (13.242200,7.789060)..(13.242200,7.304690)\r
  42     ..controls (13.242200,6.820310) and (13.632800,6.429690)..(14.117200,6.429690)\r
  43     ..controls (14.605500,6.429690) and (14.992200,6.820310)..(14.992200,7.304690)\r
  44     --cycle;\r
  45 draw (14.121100,7.304690);\r
  46 pickup pencircle scaled 0.000000bp;\r
  47 fill (14.628900,7.359380)..controls (14.628900,7.554690) and (14.472700,7.710940)..(14.277300,7.710940)\r
  48     ..controls (14.082000,7.710940) and (13.925800,7.554690)..(13.925800,7.359380)\r
  49     ..controls (13.925800,7.160160) and (14.082000,7.003910)..(14.277300,7.003910)\r
  50     ..controls (14.472700,7.003910) and (14.628900,7.160160)..(14.628900,7.359380)\r
  51     --cycle;\r
  52 pickup pencircle scaled 0.099620bp;\r
  53 draw (14.628900,7.359380)..controls (14.628900,7.554690) and (14.472700,7.710940)..(14.277300,7.710940)\r
  54     ..controls (14.082000,7.710940) and (13.925800,7.554690)..(13.925800,7.359380)\r
  55     ..controls (13.925800,7.160160) and (14.082000,7.003910)..(14.277300,7.003910)\r
  56     ..controls (14.472700,7.003910) and (14.628900,7.160160)..(14.628900,7.359380)\r
  57     --cycle;\r
  58 draw (14.277300,7.359380);\r
  59 drawoptions (withcolor (1.000000,1.000000,1.000000));\r
  60 pickup pencircle scaled 0.000000bp;\r
  61 fill (15.867200,2.882810)..controls (14.863300,3.128910) and (14.238300,3.437500)..(13.171900,5.117190)\r
  62     ..controls (13.160200,3.632810) and (13.546900,2.312500)..(14.113300,1.988280)\r
  63     ..controls (15.328100,2.492190) and (15.066400,2.390630)..(15.867200,2.882810)\r
  64     --cycle;\r
  65 drawoptions (withcolor (0.000000,0.000000,0.000000));\r
  66 pickup pencircle scaled 0.0099620bp;\r
  67 draw (15.867200,2.882810)..controls (14.863300,3.128910) and (14.238300,3.437500)..(13.171900,5.117190)\r
  68     ..controls (13.160200,3.632810) and (13.546900,2.312500)..(14.113300,1.988280)\r
  69     ..controls (15.328100,2.492190) and (15.066400,2.390630)..(15.867200,2.882810)\r
  70     --cycle;\r
  71 draw (13.816400,2.281250)--(15.316400,3.035160);\r
  72 draw (13.597700,2.656250)--(14.867200,3.257810);\r
  73 draw (13.445300,3.074220)--(14.449200,3.523440);\r
  74 draw (13.328100,3.476560)--(14.128900,3.835940);\r
  75 draw (13.246100,3.957030)--(13.832000,4.179690);\r
  76 draw (13.183600,4.488280)--(13.503900,4.605470);\r
  77 drawoptions (withcolor (0.752941,0.752941,0.752941));\r
  78 pickup pencircle scaled 0.000000bp;\r
  79 fill (8.289060,3.558590)..controls (7.171880,3.109380) and (5.929690,2.183590)..(6.679690,1.738280)\r
  80     ..controls (8.328130,0.765625) and (8.964840,0.675781)..(10.742200,0.511719)\r
  81     ..controls (11.925800,0.402344) and (11.769500,1.343750)..(11.335900,3.007810)\r
  82     --cycle;\r
  83 drawoptions (withcolor (0.501961,0.501961,0.501961));\r
  84 pickup pencircle scaled 0.797010bp;\r
  85 draw (8.289060,3.558590)..controls (7.171880,3.109380) and (5.929690,2.183590)..(6.679690,1.738280)\r
  86     ..controls (8.328130,0.765625) and (8.964840,0.675781)..(10.742200,0.511719)\r
  87     ..controls (11.925800,0.402344) and (11.769500,1.343750)..(11.335900,3.007810);\r
  88 draw (12.738300,9.863280)..controls (11.007800,8.019530) and (9.890630,4.171880)..(12.968800,1.628910);\r
  89 r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));\r
  90 picture pic;\r
  91 pic:=currentpicture;\r
  92 currentpicture:=nullpicture;\r
  93 drawoptions();\r
  94 draw pic scaled(r);\r
  95 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);\r
  96 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);\r
  97 draw (z0+(10.5,2));\r
  98 draw (z1-(10.5,2));\r
  99 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,0))--(z1-(8.5pt,0))--cycle);\r
 100 endfig;\r
 101 end\r