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 baseBallSeam(0.5, 4, 1000)
	Call Rhino.EnableRedraw(True)
End Sub
Function baseBallSeam(a, b, count)
	baseBallSeam = Null
	Dim i, q, t, x, y, z, arrOutput
	ReDim arrOutput(count)
	q=0
	
	For i = 0 To 1 Step 1/(count-1)
		t = PI*4*i
		x = b*(sin(PI/2-(PI/2-a)*cos(t))*cos(t/2 + a*sin(2*t)))
		y = b*(sin(PI/2-(PI/2-a)*cos(t))*sin(t/2 + a*sin(2*t)))
		z = b*(cos(PI/2-(PI/2-a)*cos(t)) )
		arrOutput(q) = array(x,y,z)
		Call Rhino.addpoint(arrOutput(q))
		q=q+1
	Next
	baseBallSeam = arrOutput
End Function