Sorry your browser is not supported!

REM Project: rotation
REM Created: 9/28/2007 5:47:55 PM
REM
REM ***** Main Source File *****
REM
Randomize Timer()

Dim squa(30,30) as integer
Dim ang(30,30) as integer
Dim dist(30,30) as integer

For x = 0 to 29
For y = 0 to 29
squa(x,y) = RGB(rnd(255),rnd(255),rnd(255))
ang(x,y) = atanfull(x,y)
dist(x,y) = sqrt((x^2)+(y^2))
Next y
Next x

Do
cls
angle = angle + 1
For x = 0 to 29
For y = 0 to 29
Dot (sin(ang(x,y)+angle)*dist(x,y))+300,(cos(ang(x,y)+angle)*dist(x,y))+350,squa(x,y)
Next y
Next x
Loop

REM Project: rotation
REM Created: 9/28/2007 5:47:55 PM
REM
REM ***** Main Source File *****
REM
Randomize Timer()

Dim squa(29,29) as integer
Dim ang(29,29) as integer
Dim dist(29,29) as integer

For x = 0 to 29
For y = 0 to 29
squa(x,y) = RGB(rnd(255),rnd(255),rnd(255))
ang(x,y) = atanfull(x-15,y-15)
dist(x,y) = sqrt(((15-x)^2)+((15-y)^2))
Next y
Next x

Do
cls
angle = angle + 1
For x = 0 to 29
For y = 0 to 29
Dot (sin(ang(x,y)+angle)*dist(x,y))+300,(cos(ang(x,y)+angle)*dist(x,y))+350,squa(x,y)
Next y
Next x
Loop