%!PS-Adobe-2.0 EPSF-1.2
%%BoundingBox: 11 25 550 218
%%Pages: 1 1
%%DocumentFonts: Helvetica
%%EndComments
/drop {pop} def
/swap {exch} def
/over {1 index} def
/nip {swap drop} def
/rot {3 -1 roll} def
/xtf {1 mul 50 add} def
/ytf {1.5 mul 50 add} def
/rytf {ytf 0 ytf sub} def
/tf {exch xtf exch ytf} def
/mt {tf moveto} def
/lt {tf lineto} def

/xbase 0 def
/ybase 0 def

/barwidth 20 def
/chartwidth 500 def

/ylt {currentpoint drop swap ytf lineto} def
/rylt {0 swap rytf rlineto} def
/colors [{0 0 0} {1 0 0} {0.7 0 0} {0 0 1} {0 1 0} {0 1 1} {1 0 1}] def
/setncolor {colors swap get exec setrgbcolor} def

%color height -- color1
/bar { swap dup setncolor 1 add swap
       dup 0 gt {rylt currentpoint stroke moveto } {pop} ifelse
 } def
      
/gap {barwidth 3.5 mul 0 rmoveto} def

newpath /Helvetica findfont 12 scalefont setfont
/xjright {dup stringwidth pop neg 0 rmoveto} def
/xjcenter {dup stringwidth pop 2 div neg 0 rmoveto} def
/yjtop {0 -7 rmoveto} def
/yjcenter {0 -3.5 rmoveto} def
%str xtick[12]
/xtick1 { 0 setgray 0.5 setlinewidth
          barwidth 0 mul 0 rmoveto 0 -2 rlineto 0 -2 rmoveto xjcenter yjtop show stroke
          /xtick /xtick2 load def } def
/xtick2 { 0 setgray 0.5 setlinewidth 
          barwidth 0 mul 0 rmoveto 0 -11 rlineto 0 -2 rmoveto xjcenter yjtop show stroke
          /xtick /xtick1 load def } def
/xtick //xtick2 def

1 setlinejoin
0 setlinecap
0 0 translate
barwidth setlinewidth
40 0 mt

/compress
[ 0.0
  0.0
 29.3
 41.5
 29.3
  0.0
  0.0
] def

/jess
[
  0.0
  1.1
 23.2
 24.7
 40.5
  8.9
  1.6
] def

/db
[
  0.0
  0.0
 26.2
 31.0
 34.5
  6.0
  2.4
] def

/javac
[
  0.0
  5.9
 29.4
 31.0
 27.9
  4.9
  0.9
] def

/mpegaudio
[
  0.0
  0.0
 44.0
 32.0
 21.3
  1.3
  1.3
] def

/mtrt
[
  0.0
  0.9
 35.3
 37.9
 22.4
  2.6
  0.9
] def

/jack
[
  0.0    
  2.0
 25.5
 25.5
 38.7
  5.9
  2.5
] def

/str 20 string def

/bars {
    gsave bench str cvs xtick grestore
    0 gsave bench load {bar} forall grestore
    pop gap
} def

[ /compress /jess /db /javac /mpegaudio /mtrt /jack ]
{ << /bench rot >> begin bars end } forall

[] 0 setdash
0 setgray

0.5 setlinewidth
xbase 100 mt
xbase ybase lt
chartwidth ybase lt
stroke

%9.1 ybase mt (x-axis) yjcenter show
xbase 105 mt (factor (%)) xjcenter show

%x str xtick[12]
%/xtick1 { exch ybase mt 0 -2 rlineto 0 -2 rmoveto xjcenter yjtop show } def
%/xtick2 { exch ybase mt 0 -11 rlineto 0 -2 rmoveto xjcenter yjtop show } def

%x xtick
%/xtick { dup ybase mt 0 -2 rlineto 0 -2 rmoveto str cvs xjcenter yjtop show } def
%1 xtick
%2 xtick
%3 xtick
%4 xtick
%5 xtick
%6 xtick
%7 xtick
%8 xtick

/ytick { xbase exch mt -2 0 rlineto -2 0 rmoveto  str cvs xjright yjcenter show } def
0  dup ytick
20 dup ytick
40 dup ytick
60 dup ytick
80 dup ytick
100 dup ytick
stroke

5 setlinewidth
100 107 mt
gsave 0.00 setgray 10 0 rlineto 2 0 rmoveto (<= 0.2) yjcenter 0 setgray show stroke grestore
55 0 rmoveto
gsave 10 0 rlineto 2 0 rmoveto (<= 0.5) yjcenter 0 setgray show 1 setncolor stroke grestore
55 0 rmoveto
gsave 10 0 rlineto 2 0 rmoveto (<= 1.0) yjcenter 0 setgray show 2 setncolor stroke grestore
55 0 rmoveto
gsave 10 0 rlineto 2 0 rmoveto (<= 2.0) yjcenter 0 setgray show 3 setncolor stroke grestore
55 0 rmoveto
gsave 10 0 rlineto 2 0 rmoveto (<= 5.0) yjcenter 0 setgray show 4 setncolor stroke grestore
55 0 rmoveto
gsave 10 0 rlineto 2 0 rmoveto (<= 10.0) yjcenter 0 setgray show 5 setncolor stroke grestore
55 0 rmoveto
gsave 10 0 rlineto 2 0 rmoveto (> 10.0) yjcenter 0 setgray show 6 setncolor stroke grestore