04-10-2005, 05:46 PM
Quote:I could only get it to 11 lines....
[syntax="qbasic"]
SCREEN 13
amp = 10
DO
r% = (r% + 1)
IF r% = 200 THEN r% = -120
FOR i% = 1 TO 360
PSET (((i% + amp) * SIN(r% * 3.141593 / 180)) + 160, ((r% + amp) * SIN(i% * 3.141593 / 180)) + 100), (i% MOD 255)
NEXT i%
WAIT &H3DA, 8
CLS
LOOP
[/syntax]
Taken down to 8:-
[syntax="QBASIC"]
1 IF amp = 0 THEN SCREEN 13 ELSE CLS
2 amp = 10
3 IF r% = 200 THEN r% = -120 ELSE r% = r% + 1
4 FOR i% = 1 TO 360
5 PSET (((i% + amp) * SIN(r% * 3.141593 / 180)) + 160, ((r% + amp) * SIN(i% * 3.141593 / 180)) + 100), (i% MOD 255)
6 NEXT i%
7 WAIT &H3DA, 8
8 GOTO 1
[/syntax]
img]http://www.cdsoft.co.uk/misc/shiftlynx.png[/img]