#!/usr/X11R6/bin/robot
! use a script to draw a sine wave

! initialisation
n
reset
assign a1
360	! a full circle
dflimits
(0 -1 a1 1)
! some text
text Sine wave drawn using script
xminp ymaxp
! and a box
box
xminp yminp xmaxp ymaxp
color red
moveto
0 sin{0}
! now the loop to do the actual plotting
loop 0 a1 2
	lineto
	loop sin{loop}
! we do a flush here - otherwise the results of the plotting
! are not displayed until the end which looks boring!
	flush
endloop