'Vortex 2 'By Ryan White 'See kiddies, sugar does do the world some good!!! Or at least it did me. 'I think if you put a spiraler routine into the start and end of the circle, 'you could get a really awsome effect. Enjoy! 8') SCREEN 13 DEFINT A-W CLS DIM c(255, 2), co(255, 2) FOR n = 0 TO 15 c(n, 0) = n * 4 c(n, 1) = n * 4 c(n, 2) = n * 4 c(n + 16, 0) = 63 c(n + 16, 1) = 63 - n * 4 c(n + 16, 2) = 63 - n * 4 c(n + 32, 0) = 63 c(n + 32, 1) = n * 2 c(n + 32, 2) = 0 c(n + 48, 0) = 63 c(n + 48, 1) = n * 2 + 31 c(n + 48, 2) = 0 c(n + 64, 0) = 63 - n * 4 c(n + 64, 1) = 63 c(n + 64, 2) = 0 c(n + 80, 0) = 0 c(n + 80, 1) = 63 - n * 2 c(n + 80, 2) = n * 4 c(n + 96, 0) = 0 c(n + 96, 1) = 32 - n * 2 c(n + 96, 2) = 60 c(n + 112, 0) = n * 3 c(n + 112, 1) = 0 c(n + 112, 2) = 60 c(n + 128, 0) = 45 - n * 3 c(n + 128, 1) = 0 c(n + 128, 2) = 60 c(n + 144, 0) = 0 c(n + 144, 1) = n * 2 c(n + 144, 2) = 60 c(n + 160, 0) = 0 c(n + 160, 1) = 30 + n * 2 c(n + 160, 2) = 60 - n * 4 c(n + 176, 0) = n * 4 c(n + 176, 1) = 63 c(n + 176, 2) = 0 c(n + 192, 0) = 63 c(n + 192, 1) = 60 - n * 2 c(n + 192, 2) = 0 c(n + 208, 0) = 63 c(n + 208, 1) = 30 - n * 2 c(n + 208, 2) = 0 c(n + 224, 0) = 60 - n * 2 c(n + 224, 1) = n * 2 c(n + 224, 2) = n * 2 c(n + 240, 0) = 30 - n * 2 c(n + 240, 1) = 30 - n * 2 c(n + 240, 2) = 30 - n * 2 NEXT n FOR n = 1 TO 255 OUT &H3C8, n FOR m = 0 TO 2 OUT &H3C9, c(n, m) NEXT m NEXT n n = 0 x = 5 FOR I = 200 TO 40 STEP -1 n = n + 1 IF n = 256 THEN n = 1 x = x / 1.003 FOR j = 1 TO 10 CIRCLE (160, I), x, n, , , .5 x = x * 1.003 NEXT j NEXT I DO UNTIL INKEY$ <> "" FOR n = 1 TO 255 OUT &H3C7, n FOR m = 0 TO 2 co(n, m) = INP(&H3C9) NEXT m NEXT n c(255, 0) = co(1, 0) c(255, 1) = co(1, 1) c(255, 2) = co(1, 2) FOR n = 1 TO 254 FOR m = 0 TO 2 c(n, m) = co(n + 1, m) NEXT m NEXT n FOR n = 1 TO 255 OUT &H3C8, n FOR m = 0 TO 2 OUT &H3C9, c(n, m) NEXT m NEXT n LOOP