%!PS-Adobe-2.0 EPSF-1.2 %%BoundingBox: 0 0 256 100 gsave 72 2.54 div dup scale .5 .5 scale .05 setlinewidth % x y dx grau -box- /box { 10 dict begin /grau exch def /dx exch def gsave translate newpath 0 0 moveto dx 0 rlineto 0 1 rlineto dx neg 0 rlineto closepath gsave grau setgray fill grestore stroke grestore end} def 0 6 1 .9 box 17 6 1 .9 box 0 5 2 .8 box 12 5 6 .8 box 0 4 2 .7 box 12 4 6 .7 box 0 3 2 .6 box 12 3 6 .6 box 0 2 2 .5 box 12 2 6 .5 box 0 1 2 .4 box 12 1 6 .4 box 0 0 2 .3 box 2 3 10 .7 box 2 2 10 .6 box 2 1 10 .5 box 2 0 1 .4 box newpath 3 1 11 { 1 moveto 0 3 rlineto } for stroke newpath 13 1 17 { 1 moveto 0 5 rlineto } for stroke newpath 1 0 moveto 0 6 rlineto stroke grestore