dev/latex/sources_MetaPost/bc-poisson.mp

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