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