Explosion !

[Deleted]

Hi Matthew,

explosion without particle !
This will become the contest winner 2oo9 !

'Source code
Option Explicit
Dim ax,x,y,i

Sub Main()
Graphics.Initialize 640,480,True,16
Key.Initialize
Mouse.Initialize

ax = 50
While Key.Pressed(vk_escape)= False
Graphics.Clear
For i = 0 To 359
x = ax * Sin(i) + 320
y = ax * Cos(i) + 240
Graphics.SetPoint x + Int((Rnd * -5) +5),y + Int((Rnd * -5) +5),&HFF909090
Graphics.SetPoint x + Int((Rnd * -10) +10),y + Int((Rnd * -10) +10),&HFFAFAFAF
Graphics.SetPoint x + Int((Rnd * -20) +20),y + Int((Rnd * -20) +20),&HFFB0B0B0
Graphics.SetPoint x + Int((Rnd * -30) +30),y + Int((Rnd * -30) +30),&HFFC0C0C0
Graphics.SetPoint x + Int((Rnd * -40) +40),y + Int((Rnd * -40) +40),&HFFD0D0D0
Graphics.SetPoint x + Int((Rnd * -50) +50),y + Int((Rnd * -50) +50),&HFFE0E0E0
Graphics.SetPoint x + Int((Rnd * -60) +60),y + Int((Rnd * -60) +60),&HFFFFFFFF
Next
ax = ax +10
iF ax > 250 Then ax = 10
Graphics.Display
Graphics.SetFPS 60
Wend
Graphics.Terminate
Key.Terminate
Mouse.Terminate
End Sub

call Main

Best wishes.......
Peter

[matthew]

nice explosion peter