# look at this one

March 31 2012 at 4:15 PM

Response to This is cool

what you do is run in qb64 or something and look into the center for about a minute. it will give a cool distortion when you look away.

cant believe its 2010

here it is for qb64

DEFINT A-Z
DIM x(10000)
DIM y(10000)
DIM z(10000)
SCREEN 7, , 1, 0
_FULLSCREEN
CIRCLE (50, 50), 50, 15, , , 1
PAINT (50, 50), 15
GET (0, 0)-(100, 100), x(0)
LINE (0, 0)-(100, 100), 15, BF
CIRCLE (50, 50), 50, 0, , , 1
PAINT (50, 50), 0
GET (0, 0)-(100, 100), z(0)
DO
j = j + 1
k = j MOD 6
SCREEN , , 1, 0
LINE (0, 0)-(319, 199), 0, BF
FOR i = k TO 100 + k STEP 6
LINE (160, 100 - i)-(160 + i, 100)
LINE -(160, 100 + i)
LINE -(160 - i, 100)
LINE -(160, 100 - i)
LINE (160, 100 - i - 1)-(160 + i + 1, 100)
LINE -(160, 100 + i + 1)
LINE -(160 - i - 1, 100)
LINE -(160, 100 - i - 1)
NEXT
PUT (110, 50), x(0), AND
GET (110, 50)-(210, 150), y(0)
SCREEN , , 3, 0
LINE (0, 0)-(319, 199), 0, BF
FOR i = 50 - k TO 260 - k STEP 6
LINE (160, 100 - i)-(160 + i, 100)
LINE -(160, 100 + i)
LINE -(160 - i, 100)
LINE -(160, 100 - i)
LINE (160, 100 - i - 1)-(160 + i + 1, 100)
LINE -(160, 100 + i + 1)
LINE -(160 - i - 1, 100)
LINE -(160, 100 - i - 1)
NEXT
SCREEN , , 2, 0
PCOPY 3, 2
PUT (110, 50), z(0), AND
PUT (110, 50), y(0), XOR
PCOPY 2, 0

_LIMIT 40
LOOP UNTIL INP(&H60) = 1
SYSTEM

 Respond to this message
Responses