'===========================================================================
' Subject: COMPUTERIZED SPIROGRAPH           Date: 05-19-93 (12:36)       
' Author:  Aaron Scott Zabudsky              Code: QB, QBasic, PDS        
' Origin:  zabudsk@ecf.toronto.edu         Packet: GRAPHICS.ABC
'===========================================================================
SCREEN 12
CLS
ox = 300: oy = 300: r = 30
FOR n = 2 TO 50 STEP .5

pi = 3.141592653589793#
FOR x = 0 * 100 TO 2 * 100 STEP n
REM LINE (ox, oy)-(ox + 100 * COS(x), oy + 100 * SIN(x))
LINE (ox + 100 * COS(x * pi / 100), oy + 100 * SIN(x * pi / 100))-(ox + 100 * COS(x * pi / 100 + n), oy + 100 * SIN(x * pi / 100 + n))

NEXT x
CLS
NEXT n