
Cool grid surface.
‘Script written by <insert name>
‘Script copyrighted by <insert company name>
‘Script version Monday, June 22, 2009 1:32:04 PM
Call Main()
Sub Main
Dim point(2)
Dim j
Dim a
Dim i
For i= 0 To 15
Point(2)=i
For a= 0 To 15
Point(1)=a
For j= 0 To 15
Point(0)=j
Rhino.AddPoint point
Next
Next
Next
End Sub