Option Explicit
'Script written by <Che Wei Wang www.cwwang.com >
'Script adapted 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 bezier(array(0,0),array(0,10),array(20,10),array(20,20), 1000)
	Call Rhino.EnableRedraw(True)
End Sub
Function bezier(a, b, c, d, count)
	bezier = Null
	Dim i, q, m, t, x, y, z, arrOutput
	ReDim arrOutput(count)
	q=0
	

	
	For i = 0 To 1 Step 1/count
		t = i
		m = 1-i
		x = a(0)*m^3+3*b(0)*t*m^2+3*c(0)*t^2*m+d(0)*t^3
		y = a(1)*m^3+3*b(1)*t*m^2+3*c(1)*t^2*m+d(1)*t^3
		z = 0
		arrOutput(q) = array(x,y,z)
		Call Rhino.addpoint(arrOutput(q))
		q=q+1
	Next
	bezier = arrOutput
End Function