03-25-2005, 09:27 AM
Hey guess what? I was messing around with Dio's entry...hehe...oh no you say? Well, when I mess around with graphics, its more of a change here and see what happends :lol: ....well this was a little better than that...more math...not what I wanted it to do, but it looks cool:
[syntax="qbasic"]
CLS
SCREEN 13
rad = (3.14159265#) / 180
c = 16
z = 76
offset = 0
DO
offset = offset + 1
ci = (ci + 5) MOD 255
c = 16
z = 76
FOR ii = 1 TO 150
z = z - 1
FOR i = 1 TO 361 STEP .5
oldx = x: oldy = y
d = (i + offset) MOD 360
x = INT(z * (COS(rad * d))) + 160
y = INT(z * (SIN(rad * d))) + 100
c = c + 1: IF c > ci THEN c = 16
PSET (x, y), c
NEXT
NEXT
LOOP
[/syntax]
[syntax="qbasic"]
CLS
SCREEN 13
rad = (3.14159265#) / 180
c = 16
z = 76
offset = 0
DO
offset = offset + 1
ci = (ci + 5) MOD 255
c = 16
z = 76
FOR ii = 1 TO 150
z = z - 1
FOR i = 1 TO 361 STEP .5
oldx = x: oldy = y
d = (i + offset) MOD 360
x = INT(z * (COS(rad * d))) + 160
y = INT(z * (SIN(rad * d))) + 100
c = c + 1: IF c > ci THEN c = 16
PSET (x, y), c
NEXT
NEXT
LOOP
[/syntax]
i]"But...it was so beautifully done"[/i]