Archimedean spiral: Difference between revisions
m
→{{header|Craft Basic}}
Basicgames (talk | contribs) |
Basicgames (talk | contribs) |
||
Line 1,080:
=={{header|Craft Basic}}==
<syntaxhighlight lang="basic">
bgcolor 0, 0, 0
cls
fgcolor 255, 255, 0
let pi = 3.14
let size =
let y = 200
let a = 1.5
let b = .7
let r = a + b * t
▲ dot r * ( cos: t ) + 200, r * ( sin: t ) + 200
▲ let t = t + . 1
wait
next t
▲loop t < size * pi
end</syntaxhighlight>
|