X-Git-Url: http://www2.svjatoslav.eu/gitweb/?p=qbasicapps.git;a=blobdiff_plain;f=simulation%2Fliquid.bas;fp=simulation%2Fliquid.bas;h=ee62c3d006efe86a28c3ba0b170c2a7eadaadb73;hp=9b5bd93a3574dda1ea361de5620ff577b0b36369;hb=08a50b7a860f6aa39f58108a07e2fc13e46260b9;hpb=68c9ea9c1b1c03a3d38bd585f0bdeee6371cb05b

diff --git a/simulation/liquid.bas b/simulation/liquid.bas
old mode 100755
new mode 100644
index 9b5bd93..ee62c3d
--- a/simulation/liquid.bas
+++ b/simulation/liquid.bas
@@ -1,8 +1,8 @@
 ' Rounds up sharp edges
 ' made by Svjatoslav Agejenko
 ' in 2003.12
-' H-Page: svjatoslav.eu
-' E-Mail: svjatoslavagejenko@gmail.com
+' homepage: svjatoslav.eu
+' email:    svjatoslav@svjatoslav.eu
  
 DEFINT A-Z
 WIDTH 80, 50
@@ -13,37 +13,37 @@ DIM SHARED buf1(1 TO 80, 1 TO 50)
 DIM SHARED buf2(1 TO 80, 1 TO 50)
 
 FOR y = 1 TO 50
-FOR x = 1 TO 80
-buf1(x, y) = INT(RND * 2)
-NEXT x
+    FOR x = 1 TO 80
+        buf1(x, y) = INT(RND * 2)
+    NEXT x
 NEXT y
 
 1
 FOR y = 2 TO 49
-FOR x = 2 TO 79
-c = buf1(x - 1, y - 1)
-c = c + buf1(x, y - 1)
-c = c + buf1(x + 1, y - 1)
-c = c + buf1(x - 1, y)
-c = c + buf1(x + 1, y)
-c = c + buf1(x - 1, y + 1)
-c = c + buf1(x, y + 1)
-c = c + buf1(x + 1, y + 1)
-IF buf1(x, y) = 1 THEN
-IF c > 3 THEN buf2(x, y) = 1 ELSE buf2(x, y) = 0
-ELSE
-IF c > 4 THEN buf2(x, y) = 1 ELSE buf2(x, y) = 0
-END IF
-NEXT x
+    FOR x = 2 TO 79
+        c = buf1(x - 1, y - 1)
+        c = c + buf1(x, y - 1)
+        c = c + buf1(x + 1, y - 1)
+        c = c + buf1(x - 1, y)
+        c = c + buf1(x + 1, y)
+        c = c + buf1(x - 1, y + 1)
+        c = c + buf1(x, y + 1)
+        c = c + buf1(x + 1, y + 1)
+        IF buf1(x, y) = 1 THEN
+            IF c > 3 THEN buf2(x, y) = 1 ELSE buf2(x, y) = 0
+        ELSE
+            IF c > 4 THEN buf2(x, y) = 1 ELSE buf2(x, y) = 0
+        END IF
+    NEXT x
 NEXT y
 
 FOR y = 1 TO 50
-FOR x = 1 TO 80
-b = buf2(x, y)
-buf1(x, y) = b
-LOCATE y, x
-IF b = 0 THEN PRINT ".";  ELSE PRINT "#"
-NEXT x
+    FOR x = 1 TO 80
+        b = buf2(x, y)
+        buf1(x, y) = b
+        LOCATE y, x
+        IF b = 0 THEN PRINT "."; ELSE PRINT "#"
+    NEXT x
 NEXT y
 SOUND 0, 3
 GOTO 1