%!

0.5 25 scale
0.05 setlinewidth

10 3 translate

0.8 setgray
newpath
-1 0 moveto
540 0 lineto
0 -2 moveto
0 2 lineto
stroke

0.5 setgray

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

/N 540 def

/x0 0 def 
/xf 1 def

/x x0 def
/dx xf x0 add def

newpath
x x f moveto
N {
/x x dx add def
x x f lineto
} repeat
stroke

showpage