Rhino Script Excise03

Option Explicit
'Script written by David Rutten
'Script copyrighted by Robert McNeel & Associates
'Script version 2008年10月30日 上午 12:31:12

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

Call Rhino.EnableRedraw(False)
For t = -5 To 5 Step 0.025

arrPoint(0) = t * Sin(5*t)
arrPoint(1) = t * Cos(5*t)
arrPoint(2) = t

Call Rhino.Print(Rhino.Pt2Str(arrPoint, 3))
Call Rhino.AddSphere(arrPoint, 0.5)
Next
Call Rhino.EnableRedraw(True)
End Sub