dev/latex/sources_MetaPost/bc-dz.mp

   1 prologues:=1;\r
   2 outputtemplate:="%j.mps";\r
   3 beginfig(1);\r
   4 drawoptions (withcolor (1.000000,0.000000,0.000000));\r
   5 linecap := butt;\r
   6 linejoin := mitered;\r
   7 fill (0.539063,2.386720)..controls (0.062500,3.054690) and (0.417969,3.679690)..(3.828130,9.566410)\r
   8     ..controls (7.230470,15.437500) and (7.667970,16.332001)..(8.425780,16.332001)\r
   9     ..controls (9.203130,16.332001) and (9.546880,15.644500)..(12.906300,9.839840)\r
  10     ..controls (16.246099,4.074220) and (16.789101,3.378910)..(16.304701,2.550780)\r
  11     ..controls (15.828100,1.730470) and (14.902300,1.925780)..(8.371090,1.906250)\r
  12     ..controls (1.863280,1.886720) and (1.015630,1.726560)..(0.539063,2.386720)\r
  13     --cycle;\r
  14 drawoptions (withcolor (0.976471,0.976471,0.976471));\r
  15 fill (14.859400,3.312500)--(2.042970,3.312500)--(8.449220,14.281300)\r
  16     --cycle;\r
  17 drawoptions (withcolor (0.000000,0.000000,0.000000));\r
  18 linecap := rounded;\r
  19 pickup pencircle scaled 1.117530bp;\r
  20 linejoin := mitered;\r
  21 draw (7.164060,9.410160)..controls (9.523440,9.652340) and (9.851560,9.390630)..(10.046900,9.023440)\r
  22     ..controls (10.632800,7.937500) and (6.195310,6.769530)..(6.410160,5.710940)\r
  23     ..controls (6.621090,4.656250) and (8.519530,5.039060)..(10.906300,5.105470);\r
  24 pickup pencircle scaled 0.000000bp;\r
  25 fill (7.226560,9.800780)..controls (7.023440,9.886720) and (6.460940,9.441410)..(6.457030,9.382810)\r
  26     ..controls (6.457030,9.312500) and (7.023440,8.921880)..(7.226560,9.027340)\r
  27     ..controls (7.429690,9.132810) and (7.429690,9.710940)..(7.226560,9.800780)\r
  28     --cycle;\r
  29 pickup pencircle scaled 0.223506bp;\r
  30 draw (7.226560,9.800780)..controls (7.023440,9.886720) and (6.460940,9.441410)..(6.457030,9.382810)\r
  31     ..controls (6.457030,9.312500) and (7.023440,8.921880)..(7.226560,9.027340)\r
  32     ..controls (7.429690,9.132810) and (7.429690,9.710940)..(7.226560,9.800780)\r
  33     --cycle;\r
  34 pickup pencircle scaled 0.01bp;\r
  35 draw (14.859400,3.312500)--(2.042970,3.312500)--(8.449220,14.281300)\r
  36     --cycle;\r
  37 draw (0.539063,2.386720)..controls (0.062500,3.054690) and (0.417969,3.679690)..(3.828130,9.566410)\r
  38     ..controls (7.230470,15.437500) and (7.667970,16.332001)..(8.425780,16.332001)\r
  39     ..controls (9.203130,16.332001) and (9.546880,15.644500)..(12.906300,9.839840)\r
  40     ..controls (16.246099,4.074220) and (16.789101,3.378910)..(16.304701,2.550780)\r
  41     ..controls (15.828100,1.730470) and (14.902300,1.925780)..(8.371090,1.906250)\r
  42     ..controls (1.863280,1.886720) and (1.015630,1.726560)..(0.539063,2.386720)\r
  43     --cycle;\r
  44 r:=17pt/(xpart(urcorner(currentpicture))-xpart(ulcorner(currentpicture)));\r
  45 picture pic;\r
  46 pic:=currentpicture;\r
  47 currentpicture:=nullpicture;\r
  48 drawoptions();\r
  49 draw pic scaled(r);\r
  50 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);\r
  51 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);\r
  52 draw (z0+(10.5,2));\r
  53 draw (z1-(10.5,2));\r
  54 clip currentpicture to ((z0-(8.5pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,-1pt))--(z1-(8.5pt,1pt))--cycle);\r
  55 endfig;\r
  56 end\r