Option Explicit
'Script written by <David Mans>
'Script copyrighted by <Neoarchaic Studio>
'Script version Monday, February 02, 2009 8:11:02 PM

Call Main()
Sub Main()
	Call Rhino.EnableRedraw(False)
	Call cothSpiral(2, 100)
	Call Rhino.EnableRedraw(True)
End Sub
Function cothSpiral(a, count)
	cothSpiral = Null
	Dim i, q, t, x, y, z, arrOutput
	ReDim arrOutput(count)
	q=0
	
	For i = 1/count To 1+1/count Step 1/count
		t = PI/2*i
		x = -1 * sinh(2 * t) / (cos(2 * a * t) - cosh(2 * t))
		y = sin(2 * a * t) / (cos(2 * a * t) - cosh(2 * t))
      z = 0
		arrOutput(q) = array(x,y,z)
		Call Rhino.addpoint(arrOutput(q))
		q=q+1
	Next
	
	cothSpiral = arrOutput
End Function