Pratt | Digital Futures Group

Check out Lalaj & Rudi’s (carvalho) tiling pattern implemented in Grasshopper.  Things got a bit sticky, and we ended up with a big fat script node to do the bulk of the work, but the results are pretty good for an early-semester swipe at a corrugation.

Notice that sweet, sweet sectional variation.

Links below to source files.

090224_lalaj_rudi_b.ghx |  090224_lalaj_rudi.3dm

Attached is my first real attempt at Grasshopper, and I have to say that I’m optimistic about the possibilities of combining a scripted approach with the user interface of grasshopper.  It was my intention here to try out the scripted methodology that we’re employing in the third year long span studio, and see how applicable it might be to the parametric environment of Grasshopper.  I was trying to be as flexible as possible – the user can define any number of points within a bounding box (both controlled by rhino geometry, see attached 3dm) as a unit “cell”, which is then arrayed in a rectangular grid.  Linear transformations may then be applied, and altered using Grasshopper’s nifty Graph Widget.  It’s a pain dealing only with one-dimensional arrays of things, but a few scripted nodes does the trick.

090220_planar_tiling_g.ghx |  090220_planar_tiling.3dm

20090218_dfg_gh03

All attendees-

Grasshopper Level III Workshop

RESCHEDULED for

Thursday, February 19 (6-10PM)

due to scheduling conflict.

For those of you who attended the second GH workshop please visit the new Digital Futures Group wiki for assignment information, workshop files, and to post your progress. If you were on the sign-up sheet you will have a username and password for posting to the wiki. Remember to please reference the Grasshopper Primer which can be found on the wiki if you need a refresher.

Thank you and we look forward to seeing you all soon.

Sub RunScript(ByVal pts As List(Of On3dPoint), ByVal num As Integer)
Dim crvList As New List(Of OnNurbsCurve)

Dim bounds As Int32 = pts.Count / num

'print("bounds = {0}", bounds)

For i As Int32 = 0 To bounds - 1
Dim degree As Integer = 3
Dim ptArray As New ArrayOn3dPoint(num)

For j As Int32 = 0 To num - 1

Dim pt As IOn3dPoint

pt = pts(j * bounds + i)
ptArray.Append(pt)
Next

Dim crv As New OnNurbsCurve
RhUtil.RhinoInterpCurve(degree, ptArray, Nothing, Nothing, 0, crv)

If crv.IsValid Then
crvList.Add(crv)
End If
Next
crvs = crvList
End Sub