Barnsley fern: Difference between revisions

Content added Content deleted
Line 740: Line 740:


bgcolor 0, 0, 0
bgcolor 0, 0, 0
cls
cls graphics


do
do
Line 770: Line 770:
let y = -.04 * x + .85 * y + 1.6
let y = -.04 * x + .85 * y + 1.6


let x1 = ( x + 3 ) * 70
let x1 = (x + 3) * 70
let y1 = 700 - y * 70
let y1 = 700 - y * 70


Line 781: Line 781:
wait
wait


loop n < 10000
loop n < 10000</syntaxhighlight>

print "done"</syntaxhighlight>


=={{header|D}}==
=={{header|D}}==