SCREEN _NEWIMAGE(1024, 768, 32), 0, 1, 0
DIM gridx(33, 33)
DIM gridy(33, 33)
DIM gridxm(33, 33)
DIM gridym(33, 33)
FOR b = 0 TO 32
FOR a = 0 TO 32
gridx(a, b) = a * 32
gridy(a, b) = b * 32
NEXT
NEXT
test1 = 1
RANDOMIZE TIMER
originx = 512
originy = 768 / 2
DO
FOR b = 1 TO 32
FOR a = 1 TO 32
LINE (gridx(a, b), gridy(a, b))-(gridx(a, b - 1), gridy(a, b - 1)), _RGB(a * 8, 0, b * 8)
LINE (gridx(a, b), gridy(a, b))-(gridx(a - 1, b), gridy(a - 1, b)), _RGB(a * 8, 0, b * 8)
NEXT
NEXT
FOR b = 1 TO 32
FOR a = 1 TO 32
IF gridx(a, b) > wellx - 200 AND gridx(a, b) < wellx + 200 THEN
IF gridy(a, b) > welly - 200 AND gridy(a, b) < welly + 200 THEN
gridx(a, b) = gridx(a, b) + ((wellx - gridx(a, b)) * .02)
gridy(a, b) = gridy(a, b) + ((welly - gridy(a, b)) * .02)
END IF
END IF
gridx(a, b) = gridx(a, b) + ((a * 32 - gridx(a, b)) * .01)
gridy(a, b) = gridy(a, b) + ((b * 32 - gridy(a, b)) * .01)
NEXT
NEXT
timez = timez + .05
IF diamode = 0 THEN
diameter = diameter + 1
IF diameter > 500 THEN diamode = 1
END IF
IF diamode = 1 THEN
diameter = diameter - 1
IF diameter < 1 THEN diamode = 0
END IF
wellx = originx - (diameter * (SIN(timez)))
welly = originy - (diameter * (COS(timez)))
IF timez > 6.2 THEN timez = 0
_LIMIT 60
PCOPY 1, 0
CLS 1
LOOP WHILE INKEY$ = ""
This comment is currently awaiting admin approval, join now to view.