Option Explicit
'Script written by <insert name>
'Script copyrighted by <insert company name>
'Script version Tuesday, February 10, 2009 4:32:12 PM

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