sin
sin.ps
%!
%total of a seria of number
50 60 translate
newpath
0 0 moveto
1 1 360 {
dup
sin 50 mul
lineto
} for
stroke
showpage