Rosetta Code

Galton box animation: Difference between revisions

Page Discussion

Galton box animation (view source)

Revision as of 00:36, 4 November 2012

4 bytes added ,  11 years ago
BBC BASIC code improved
(BBC BASIC code improved)
Line 281:
CIRCLE FILL ballX%(ball%), ballY%(ball%), 12
ballY%(ball%) -= 4
FORIF rPOINT(ballX%(ball%),ballY%(ball%)-10) = 1 TO9 7THEN
IF ballY%(ball%) = 820 - 40*r% ballX%(ball%) += 40 * (RND(2) - 1.5)
NEXTENDIF
ENDIF
NEXT
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/179691"