REM NOTE: This program will ONLY run in an xterm window under NetBSD and Linux.
REM
REM It uses the Tektronics graphics terminal emulation that xterm provides
REM to draw a simple graph in the xterm 'Tek' window.
:
LIBRARY"examples/teklib"
PROCtekinit
PROCmode(0)
x%=0
PROCorigin(0, 768)
PROCline(0, 0, 1800, 0)
PROCline(0, -500, 0, 500)
PROCmove(0, 0)
FOR angle=0 TO 2*PI STEP PI/50
PROCdraw(x%, 500*SIN(angle))
x%+=16
NEXT
PROCtekexit
END
