Data update

Task/Particle-fountain/EasyLang/particle-fountain.easy

@@ -3,7 +3,7 @@ n = 6000
 #
 len x[] n ; len y[] n
 len vx[] n ; len vy[] n
-background 479
+background 059
 color 999
 on animate
    for i = 1 to 32

Task/Particle-fountain/FreeBASIC/particle-fountain.basic

@@ -0,0 +1,33 @@
+Const rad As Single = .5
+Const n As Integer = 6000
+
+Dim As Single X(n), Y(n)
+Dim As Single VX(n), VY(n)
+Dim As Integer i, ind
+
+Screenres 640, 480, 32
+Windowtitle ("Particle fountain")
+Color Rgb(255, 255, 255), Rgb(0, 0, 0)
+
+ind = 0
+Do
+    For i = 1 To 32
+        ind = (ind + 1) Mod n
+        X(ind) = 320 + Rnd * 10
+        Y(ind) = i * 10
+        VX(ind) = (Rnd - 0.5) * 0.6
+        VY(ind) = 2 + Rnd * 0.4
+    Next i
+
+    Screenlock
+    Cls
+    For i = 1 To n
+        Circle (X(i), 480 - Y(i)), rad, Rgb(255, 255, 255)
+        X(i) += VX(i)
+        Y(i) += VY(i)
+        VY(i) -= 0.025
+    Next i
+    Screenunlock
+
+    Sleep 1, 1
+Loop Until Inkey <> ""