Hi

This is quite cool, and Im really glad you found it worth your time, even though the 3D is only a viewer

I have updated the source code somewhat since you took the screen short, and It can now generate rain drops as well. This brings me to another thing you could do with this code, generate a Boat Wake by following the logic behind this answer on an  unrelated question.

All you need to do is to replace the commented out code with the snipplet below:

Dim rand As New Random

Dim BoatX As Integer = 0
Dim BoatY As Integer = 50
Private Function GenerateRandomDropPoint() As Point
'Generate Rain drop
'Dim x, y As Integer
'x = rand.Next(0, TLM.Dimensions - 1)
'y = rand.Next(0, TLM.Dimensions - 1)
'Return New Point(x, y)

'Generate Boat wake
If BoatX < TLM.Dimensions Then
BoatX += 2
Else
BoatX = 0
End If
Return New Point(BoatX, BoatY)

End Function

Check the box Create Gaussian Raindrops, and play around with the Time step (I set it to 0) and increase adjust the Source Frequency (between 8 and 15 seem to generate a realistic 2D image of a boat wake). Its not quite right as the Gaussian Pulse isnt properly designed as of now, but I would fix that on a later occasion.

Kenneth Haugland