dev/latex/sources_MetaPost/bc-rosevents.mp

   1 prologues:=1;
   2 outputtemplate:="%j.mps";
   3 beginfig(1);
   4 linecap := butt;
   5 linejoin := mitered;
   6 pickup pencircle scaled 0.000001bp;%0.199253bp;
   7 draw (87.324203,711.479980)..controls (87.324203,715.234009) and (84.273399,718.281006)..(80.519501,718.281006)
   8     ..controls (76.765602,718.281006) and (73.718803,715.234009)..(73.718803,711.479980)
   9     ..controls (73.718803,707.726990) and (76.765602,704.676025)..(80.519501,704.676025)
  10     ..controls (84.273399,704.676025) and (87.324203,707.726990)..(87.324203,711.479980)
  11     --cycle;
  12 pickup pencircle scaled 0.000000bp;
  13 linejoin := rounded;
  14 fill (80.519501,712.331970)--(80.519501,711.479980)--(85.933601,716.890991)
  15     --(80.519501,713.179993)--cycle;
  16 pickup pencircle scaled 0.000001bp;
  17 draw (80.519501,712.331970)--(80.519501,711.479980)--(85.933601,716.890991)
  18     --(80.519501,713.179993)--cycle;
  19 drawoptions (withcolor (1.000000,1.000000,1.000000));
  20 pickup pencircle scaled 0.000000bp;
  21 fill (81.371101,711.479980)--(80.519501,711.479980)--(85.933601,716.890991)
  22     --(82.222702,711.479980)--cycle;
  23 drawoptions (withcolor (0.000000,0.000000,0.000000));
  24 pickup pencircle scaled 0.000001bp;
  25 draw (81.371101,711.479980)--(80.519501,711.479980)--(85.933601,716.890991)
  26     --(82.222702,711.479980)--cycle;
  27 pickup pencircle scaled 0.000000bp;
  28 fill (79.667999,711.479980)--(80.519501,711.479980)--(75.109398,716.890991)
  29     --(78.820297,711.479980)--cycle;
  30 pickup pencircle scaled 0.000001bp;
  31 draw (79.667999,711.479980)--(80.519501,711.479980)--(75.109398,716.890991)
  32     --(78.820297,711.479980)--cycle;
  33 drawoptions (withcolor (1.000000,1.000000,1.000000));
  34 pickup pencircle scaled 0.000000bp;
  35 fill (80.519501,712.331970)--(80.519501,711.479980)--(75.109398,716.890991)
  36     --(80.519501,713.179993)--cycle;
  37 drawoptions (withcolor (0.000000,0.000000,0.000000));
  38 pickup pencircle scaled 0.000001bp;
  39 draw (80.519501,712.331970)--(80.519501,711.479980)--(75.109398,716.890991)
  40     --(80.519501,713.179993)--cycle;
  41 pickup pencircle scaled 0.000000bp;
  42 fill (80.519501,710.629028)--(80.519501,711.479980)--(75.109398,706.065979)
  43     --(80.519501,709.776978)--cycle;
  44 pickup pencircle scaled 0.000001bp;
  45 draw (80.519501,710.629028)--(80.519501,711.479980)--(75.109398,706.065979)
  46     --(80.519501,709.776978)--cycle;
  47 drawoptions (withcolor (1.000000,1.000000,1.000000));
  48 pickup pencircle scaled 0.000000bp;
  49 fill (79.667999,711.479980)--(80.519501,711.479980)--(75.109398,706.065979)
  50     --(78.820297,711.479980)--cycle;
  51 drawoptions (withcolor (0.000000,0.000000,0.000000));
  52 pickup pencircle scaled 0.000001bp;
  53 draw (79.667999,711.479980)--(80.519501,711.479980)--(75.109398,706.065979)
  54     --(78.820297,711.479980)--cycle;
  55 pickup pencircle scaled 0.000000bp;
  56 fill (81.371101,711.479980)--(80.519501,711.479980)--(85.933601,706.065979)
  57     --(82.222702,711.479980)--cycle;
  58 pickup pencircle scaled 0.000001bp;
  59 draw (81.371101,711.479980)--(80.519501,711.479980)--(85.933601,706.065979)
  60     --(82.222702,711.479980)--cycle;
  61 drawoptions (withcolor (1.000000,1.000000,1.000000));
  62 pickup pencircle scaled 0.000000bp;
  63 fill (80.519501,710.629028)--(80.519501,711.479980)--(85.933601,706.065979)
  64     --(80.519501,709.776978)--cycle;
  65 drawoptions (withcolor (0.000000,0.000000,0.000000));
  66 pickup pencircle scaled 0.000001bp;
  67 draw (80.519501,710.629028)--(80.519501,711.479980)--(85.933601,706.065979)
  68     --(80.519501,709.776978)--cycle;
  69 pickup pencircle scaled 0.000000bp;
  70 fill (81.121101,712.081970)--(80.519501,711.479980)--(89.023399,711.479980)
  71     --(81.722702,712.684021)--cycle;
  72 pickup pencircle scaled 0.000001bp;
  73 draw (81.121101,712.081970)--(80.519501,711.479980)--(89.023399,711.479980)
  74     --(81.722702,712.684021)--cycle;
  75 drawoptions (withcolor (1.000000,1.000000,1.000000));
  76 pickup pencircle scaled 0.000000bp;
  77 fill (81.121101,710.879028)--(80.519501,711.479980)--(89.023399,711.479980)
  78     --(81.722702,710.276978)--cycle;
  79 drawoptions (withcolor (0.000000,0.000000,0.000000));
  80 pickup pencircle scaled 0.000001bp;
  81 draw (81.121101,710.879028)--(80.519501,711.479980)--(89.023399,711.479980)
  82     --(81.722702,710.276978)--cycle;
  83 pickup pencircle scaled 0.000000bp;
  84 fill (79.917999,712.081970)--(80.519501,711.479980)--(80.519501,719.984009)
  85     --(79.316399,712.684021)--cycle;
  86 pickup pencircle scaled 0.000001bp;
  87 draw (79.917999,712.081970)--(80.519501,711.479980)--(80.519501,719.984009)
  88     --(79.316399,712.684021)--cycle;
  89 drawoptions (withcolor (1.000000,1.000000,1.000000));
  90 pickup pencircle scaled 0.000000bp;
  91 fill (81.121101,712.081970)--(80.519501,711.479980)--(80.519501,719.984009)
  92     --(81.722702,712.684021)--cycle;
  93 drawoptions (withcolor (0.000000,0.000000,0.000000));
  94 pickup pencircle scaled 0.000001bp;
  95 draw (81.121101,712.081970)--(80.519501,711.479980)--(80.519501,719.984009)
  96     --(81.722702,712.684021)--cycle;
  97 pickup pencircle scaled 0.000000bp;
  98 fill (79.917999,710.879028)--(80.519501,711.479980)--(72.015602,711.479980)
  99     --(79.316399,710.276978)--cycle;
 100 pickup pencircle scaled 0.000001bp;
 101 draw (79.917999,710.879028)--(80.519501,711.479980)--(72.015602,711.479980)
 102     --(79.316399,710.276978)--cycle;
 103 drawoptions (withcolor (1.000000,1.000000,1.000000));
 104 pickup pencircle scaled 0.000000bp;
 105 fill (79.917999,712.081970)--(80.519501,711.479980)--(72.015602,711.479980)
 106     --(79.316399,712.684021)--cycle;
 107 drawoptions (withcolor (0.000000,0.000000,0.000000));
 108 pickup pencircle scaled 0.000001bp;
 109 draw (79.917999,712.081970)--(80.519501,711.479980)--(72.015602,711.479980)
 110     --(79.316399,712.684021)--cycle;
 111 pickup pencircle scaled 0.000000bp;
 112 fill (81.121101,710.879028)--(80.519501,711.479980)--(80.519501,702.976990)
 113     --(81.722702,710.276978)--cycle;
 114 pickup pencircle scaled 0.000001bp;
 115 draw (81.121101,710.879028)--(80.519501,711.479980)--(80.519501,702.976990)
 116     --(81.722702,710.276978)--cycle;
 117 drawoptions (withcolor (1.000000,1.000000,1.000000));
 118 pickup pencircle scaled 0.000000bp;
 119 fill (79.917999,710.879028)--(80.519501,711.479980)--(80.519501,702.976990)
 120     --(79.316399,710.276978)--cycle;
 121 drawoptions (withcolor (0.000000,0.000000,0.000000));
 122 pickup pencircle scaled 0.00000bp;
 123 draw (79.917999,710.879028)--(80.519501,711.479980)--(80.519501,702.976990)
 124     --(79.316399,710.276978)--cycle;
 125 z0=.5*urcorner(currentpicture)+.5*ulcorner(currentpicture);
 126 z1=.5*lrcorner(currentpicture)+.5*llcorner(currentpicture);
 127 draw (z0+(10.5,2));
 128 draw (z1-(10.5,2));
 129 clip currentpicture to ((z0-(9pt,0))--(z0+(8.5pt,0))--(z1+(8.5pt,0))--(z1-(9pt,0))--cycle);
 130 endfig;
 131 end