Rainy Days (Source Included)

BlitzMax Forums/BlitzMax Programming/Rainy Days (Source Included)

dw817

(Posted 2016) [#1]

Perhaps there is nothing more relaxing than watching a good rainstorm taking place outside.

While I have done my full venture of writing code to simulate snow falling, it is quite a different thing to create a rainstorm.

Here then is my entry into the virtual scene of a rainy day.

' Simple rain maker by dw817
Strict

Local raintype=1 ' 1-3 where 3 is torrential

Local total=64+(raintype-1)*256
Local img_rain:TImage=CreateImage(24,96),ar#,i
Local x[total],y[total],a[total]

SetGraphicsDriver GLMax2DDriver(),0
Graphics 1024,768
SetBlend lightblend

DrawLine 23,0,0,95
GrabImage img_rain,0,0

SetClsColor 25,75,125

Repeat
  Cls
  For i=0 Until total
    ar=a[i]/255.0
    SetScale ar,ar
    SetAlpha ar
    DrawImage img_rain,x[i],y[i]
    x[i]=x[i]-(a[i]/20.0)
    y[i]=y[i]+(a[i]/5.0)
    a[i]:-(raintype*3+1)
    If a[i]<=0
      x[i]=Rand(0,1024+128)
      y[i]=Rand(-64,384)
      a[i]=Rand(64,255)
    EndIf
  Next
  Flip 0
  Delay 16
Until KeyDown(27)

What code would you write to create a rainy day ?