wx = 1024 : wy = 768
Graphics wx,wy,32,1

anz = 1000 : Dim s(anz,3)
For a=1 To anz
 s(a,0) = Rnd(wx) ; X
 s(a,1) = Rnd(wy-5) ; Y
 s(a,2) = Rnd(1,3) ; Fallgeschw.
 s(a,3) = Rnd(-2,2) ; Windeinfluß
Next
img = CreateImage(wx,wy) : SetBuffer ImageBuffer(img)

For a=1 To 2500
 x = Rnd(wx)
 y = Rnd(wy-5,wy)
 c = Rnd(200,255)
 Color c,c,c : Oval x,y,Rnd(2,4),4
Next
bg = CreateImage(wx,wy) : SetBuffer ImageBuffer(bg)

   rot = 50 : gruen = 50 : blau = 70
   rot_ende = 80 : gruen_ende = 80 : blau_ende = 120
   
    size_y# = wy
    rot_step#   = (rot-rot_ende)/size_y#
    gruen_Step# = (gruen-gruen_ende)/size_y#
    blau_Step#  = (blau-blau_ende)/size_y#
   For a=1 To size_y#
   
     Color rot-rot_step#*a, gruen-gruen_step#*a, blau-blau_step#*a
    Line 1,a,wx,a

   Next
SetBuffer BackBuffer()

fps=CreateTimer(40)
While Not KeyHit(1)

  WaitTimer(fps)
  Cls

  DrawBlock bg,0,0
  DrawImage img,0,0

  For i=1 To anz
   c = s(i,2)*75

  If s(i,1)>10 And s(i,1)+s(i,2)<wy And s(i,0)>=0 And s(i,0)<wx

   SetBuffer ImageBuffer(img)
   LockBuffer ImageBuffer(img)

   For b = s(i,1) To s(i,1)+s(i,2)
   f = ReadPixelFast(s(i,0),b)+16777216
   If (f Or b>=wy-5)
      z = Rnd(13)
       If z=1 Or s(i,2)=1
          If s(i,2)>1
          UnlockBuffer ImageBuffer(img) : un=1
        b=b-1: h = Rnd(200,255)
         Color h,h,h : Oval s(i,0),b,s(i,2)*2,4
        End If
          s(i,0)=Rnd(wx) : s(i,1)=0 : Exit
       End If

     
    End If

   Next
  End If

  If un=0 Then UnlockBuffer ImageBuffer(img) Else un=0
  SetBuffer BackBuffer()
 
  s(i,0) = s(i,0) + Rnd(s(i,3))
  s(i,1) = s(i,1) + s(i,2)
   Color c,c,c : Oval s(i,0),s(i,1),s(i,2),s(i,2)

   If s(i,1)>=wy Then s(i,0)=Rnd(wx) : s(i,1)=0

  Next
 
   Flip
Wend

Graphics 640,480,32,1

anz = 1000 : Dim s(anz,3)
For a=1 To anz
s(a,0) = Rnd(640) ; X
s(a,1) = Rnd(475) ; Y
s(a,2) = Rnd(1,3) ; Fallgeschw.
s(a,3) = Rnd(-2,2) ; Windeinfluß
Next
img = CreateImage(640,480) : SetBuffer ImageBuffer(img)

For a=1 To 2500
x = Rnd(640)
y = Rnd(475,480)
c = Rnd(200,255)
Color c,c,c : Oval x,y,Rnd(2,4),4
Next
bg = CreateImage(640,480) : SetBuffer ImageBuffer(bg)

rot = 50 : gruen = 50 : blau = 70
rot_ende = 80 : gruen_ende = 80 : blau_ende = 120

size_y# = 479
rot_step# = (rot-rot_ende)/size_y#
gruen_Step# = (gruen-gruen_ende)/size_y#
blau_Step# = (blau-blau_ende)/size_y#
For a=1 To size_y#

Color rot-rot_step#*a, gruen-gruen_step#*a, blau-blau_step#*a
Line 1,a,639,a

Next
SetBuffer BackBuffer()

fps=CreateTimer(40)
While Not KeyHit(1)

WaitTimer(fps)
Cls

DrawBlock bg,0,0
DrawImage img,0,0

For i=1 To anz
c = s(i,2)*75

x = s(i,0) : If s(i,1)>10


SetBuffer ImageBuffer(img)
LockBuffer ImageBuffer(img)

For b = s(i,1) To s(i,1)+s(i,2)
f = ReadPixelFast(s(i,0),z)+16777216
If (f Or b>=475)
z = Rnd(13)
; If b>=470 Then b=470+Rnd(10)
If z=1 Or s(i,2)=1
If s(i,2)>1
UnlockBuffer ImageBuffer(img) : un=1
b=b-1: h = Rnd(200,255)
Color h,h,h : Oval s(i,0),b,s(i,2)*2,4
End If
s(i,0)=Rnd(640) : s(i,1)=0 : Exit
End If


End If

Next
SetBuffer BackBuffer()
UnlockBuffer ImageBuffer(img)
End If

s(i,0) = s(i,0) + Rnd(s(i,3))
s(i,1) = s(i,1) + s(i,2)
Color c,c,c : Oval s(i,0),s(i,1),s(i,2),s(i,2)
Next

Flip 0
Wend