Tornadicane

Image is script stopped in between rotation 2 and 3

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

Interconnectivity + Twisting Planes

failed starbursts

I was attempting to create starburst-burst like forms along the division points by running the script a couple of times, but the 'rnd' never turned to a negative number so it did not turn out.

Option Explicit

'Script written by Caritina Mills
Call experiment()

Sub experiment()
Dim arrcurvepts(2), t, pi

pi=Rhino.pi()
For t=-7 To 7 Step .1

arrcurvepts(0)= t*Sin(3*t)

arrcurvepts(1)= t*Cos(3*t) arrcurvepts(2)= t

Call Rhino. addpoint(arrcurvepts)

Next

Dim pnts,pntsdelete
pnts=Rhino.getpointcoordinates("select points")

Call Rhino.AddInterpCurve (pnts)

pntsdelete=Rhino.getobjects("select all", 1,,,1)

Call Rhino.deleteobjects(pntsdelete)
Dim arrcyloriginal, arrref(1), arrend(1), arrdiv, strspiral,i, curve
strspiral=Rhino.GetObject("spiral")

arrdiv= Rhino.DivideCurve(strspiral, 50, True)

arrCyloriginal = Rhino.AddCylinder(Array(0,0,0), Array(0,0,2), 0.005)

For i=0 To UBound(arrdiv)

arrref(0) = Array(0,0,0)

arrref(1) = Array(0,0,.5)
arrend(0) = arrdiv(i)

arrend(1) = Array(Rnd*2,Rnd*3,Rnd)
Call Rhino.OrientObject(arrcyloriginal, arrref, arrend, True)

Next

Call Rhino.DeleteObject(arrcyloriginal)

pntsdelete=Rhino.getobjects("select all", 1,,,1)

Call Rhino.deleteobjects(pntsdelete)
End Sub

its all mercury's fault simeon

RhinoScript Workshop Flyer

SB: I just thought the flyer was worth taking a look at!

Hey guess what Guys? I lost the majority of my scripts!! My flashdrive failed.

I am overjoyed to the point of sadness. I wanna go home to CT.

This isnt working for me right now.