Archimedean spiral: Difference between revisions

Content added Content deleted

Inline

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