%!PS EPSF %%Title: Sine function %%Creator: cgl (inspired by Batagelj) %%CreationDate: May 27 1996 %%BoundingBox: -200 -110 200 110 %%EndProlog /Courier findfont 15 scalefont setfont %figure scaled by 100 %x-axes and label -200 0 moveto 200 0 lineto -15 -15 rmoveto (x) show %y-axes and label 0 -110 moveto 0 110 lineto -35 -10 rmoveto (sin) show %function -180 0 moveto -180 10 180{%from step to dup sin 100 mul%(x, 100sin x) lineto } for stroke showpage