1 REM https://rosettacode.org/wiki/Barnsley_fern 5 PRINT "SVG Barnsley fern" 10 HTML 20 PRINT "
" 30 FOR i = 1 TO 10000 40 LET r = RND 50 IF NOT(r > 0 AND r < .01) THEN 80 60 LET x = .0 70 LET y = .16 * y 80 IF NOT(r > .01 AND r < .08) THEN 110 90 LET x = .22 * x - .26 * y 100 LET y = -.23 * x + .22 * y + 1.6 110 IF NOT(r > .075 AND r < .15) THEN 140 120 LET x = .15 * x + .28 * y 130 LET y = -.29 * x + .24 * y + .44 140 LET x = .85 * x + .04 * y 150 LET y = -.04 * x + .85 * y + 1.6 160 LET x1 = (x + 3) * 70 170 LET y1 = 700 - y * 70 180 PRINT "
" 190 NEXT i 200 PRINT "
"
Return to Example Index