• Home
 · 
• Graphics
 · 
• o0)Cool 3D partical movement(0o

o0)Cool 3D partical movement(0o

I was just messing around and I did this on accident, but it looks really cool, so I thought I'd post it. This is the second thing that I made when I was messing around, and it's really cool too. It also might work in other VBs, I wasn't sure though.

Rate o0)Cool 3D partical movement(0o

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

' =-=-=-=-=-=-=-=-=-=-=
' Add a timer, with intervals of 1
' -=-=-=-=-=-=-=-=-=-=-
' This is a really simlpe and cool little program that I made
' on accident trying to make something resembling, well, something
' different. But I thought this looked cool, and I thought that
' someone might want to put it in the back of a game. If anyone does
' please give me a lil credit, thanx.
' ~Jason Ryczek - [email protected]
Dim red(0 To 256) As Integer, green(0 To 256) As Integer, blue(0 To 256) As Integer
Dim RadialGrow As Boolean
Sub ColorFade()
Me.Cls
For i = 0 To 256 Step 1
 red(i) = i
 ' the number 1 is the radial size, change that to make the
 ' radial size around the axis
 green(i) = green(i) + (Rnd * 1) + (Rnd * -1)
 If RadialGrow = True Then
 If green(i) > 256 Or green(i) < 0 Then
 green(i) = 256 / 2
 End If
 End If
 PSet (green(i), red(i) + 10), RGB(0, 256 - i, 256 - i)
Next
End Sub
Private Sub Form_Load()
For i = 0 To 256 Step 1
 green(i) = 256 / 2
Next
' this makes it so that the radius keeps growing
RadialGrow = True
End Sub
Private Sub Timer1_Timer()
ColorFade
Timer1.Interval = 1
End Sub