Drawing a SPIRAL

[AlwMVMO]

Here is the complete Edited version of the Spiral macro

Code:

Sub Main

Dim r As Double
Dim a As Double
Dim s(1000) As Double
Dim n As Double

dcUpdateDisplay False
dcSelectAll
If dcIsSelected Then dcEraseSelObjs
dcSetSplineParms dcRED, dcFILL, dcNORMAL

r = InputBox("Enter outside Radius","Spiral","2")
r2= InputBox("Enter inside Radius","Spiral","0")
sp2= InputBox("Enter spacing","Spiral",".18")

a = 0
n = 0
sp=sp2/18

While r > r2
  n = n + 1
  s(n*2-1) = Cos(a*5/180*3.14)*r
  s(n*2) = Sin(a*5/180*3.14)*r
  r = r - sp
  a = a + 4
Wend
dcCreateSpline s(1), n, False

dcViewAll
dcUpdateDisplay True

End Sub