Anonymous user
Barnsley fern: Difference between revisions
→{{header|Sidef}}
Line 720:
</lang>
=={{header|Run BASIC}}==
<lang runbasic>maxpoints = 20000
graphic #g, 200, 200
#g fill("blue")
FOR n = 1 TO maxpoints
p = RND(0)*100
IF p <= 1 THEN
nx = 0
ny = 0.16 * y
goto [a]
end if
IF p <= 8 THEN
nx = 0.2 * x - 0.26 * y
ny = 0.23 * x + 0.22 * y + 1.6
goto [a]
end if
IF p <= 15 THEN
nx = -0.15 * x + 0.28 * y
ny = 0.26 * x + 0.24 * y + 0.44
goto [a]
end if
nx = 0.85 * x +0.04 * y
ny = -0.04 * x +0.85 * y + 1.6
[a]
x = nx
y = ny
#g "color green ; set "; x * 17 + 100; " "; y * 17
NEXT n
render #g
#g "flush"</lang>
=={{header|Sidef}}==
| |||