Pratt | Digital Futures Group

Icon

Grasshopper | luong [should have saved my work]

Saving your work often is essential when working with grasshopper. To illustrate this point, I decided to create a really awesome associative model, take a screenshot of it, and then fail to save it before closing Rhino. That’s how brilliant I am.

Below is proof that I did indeed have a more complete model, and below that is a link to the .ghx file in the state it was in 1hr before the screenshot below.


090225_luong_b from Digital Futures Group on Vimeo.

090225_luong_b.ghx

Tags: Associative, don't forget to save!, Grasshopper, linear progression, Vb.Net

aPerelman | GH_Assign01 + GH_Assign02

screenshot-series-copyscreenshot-series2smaller

Tags: aPerelman, Associative, GH_Assign01, GH_Assign02, Grasshopper, Parametric, Relational, Rhino, Vb.Net

Workshop | Grasshopper Level III

February 19, 2009
6:00 pmto10:00 pm






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.

20090209_dfg_gh02_GHdynSkin

Tags: Associative, Grasshopper, Parametric, Relational, Rhino, Vb.Net

Workshop | Grasshopper Level III | VB.Net Example


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
Tags: Associative, Grasshopper, Parametric, Relational, Vb.Net

Pratt | Digitial Futures Group

The Digital Futures Group is a collective of computational design experts teaching at Pratt Institute.

Categories