rhinoscript小练习

ajun

n = 80


m = 80

Dim pts()

ReDim pts(n*m-1)



For i=0 To n-1

u=2*Rhino.Pi*(2*(i/(n-1))-1)





For j =0 To m-1

v = 2*Rhino.Pi*(2*(j/(m-1))-1)

pts(i*m+j)=surface(u,v)

Next

Next




Rhino.addSrfPtGrid Array(n,m),pts


End Sub


Function surface(u,v)



x=u+v

y=v-u

z=-((u*u+v*v)^0.55-1*sin(U)^16*3*cos(v)^16)



surface=Array(x,y,z)
End Function

ajun

呵呵   是学习的我们美院王文栋学长写的那本《rhino script 参数建模》上的 ，我也只是原本的抄了一边，试验了一把，还在研究呢~~哈哈