Data commit

Task/Archimedean-spiral/FutureBasic/archimedean-spiral.basic

@@ -0,0 +1,21 @@
+_maxPoints = 190
+
+void local fn DoIt
+  window 1, @"Archimedean Spiral", (0,0,500,500)
+  WindowSetBackgroundColor( 1, fn ColorBlack )
+  pen 3, fn ColorRed
+
+  float x, y, angle
+  long i, a = 10, b = 10, x1 = 250, y1 = 250
+  for i = 0 to _maxPoints - 1
+    angle = 0.1 * i
+    x = (a + b * angle) * cos(angle) + 250
+    y = (a + b * angle) * sin(angle) + 250
+    line x1,y1 to x,y
+    x1 = x : y1 = y
+  next
+end fn
+
+fn DoIt
+
+HandleEvents