Barnsley fern: Difference between revisions
→{{header|Craft Basic}}
Basicgames (talk | contribs) |
Basicgames (talk | contribs) |
||
Line 737:
=={{header|Craft Basic}}==
<syntaxhighlight lang="basic">
define x1 = 0, y1 = 0
bgcolor 0, 0, 0
fgcolor 0, 255, 0▼
cls
do
let r = (rnd)
Line 774:
let x1 = ( x + 3 ) * 70
let y1 = 700 - y * 70
▲ fgcolor 0, int: (rnd) * 255, 0
gethdc
Line 783 ⟶ 785:
wait
print "done"</syntaxhighlight>
|