SickNastastic Branching Structure

SFS: Botanical garden in Colombia : Designed by Plan B

CR: First and foremost, today marks the end of Mercury in retrograde! We made it guys! Christian, I know you are particularly excited. You should be.

Below are two links to things that I will mention in my presentation this evening. One is David Fano's website that offers some really interesting tutorials, and at the very least, images of interesting digital models and scripts. The site is http://designreform.net

Also, if you are interested in reading the full article on the fabrication of Daniel Libeskind's Futuropolis, (I could not possibly discuss the details of all of it in my presentation), the link is:
http://download.nemetschek.net/news/CS_ARCH_ETH_Libeskind.pdf

Rock on, Script-ites.

Apply Crystal Structure

SB: This is a small wooden bungalo by Sou Fujimoto in Kumamoto, Japan. Concieved by mindlessly stacking large piecees of lumber, the final wooden structure is reminiscent of the crystals in the cave. Does this evolution of form answer to the emergent qualities of crystal forms?

giant crystals

WHITE HOUSE REDUX: Interesting Competition

SS: This was a international competition challenging designers to rethink the design of the White House of the future...

"Home of the world's most powerful individual. Universally recognized symbol of political authority. One of America's greatest tourist attractions. Nerve-center of the world's most complex communications system. The ultimate architectural embodiment of power.
Few people realize the extent of the White House, since much of it is below ground or otherwise concealed by landscaping. The White House includes: Six stories and 55,000 square feet of floor space, 132 rooms and 35 bathrooms, 412 doors, 147 windows, twenty-eight fireplaces, eight staircases, three elevators, five full-time chefs, a tennis court, a bowling alley, a movie theater, a jogging track, a swimming pool, and a putting green. It receives about 5,000 visitors a day.
The original White House design, by James Hoban, was the result of a competition held in 1792. Over the centuries, presidents have added rooms, facilities and even entire new wings, turning the White House into the labyrinthine complex it is today.
What if, instead of in 1792, that competition were to be held today? What would a White House designed in 2008, year of election of the 44th President of the United States, look like?
On occasion of the election of the 44th President of the United States of America, Storefront for Art and Architecture, in association with Control Group, challenged the world to design a new residence for the world's most powerful individual. The best ideas, selected by some of the world's most distinguished designers and critics, are going to be featured in a month-long exhibition at Storefront for Art and Architecture in October 2008. Please enter your email address to be notified of exhibit dates.On occasion of the election of the 44th President of the United States of America Storefront for Art and Architecture, in association with Control Group, challenges you to design a new residence for the world's most powerful individual. The best ideas, selected by some of the world's most distinguished designers and critics, will be featured in a month-long exhibition at Storefront for Art and Architecture in September 2008 and published in Surface magazine."


... Take a look.

Warning: I'm not sure what to think about the project/ presentation that took 1st prize. Shawn Dougherty's project, number 473, is an interesting presentation style... considering how often they push black and white in the arch studios. Awesome quote from one of Dougherty's presentation- " McCain strives to preserve America and its traditions: the rich can enjoy the bigness and beauty of this great country. while god helps the poor."

Posted projects with descriptions and images:
http://www.whitehouseredux.org/Projects?SSID=v5aoflm6c601ndoko0j15df9n2

Potentially Cool Software

its called Ecotect and runs various environmental simulations for sustainability. Be careful though, it is an Autodesk program.

http://usa.autodesk.com/adsk/servlet/index?id=11778740&siteID=123112&CMP=NLC-newsletterother

Inspirational Images

flare cladding system

voronoi

Polygon Playground

http://brandonhoopingarner.blogspot.com/2008/01/rhino-scripting-intro.html

this website included the blue pictures above

rhinocentre.blogspot.com/ check this website out i thought it was really interesting

Images

Visual Stimulation

SFS:


OXIDATION




PEELING

GRIDDED MADNESS

Inspiration images

Here are some images that I found.

Another Grid

SA: This is another Grid I was working. Note: I have the redraw disabled and enabled, it will take for-ev-er if you comment them out

