%!
72 72 scale
0.02 setlinewidth
0.9 setgray 
4.5 3 translate

newpath
-4 0 moveto
3.5 0 lineto
0 -2 moveto
0 2 lineto
stroke

/f { 1 dict begin
/x exch def
x sin 
end
} def

newpath
-4 0 moveto
x f lineto

stroke

/A [ 21 { 0 } repeat ] def
/n y 1 add 0.1 div round cvi def

A n
A n get 1 add
put

/k -1 def
/nn 0 def

20{
newpath
4 3 div k moveto
4 3 div A nn get 7 div add k lineto
4 3 div A nn get 7 div add k 0.1 add lineto
4 3 div k 0.1 add lineto
/k k 0.1 add def
/nn nn 1 add def
0 0.8 0.8 setrgbcolor
fill

} repeat
showpage