Barnsley fern: Difference between revisions

Line 737:
 
=={{header|Craft Basic}}==
<syntaxhighlight lang="basic">'ferndefine fractalx1 example= 0, y1 = 0
 
define x1 = 0, y1 = 0
 
bgcolor 0, 0, 0
Line 746 ⟶ 744:
do
 
let r = (rnd)
 
if r > 0 and r < .01 then
Line 775 ⟶ 773:
let y1 = 700 - y * 70
 
fgcolor 0, int: (rnd) * 255), 0
 
dot x1, y1
305

edits