03-19-2005, 01:49 AM
i was messin' around with Diroga's entry just for fun and i made this:
[syntax="qbasic"]CLS
SCREEN 13
rad = (3.14159265#) / 180
c = 16
z = 76
SLEEP
FOR ii = 1 TO 75
z = z - 1
FOR i = 1 TO 361 STEP .5
oldx = x: oldy = y
x = INT(z * (COS(rad * i))) + 160
y = INT(z * (SIN(rad * i))) + 100
c = c + 1: IF c > 31 THEN c = 16
PSET (x, y), c
NEXT
NEXT[/syntax]
[syntax="qbasic"]CLS
SCREEN 13
rad = (3.14159265#) / 180
c = 16
z = 76
SLEEP
FOR ii = 1 TO 75
z = z - 1
FOR i = 1 TO 361 STEP .5
oldx = x: oldy = y
x = INT(z * (COS(rad * i))) + 160
y = INT(z * (SIN(rad * i))) + 100
c = c + 1: IF c > 31 THEN c = 16
PSET (x, y), c
NEXT
NEXT[/syntax]
quote="whitetiger0990"]whitetiger is.. WHITE POWER!!! [/quote]
Here
Here