Option Explicit
'Script written by STeveA
'Script Version: 08 October 2008
Call GridOfObjects ()
Sub GridOfObjects ()
Rhino.EnableRedraw (False)
Dim arrObjects , i, j
Dim arrRef(1), arrTarg(1)
For i = 0 To 20
For j = 0 To 20
arrObjects = Rhino.AddCylinder (Array(i,j,0), Array(i,j,2), 0.01)
arrRef(0) = Array(i,j,0)
arrRef(1) = Array(i,j,1)
arrTarg(0) = Array(i,j,0)
arrTarg(1) = Array(0,0,3)
Call Rhino.OrientObject (arrObjects , arrRef, arrTarg)
Next
Next
Dim arrObjects2 , t, s
Dim arrRef2(1), arrTarg2(1)
For t = 0 To 20
For s = 0 To 20
arrObjects2 = Rhino.AddCylinder (Array(t,s,0), Array(t,s,2), 0.01)
arrRef2(0) = Array(t,s,0)
arrRef2(1) = Array(t,s,1)
arrTarg2(0) = Array(t,s,0)
arrTarg2(1) = Array(10,10,3)
Call Rhino.OrientObject (arrObjects2 , arrRef2, arrTarg2)
Next
Next
Dim arrObjects3 , a, b
Dim arrRef3(1), arrTarg3(1)
For a = 0 To 20
For b = 0 To 20
arrObjects3 = Rhino.AddCylinder (Array(a,b,0), Array(a,b,2), 0.01)
arrRef3(0) = Array(a,b,0)
arrRef3(1) = Array(a,b,1)
arrTarg3(0) = Array(a,b,0)
arrTarg3(1) = Array(20,20,3)
Call Rhino.OrientObject (arrObjects3 , arrRef3, arrTarg3)
Next
Next
Dim arrObjects4 , f, u
Dim arrRef4(1), arrTarg4(1)
For f = 0 To 20
For u = 0 To 20
arrObjects4 = Rhino.AddCylinder (Array(f,u,0), Array(f,u,2), 0.01)
arrRef4(0) = Array(f,u,0)
arrRef4(1) = Array(f,u,1)
arrTarg4(0) = Array(f,u,0)
arrTarg4(1) = Array(0,20,3)
Call Rhino.OrientObject (arrObjects4 , arrRef4, arrTarg4)
Next
Next
Dim arrObjects5 , v, d
Dim arrRef5(1), arrTarg5(1)
For v = 0 To 20
For d = 0 To 20
arrObjects5 = Rhino.AddCylinder (Array(v,d,0), Array(v,d,2), 0.01)
arrRef5(0) = Array(v,d,0)
arrRef5(1) = Array(v,d,1)
arrTarg5(0) = Array(v,d,0)
arrTarg5(1) = Array(10,10,3)
Call Rhino.OrientObject (arrObjects5 , arrRef5, arrTarg5)
Next
Next
Dim arrObjects6 , m, e
Dim arrRef6(1), arrTarg6(1)
For m = 0 To 20
For e = 0 To 20
arrObjects6 = Rhino.AddCylinder (Array(m,e,0), Array(m,e,2), 0.01)
arrRef6(0) = Array(m,e,0)
arrRef6(1) = Array(m,e,1)
arrTarg6(0) = Array(m,e,0)
arrTarg6(1) = Array(20,0,3)
Call Rhino.OrientObject (arrObjects6 , arrRef6, arrTarg6)
Next
Next
Dim arrObjects7 , h, r
Dim arrRef7(1), arrTarg7(1)
For h = 0 To 20
For r = 0 To 20
arrObjects7 = Rhino.AddCylinder (Array(h,r,0), Array(h,r,2), 0.01)
arrRef7(0) = Array(h,r,0)
arrRef7(1) = Array(h,r,1)
arrTarg7(0) = Array(h,r,0)
arrTarg7(1) = Array(0,10,3)
Call Rhino.OrientObject (arrObjects7 , arrRef7, arrTarg7)
Next
Next
Dim arrObjects8 , n, o
Dim arrRef8(1), arrTarg8(1)
For n = 0 To 20
For o = 0 To 20
arrObjects8 = Rhino.AddCylinder (Array(n,o,0), Array(n,o,2), 0.01)
arrRef8(0) = Array(n,o,0)
arrRef8(1) = Array(n,o,1)
arrTarg8(0) = Array(n,o,0)
arrTarg8(1) = Array(10,0,3)
Call Rhino.OrientObject (arrObjects8 , arrRef8, arrTarg8)
Next
Next
Dim arrObjects9 , l, y
Dim arrRef9(1), arrTarg9(1)
For l = 0 To 20
For y = 0 To 20
arrObjects9 = Rhino.AddCylinder (Array(l,y,0), Array(l,y,2), 0.01)
arrRef9(0) = Array(l,y,0)
arrRef9(1) = Array(l,y,1)
arrTarg9(0) = Array(l,y,0)
arrTarg9(1) = Array(20,10,3)
Call Rhino.OrientObject (arrObjects9 , arrRef9, arrTarg9)
Next
Next
Dim arrObjects10 , p, q
Dim arrRef10(1), arrTarg10(1)
For p = 0 To 20
For q = 0 To 20
arrObjects10 = Rhino.AddCylinder (Array(p,q,0), Array(p,q,2), 0.01)
arrRef10(0) = Array(p,q,0)
arrRef10(1) = Array(p,q,1)
arrTarg10(0) = Array(p,q,0)
arrTarg10(1) = Array(10,20,3)
Call Rhino.OrientObject (arrObjects10 , arrRef10, arrTarg10)
Next
Next
Rhino.EnableRedraw (True)
End Sub

