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 cosWave(10, 10, 10, 4, 4, 50,50)
	Call Rhino.EnableRedraw(True)
End Sub
Function cosWave(a, b, c, d, e, countU,countV)
	cosWave = Null
	Dim i, j, q, r, u,v, x, y, z, arrOutput(), arrStorage()
	r=0
	
	For i = -1 To 1 Step 2/(countU-1)
		For j = -1 To 1 Step 2/(countV-1)
			u = d*PI*i
			v = e*PI*j
			x = a*u
			y = b*v
			z = c*cos(1-sqr(u^2+v^2))
			ReDim Preserve arrStorage(q)
			arrStorage(q) = array(x,y,z)
			Call Rhino.addpoint(arrStorage(q))
			q=q+1
		Next
	Next
	Call Rhino.AddSrfPtGrid(array(countU,countV),arrStorage)
	cosWave = arrOutput
End Function