Galton box animation: Difference between revisions

Content added Content deleted

Inline

@@ Line 281: / Line 281: @@
             CIRCLE FILL ballX%(ball%), ballY%(ball%), 12
             ballY%(ball%) -= 4
-            FOR r% = 1 TO 7
+            IF POINT(ballX%(ball%),ballY%(ball%)-10) = 9 THEN
-              IF ballY%(ball%) = 820 - 40*r% ballX%(ball%) += 40 * (RND(2) - 1.5)
+              ballX%(ball%) += 40 * (RND(2) - 1.5)
-            NEXT
+            ENDIF
           ENDIF
         NEXT