Archimedean spiral: Difference between revisions
Content added Content deleted
Basicgames (talk | contribs) |
Basicgames (talk | contribs) |
||
| Line 1,080: | Line 1,080: | ||
=={{header|Craft Basic}}== |
=={{header|Craft Basic}}== |
||
<syntaxhighlight lang="basic"> |
<syntaxhighlight lang="basic">bgcolor 0, 0, 0 |
||
bgcolor 0, 0, 0 |
|||
cls |
cls |
||
fgcolor 255, 255, 0 |
fgcolor 255, 255, 0 |
||
define 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 |
for t = 0 to size * pi step .1 |
||
let r = a + b * t |
let r = a + b * t |
||
dot r * ( |
dot r * cos(t) + x, r * sin(t) + y |
||
wait |
wait |
||