Archimedean spiral: Difference between revisions

Line 1,080:
 
=={{header|Craft Basic}}==
<syntaxhighlight lang="basic">bgcolor 0, 0, 0
bgcolor 0, 0, 0
cls
fgcolor 255, 255, 0
 
letdefine pi = 3.14, size = 80
define x = 250, y = 200
let size = 80
define a = 1.5, b = .7
let x = 250
let y = 200
let a = 1.5
let b = .7
 
for t = 0 to size * pi step .1
 
let r = a + b * t
dot r * cos( cos: t ) + x, r * sin( sin: t ) + y
wait
 
305

edits