Ong?! Huh? - GameCreators Forum

developer forums

2D All the way! / Ong?! Huh?

Author

Message

aluseus GOD

Years of Service

User Offline

Joined: 19th Mar 2007

Location: I\'m here. Now I\'m there. I keep moving

Posted: 28th Sep 2007 06:27

Link

+ Code Snippet

Dim array(400) as integer
Dim arrangle(400) as integer
Dim dist(400) as integer

For a = 0 to 399
array(a) = RGB(rnd(256),rnd(256),rnd(256))
Next a

For x = 0 to 19
For y = 0 to 19
Dot x+300,y+400,array(x+(y*20))
dist(x+(y*20)) = sqrt( ((300-x)^2)+((400-y)^2) )
arrangle(x+(y*20)) = atanfull(x,y)
Next y
Next x

Do
If leftkey()
For x = 0 to 399
arrangle(x) = arrangle(x) - 1
Next x
Endif

For x = 0 to 19
For y = 0 to 19
Dot sin(arrangle(x+(y*20)))*dist(x+(y*20))+300,cos(arrangle(x+(y*20)))*dist(x+(y*20))+400,array(x+(y*20))
Next y
Next x

Loop

Hold down leftkey for a few seconds, works better on a big screen.

Your signature has been deleted by a moderator because this joke is getting old.

Profile PM Email Website

Server time is: 2024-05-18 14:13:25
Your offset time is: 2024-05-18 14:13:25

Sorry your browser is not supported!

2D All the way! / Ong?! Huh?