'===========================================================================
' Subject: SPIRALING MIND KNOCKER            Date: 09-21-96 (17:53)       
' Author:  Ryan White                        Code: QB, QBasic, PDS        
' Origin:  BIGFOOT@InfoAve.Net             Packet: GRAPHICS.ABC
'===========================================================================
'sPiRaLiNg MiNd KnOcKeR 1
'By Ryan White
'Look at it for a while then look away
'Edit anyway you want

ON KEY(1) GOSUB st: KEY(1) ON
SCREEN 13
CLS

     'roze
'FOR x = 180 TO 1 STEP -.5
'z = 159 + x * COS(x):y = 99 + x * SIN(x)
'FOR r = 15 TO 0 STEP -1
'c = c + 1: IF c = 16 THEN c = 1
'LINE (z - r, y - r)-(z + r, y + r), c, B
'NEXT r: NEXT x

      'Webz
'FOR x = 180 TO 1 STEP -.05
'z = 159 + x * COS(x): y = 99 + x * SIN(x)
'c = c + 1: IF c = 16 THEN c = 1
'LINE (0, 0)-(z, y), c: LINE -(319, 0), c: LINE (319, 199)-(z, y), c: LINE -(0, 199), c
'NEXT x
      
       'Gemz
'FOR x = 180 TO 1 STEP -.05
'z = 159 + x * COS(x): y = 99 + x * SIN(x)
'FOR r = 5 TO 1 STEP -1
'c = c + 1: IF c = 16 THEN c = 1
'FOR m = -1 TO 1: CIRCLE (z, y + m), r, c, , , 1: NEXT m
'NEXT r: NEXT x

      'X-points
FOR x = 180 TO 1 STEP -.05
z = 159 + x * COS(x)
y = 99 + x * SIN(x)
c = c + .1: IF c = 16 THEN c = 1
LINE (z - 2, y - 2)-(z, y), c
LINE -(z + 2, y - 2), c
LINE (z + 2, y + 2)-(z, y), c
LINE -(z - 2, y + 2), c
NEXT x

st:
DEFINT A-Z
DIM c(255, 2), co(255, 2)
FOR n = 0 TO 15
'black white red orange yellow green blue's purple ~then backwards~
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
'makes the colors appear
FOR n = 0 TO 255: OUT &H3C8, n: FOR m = 0 TO 2: OUT &H3C9, c(n, m): 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