FreeBasic круги на воде

ScreenRes 600, 400
 
DIM i AS INTEGER,k AS INTEGER,j AS INTEGER
DIM TestMouse AS INTEGER, MouseX AS INTEGER, MouseY AS INTEGER,Buttons AS INTEGER
DIM Colors AS INTEGER
DIM AS INTEGER X = 600
DIM AS INTEGER Y = 400
DIM AS DOUBLE Dampening = 0.995
DIM Buffer(X*2-1,Y-1) AS DOUBLE
 PRINT "Right buttion - Exit"
 PRINT "Left buttion - Start "
 SLEEP 2000
 
DO UNTIL Buttons=2
    
    TestMouse=GetMouse(MouseX,MouseY,,Buttons)
IF Buttons=1 THEN
     Buffer(MouseX,MouseY)=20
EndIf   
 
    FOR k = 1 TO X-2
            i=k+X
            FOR j=1 TO Y-2
              Buffer(i,j)=((Buffer(k-1,j)+Buffer(k+1,j)+Buffer(k,j-1)+Buffer(k,j+1))*0.5-Buffer(i,j))*Dampening           
            NEXT
    NEXT
         
          FOR i = 1 TO X-2
            k=i+X
            FOR j=1 TO Y-2
              Buffer(i,j)=((Buffer(k-1,j)+Buffer(k+1,j)+Buffer(k,j-1)+Buffer(k,j+1))*0.5-Buffer(i,j))*Dampening   
                 Colors = INT(Buffer(i,j)*10)         
              PSET(i,j),RGB(Colors,Colors,Colors)
            NEXT
          NEXT
LOOP 
 
 SLEEP 300

DIM ix2 AS INTEGER, ix AS INTEGER, iy AS INTEGER
DIM TestMouse AS INTEGER, MouseX AS INTEGER, MouseY AS INTEGER,Buttons AS INTEGER
DIM Cv AS BYTE
DIM AS INTEGER X = 320
DIM AS INTEGER Y = 200
DIM AS DOUBLE Dampening = 0.995
DIM Bf(X * 2 - 1,Y - 1) AS DOUBLE
 PRINT "Right buttion - Exit"
 PRINT "Left buttion - Start "
 'SLEEP 2000
 
SCREENRES X, Y, 32, 2
SCREENSET 1, 0
DO
    
    TestMouse = GetMouse(MouseX,MouseY,,Buttons)
IF Buttons = 1 THEN
     Bf(MouseX,MouseY) = 1
ENDIF   
 
FOR ix = 1 TO X - 2
   ix2 = ix + X
   FOR iy = 1 TO Y - 2
   Bf(ix2, iy) = ((Bf(ix - 1, iy) + Bf(ix + 1, iy) + Bf(ix, iy - 1) + Bf(ix, iy + 1)) * 0.5 - Bf(ix2, iy)) * Dampening           
   NEXT
NEXT
         
FOR ix = 1 TO X - 2
   ix2 = ix + X
   FOR iy = 1 TO Y - 2
   Bf(ix, iy) = ((Bf(ix2 - 1, iy) + Bf(ix2 + 1, iy) + Bf(ix2, iy - 1) + Bf(ix2, iy + 1)) * 0.5 - Bf(ix, iy)) * Dampening           
     Cv = CBYTE((Bf(ix2, iy) + .38) * 110 )
     PSET(ix, iy), RGB(Cv, Cv, Cv)
   NEXT
NEXT
 FLIP
LOOP UNTIL INKEY = CHR(27)