Press [space] to change the color. Compile this first if you want extra speed. :D
'Swirled! Version 1.0
'(C) 2006 i-TECH and Kristopher Windsor
SCREEN 12: CLS : RANDOMIZE TIMER
angle = 0: pi = 3.14159: key$ = "": inc = .305: parts = 3: c = 2
WHILE key$ <> "q" AND key$ <> CHR$(27)
FOR a = 1 TO 240 STEP 1
FOR b = 0 TO 3
PSET (320 + a * COS((angle - inc) + b * pi * 2 / parts + SIN(a / 50 * pi)), 240 + a * SIN((angle - inc) + b * pi * 2 / parts + SIN(a / 50 * pi))), 0
PSET (320 + a * COS(angle + b * pi * 2 / parts + SIN(a / 50 * pi)), 240 + a * SIN(angle + b * pi * 2 / parts + SIN(a / 50 * pi))), c
NEXT b
NEXT a
angle = angle + inc
IF key$ = " " THEN c = INT(RND * 15) + 1
key$ = INKEY$
WEND
|