Skript für Aurels Workshop

Option Explicit
'Script written by
'Script copyrighted by
'Script version Tuesday, April 28, 2009 11:12:55 AM

Call Main()
Sub Main()

Dim surf : surf = rhino.GetObject("pick surface",8)

Dim i,j
Dim u,v

Dim intU : intU = rhino.getinteger("enter subdivision in U direction",10,6)
Dim intV : intV = rhino.getinteger("enter subdivision in V direction",15,6)

Dim Udomain : Udomain = rhino.surfacedomain(surf,0)
Dim Vdomain : Vdomain = rhino.surfacedomain(surf,1)

Dim Ustep : Ustep = (Udomain(1) - Udomain(0))/ intU
Dim Vstep : Vstep = (Vdomain(1) - Vdomain(0))/ intV


ReDim arrframe(intU,intV)

For i = 0 To IntU ' all the way to 10
For j = 0 To IntV

u = Udomain(0) + Ustep * i
v = Vdomain(0) + Vstep * j

'here we translate the "2d" surface parameters into 3d coordinates
arrframe(i,j) = rhino.SurfaceFrame(surf, array(u,v))

Call Rhino.Addpoint ((arrframe(i,j)(0)))

If ((( i > 1) And ((j>1) And ((i Mod 2 = 0) And (j Mod 2 =0 )))) Or (( i > 1) And ((j>1) And ((i Mod 2 = 1) And (j Mod 2 =1 )))))Then

ReDim arrpt (4)

arrpt (0) = arrframe (i-1,j) (0)
arrpt (1) = arrframe (i-2,j-1) (0)
arrpt (2) = arrframe (i-1,j-2) (0)
arrpt (3) = arrframe (i,j-1) (0)
arrpt (4) = arrframe (i-1,j) (0)

Dim curve : curve = rhino.addcurve(arrpt,1)

End If
Next
Next




End Sub