'===========================================================================
' Subject: VORTEX                            Date: 09-06-96 (11:42)       
' Author:  Ryan White                        Code: QB, QBasic, PDS        
' Origin:  BIGFOOT@SunBelt.Net             Packet: GRAPHICS.ABC
'===========================================================================
'Vortex
'By Ryan White
'This is a sample of my abilities with palettes and wierd designs.
'If you would like to get more of these type programs, write me at
'Bigfoot@Sunbelt.Net  or  Bigfoot@InfoAve.Net
'I have more than 575 Qbasic programs to my name, and it grows daily.
'Ah well, enjoy...


'This one is much faster compiled.   A little too fast.

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

'FOR n = -15 TO 15:LINE (105 + n, 65 + n)-(215 - n, 175 - n), 50 + n, B:NEXT n
'FOR n = 1 TO 33:FOR m = -1 TO 1:CIRCLE (110, 170 + m), n, 255 - n, , , 1:CIRCLE (210, 170 + m), n, 255 - n, , , 1:CIRCLE (110, 70 + m), n, 255 - n, , , 1:CIRCLE (210, 70 + m), n, 255 - n, , , 1:NEXT m:NEXT n

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