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