Organic cylinders

Check this script out. This is another version of the tilted grid iteration:

Option Explicit
'Script written by
'Script copyrighted by '
Script version Tuesday, October 07, 2008 6:27:54 PM

Call Main()
Sub Main()
Dim y, x, aref(1), arefB(1) Dim aref1(1), arefB2(1), arrobjects3, arrobjects4
For x = 0 To 20
For y = 0 To 20
'arrObjects3 = Rhino.Addcylinder(Array(x,y,0), Array(x,y,2),.1)
arrObjects4 = Rhino.Addcylinder(Array(y,x,0), Array(x,x,2),.1)

aref1(0) = Array(x,x,1)
aref1(1) = Array(x,x,1)
arefB2(0) = Array(y,x,0)
arefB2(1) = Array(0,0,3)

Call Rhino.OrientObject (arrobjects4, (aref1), (arefB2))

Next
Next

End Sub

Spiraling Inward: Script

Option Explicit
'Script written by Savannah Bridge
'Script version Monday, October 06, 2008 11:47:39 PM
Call Main()
Sub Main()
Rhino.EnableRedraw (False)
'Here we call the Sub Routine Spirals specifiying
'the minimum and maximum depth of the curves.
Spirals Null, 0, 3
Rhino.EnableRedraw (True)
End Sub

Sub Spirals(spiral, depth, maxdepth)

If depth = 0 Then
Rhino.Command "Spiral f 0,0,0 1 1,1,1 M=Pitch P=2 10"
'here we make sure the last created object has only one object,
'rather than an array.
spiral = Rhino.LastCreatedObjects ()(0)
End If

If depth < color="#ccccff">'divide the original spiral and add points
points = Rhino.DivideCurve (spiral,8,True)

Dim i
'This loop just scales the original spiral to 1/4 the
'size and creates a copy at all points.
For i = 0 To Ubound(points)
Dim newSpiral
newSpiral = Rhino.ScaleObject (spiral, points(i), Array(0.25, 0.
25, 0.0), True)
Spirals newSpiral, depth+1, maxDepth
Next
End If
End Sub

Tilting grid iterations

Option Explicit
'Script written by Simeon Stevens
'Script version Friday, October 07, 2008 5:35:03 PM
Call GridOfObjects()
Sub GridOfObjects()
Dim arrObjects, arrObjects2, i, j, y, x, line, aref(1), arefB(1)
Dim aref1(1), arefB2(1), arrobjects3, arrobjects4
'For i = 0 To 20
'For j = 0 To 20
'arrObjects = Rhino.Addcylinder(Array(i,j,0), Array(i,j,2),.1)
'arrObjects2 = Rhino.Addcylinder(Array(i,j,0), Array(i,j,0),.1)
'aref(0) = Array(i,j,0)
'aref(1) = Array(i,j,1)
'arefB(0) = Array(i,j,0)
'arefB(1) = Array(5,5,3)
'Call Rhino.OrientObject (arrobjects, aref, arefb)
'Next
'Next
For x = 0 To 20
For y = 0 To 20
arrObjects3 = Rhino.Addcylinder(Array(x,y,0),
Array(x,y,2),.1)
arrObjects4 = Rhino.Addcylinder(Array(y,x,0),
Array(y,x,2),.1)
aref1(0) = Array(y,x,0)
aref1(1) = Array(y,x,1)
arefB2(0) = Array(y,x,0)
arefB2(1) = Array(0,0,3)
Call Rhino.OrientObject (arrobjects3, (aref1), (arefB2))
Next
Next
End Sub
Page