Archimedean spiral: Difference between revisions
Content added Content deleted
TechAscent (talk | contribs) |
Basicgames (talk | contribs) |
||
| Line 1,078: | Line 1,078: | ||
</syntaxhighlight> |
</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}}== |
=={{header|FOCAL}}== |
||