Option Explicit

Call PointSpiral()
Sub PointSpiral()
	Dim arrPoint(2)
	Dim t, pi
	pi = Rhino.Pi

	'Call Rhino.EnableRedraw(False)
	For t = 0 To 60 Step 0.25
    
		arrPoint(0) = t * Sin(t)
		arrPoint(1) = t * Cos(t)
		arrPoint(2) = 1

		Call Rhino.Print(Rhino.Pt2Str(arrPoint, 3))
		Call Rhino.AddPoint(arrPoint)
	Next
	'Call Rhino.EnableRedraw(True)
End Sub