Anonymous user
Barnsley fern: Difference between revisions
→{{header|Run BASIC}}
Line 730:
nx = 0
ny = 0.16 * y
▲IF p <= 8 THEN
nx = 0.2 * x - 0.26 * y
ny = 0.23 * x + 0.22 * y + 1.6
▲IF p <= 15 THEN
nx = -0.15 * x + 0.28 * y
ny = 0.26 * x + 0.24 * y + 0.44
else
nx = 0.85 * x +0.04 * y▼
ny = -0.04 * x +0.85 * y + 1.6▼
end if
▲nx = 0.85 * x +0.04 * y
▲ny = -0.04 * x +0.85 * y + 1.6
x = nx
y = ny
| |||