Computational Syncopation

SS:

Option Explicit
'Script written by sarah spinosi
'Script version Tuesday, October 07, 2008 1:09:43 AM

Call Main()
Sub Main()

Dim Curve
Dim Height
Rhino.EnableRedraw (False)
Dim size : size = 10
Dim s : s = 2
Dim surface : surface = Rhino.AddPlaneSurface (Rhino.WorldXYPlane , size,
size)
Dim x, y, Frame, Plane, u, v, Objects, Objects2,FrameRemove
u = 0
v = 0
For x = 0 To size Step s
u = u + 1
For y = 0 To size Step s
v = v + 1
Frame = Rhino.SurfaceFrame (surface, Array (x,y))
Plane = Rhino.AddPlaneSurface (Frame, s, s)
Curve = Rhino.AddLine(Array(0,0,0), Array(0, u, v))
Objects = Rhino.ExtrudeSurface (Plane, Curve)
Objects2 = Rhino.MoveObject (Objects, Array(0,u,v), Array(0,u+v,v))
Rhino.RotateObject Objects2, Array(0,u,v/u), 0.87*(u*v),,True
Rhino.DeleteObject (Plane)
Rhino.DeleteObject (Curve)
Rhino.RotateObject Objects, Array(0,u,v), 45*(u+(v*1.5))
Objects2 = Rhino.MoveObject (Objects, Array(0,u,v), Array(0,u+v,v))
Rhino.RotateObject Objects2, Array(0,u,v/u), 0.87*(u*v),,True
Next
Next

Rhino.EnableRedraw (True)
Rhino.DeleteObject (surface)

End Sub