material prototype

pseudo script

Option Explicit

Call Network()
Call Circles()
Sub Network()
‘list variables
Dim arrStrAttractors : arrStrAttractors = Rhino.GetObjects (“select attractors”,1)
ReDim arrAttractors(UBound(arrStrAttractors ))
For Each strAttractor In arrStrAttractors
arrAttractors(k) = Rhino.pointcoordinates (strAttractor)
k=k+1
Next
’set initial values
stLocation = Rhino.GetPoint (“Select your start points”)
For i = 2 To ‘# of generations
For l=0 To UBound(startpoints)
For Each arrAttractor In arrAttractors
testDistance = Rhino.Distance (startpoint, arrAttractor)
If testDistance < dblDistance Then
dblDistance = testDistance
buildpoint = startpoint
‘if distance is 0 go to next closest
End If
Next
‘construct New lines And points based On build point
buildpoint1 = Rhino.Polar (buildpoint, 45, crvL)
curve = Rhino.AddLine (buildpoint, buildpoint2)
buildpoint3 = rhino.CurveEndPoint (str2Crv)
‘add the new endpoint to attractor list
‘and add the new point to build point array
Next
‘pipe all
End Sub

Sub Circles()
’select all points
‘find density of points
‘for i = 0  to Ubound # of points
‘add circle with a radius based on density
‘next
‘for i = 0 to ubound # of cirles
‘trim and fillet all circles
‘next
‘join all lines
End Sub

Project Proposal DREJ

Emily and I will be developing a vertical ecosystem created from a porous and planted structural block.  We are interested in the relationship between a product and the waste created in the fabrication of that product.  Specifically, we will be looking at milling a structural component and then using the particles created during the milling process to “stuff” back into the milled component to create a growing substrate for plants.

vase

Option Explicit
‘Script written by mark.bearak
‘Script copyrighted by dtls.Architecture
‘Script version Tuesday, October 21, 2008 1:08:31 PM

Call Main()
Sub Main()
Dim arrPlane, i, j, strCrv(), strInnerCrv(), strSrf1, strSrf2, arrLftSrf1, arrLftSrf2, arrLftSrf3
For j = 0 To 5
For i = 0 To 10
ReDim Preserve strCrv(i)
ReDim Preserve strInnerCrv(i)
arrPlane = Rhino.PlaneFromPoints (array(0+cos(i)*2+3,j*25,i*(j+1)), array(1,j*25,i*(j+1)), array(0,j*25+1,i*(j+1)))
If i < j+3 Then
strCrv(i) = Rhino.AddCircle (arrPlane, 10.0)
strInnerCrv(i) = Rhino.AddCircle (arrPlane, 9.0)
If i = 0 Then
Call rhino.MoveObject (strInnerCrv(i),array(0,0,0),array(0,0,1))
End If
Else
strCrv(i) = Rhino.AddCircle (arrPlane, 5.0)
strInnerCrv(i) = Rhino.AddCircle (arrPlane, 4.0)
End If
If i = 0 Then
strSrf1 = Rhino.AddPlanarSrf (strCrv)
strSrf2 = Rhino.AddPlanarSrf (strInnerCrv)
End If
If i = 10 Then
arrLftSrf1 = Rhino.AddLoftSrf (array(strCrv(i),strInnerCrv(i)))
End If
Next
arrLftSrf2 = Rhino.AddLoftSrf (strCrv,,,1)
arrLftSrf3 = Rhino.AddLoftSrf (strInnerCrv,,,1)
Call Rhino.JoinSurfaces (array(arrLftSrf1(0),arrLftSrf2(0),arrLftSrf3(0),strsrf1(0),strsrf2(0)),True)
Call Rhino.deleteobjects (strCrv)
Call Rhino.DeleteObjects (strInnerCrv)
Next

End Sub