coincendence?

SA: This hit me when me brother called my hat a Phillies hat when it is actually a PhilaU hat, i think the school got ripped off by whoever(whomever)? designed the logo

Simeon's Wedding

SA: First and foremost I would like to congratulate and thank Simeon for allowing me to be a part of this special occasion. I would also like to applaud him on his elegant, well spoken, thoughtful, and heart-felt vowels.

Aside from the ceremony starting about an hour late, apparently due to some late groomsmen, it was a beautiful ceremony. Simeon was well composed, confident, obviously happy and excited, and of course kept the humor up by making Jackie (bride) repeat "I do" so everyone else could hear it. Jackie looked absolutely beautiful. She maintained a heart-warming and radiant smile throughout the ceremony and the entire day.

The reception was a good time. I very much enjoyed the food and the cake. The MC of the reception was quite humorous and kept the atmosphere light and comfortable. All of those who spoke did so well. It was easily seen that they were speaking from the heart and care very much for both Simeon and Jackie.

I am going to be as bold as to speak for the rest of Table 7, we were honored to be there to celebrate with you this joyous occasion, and we appreciate the shout-out during your speech.

I wish you both the best of luck and lifetime of happiness and success in all of your future endeavors.



There are photo posted on my facebook page

Flight404

CR: There are some fascinating things coming out of this man's code. His blog is just visually stunning! Check it out here: http://www.flight404.com/blog/

Parrrtay

Crystal and I have decided that we all need to go out before the last day, or before Crystal leaves. That does include you Nico and Christian!

Super Sweet!

Check out this super sexy Voronoi-type ceiling! Nice application idea.

http://www.archdaily.com/9165/campus-restaurant-and-event-space-barkow-leibinger-architects/

Rocky Steps @ the PMA

SA: This is from Google Maps, thought it was worth sharing

SS: Calculus Based Form: An Interview With Greg Lynn

If you get a chance take a look at this article before class tonight. I will be presenting on Greg Lynn's approach to architecture and scripting methods.

http://web.arch.usyd.edu.au/~marcaurel/desc9019/tutorials/Readings/other/gregLynn_calcForm.pdf

Playtime links!

http://www.youtube.com/watch?v=Wj6l5kEzPhw


http://www.youtube.com/watch?v=wSSjCg4Ic0Y&NR=1

hey check this link out.



http://www.prettycoolthings.com/2008/02/22/moving-into-your-own-very-own-shell/


these guys moved into actual shell!!


I think can be used as an example of scripting even though that technique wasn't involved.

Cool Site

SA: This is a cool blog that has some nice looking scripts including some voronoi cell spaces

http://designplaygrounds.blogspot.com/search/label/rhinoscript

Script I found

SA: You need to start with a 3D shape in your space

Option Explicit'Script written by

'Script copyrighted by
'Script version den 14 maj 2008 12:05:17
'Unrolls multiple surfaces/polysurfaces and puts a ID-tag at the center of each surface/polysurface
Call UnrollMulti()
Sub UnrollMulti()
Dim arrObjects, strObject, intID, intN, strSurface
intN = 0
intID = 0
arrObjects = Rhino.GetObjects("Pick srfs or polysrfs", 8+16,False,True, False)
If IsArray(arrObjects) Then For Each strObject In arrObjects
Dim lngColor, arrPoint, strCoordinates, strObject2, arrPoints, strText, strPoint, arrObject2, arrPoint2, strDot
'Make ID tag
intID = intID + 1
strText = CStr(intID)
'Get Color lngColor = Rhino.ObjectColor (strObject)
Call Rhino.EnableRedraw(False)
'Extract Surface if Object is Polysurface
If Rhino.ObjectType(strObject) = 16 Then
arrExpSrfs, intI, strObjectCopy
intI = 0
strObjectCopy = Rhino.CopyObject(strObject)
arrExpSrfs = Rhino.ExplodePolysurfaces (strObjectCopy)
Rhino.DeleteObject(strObjectCopy)
If isArray(arrExpSrfs) Then
For Each strSurface In arrExpSrfs
If intI > 0 Then
Rhino.DeleteObject(strSurface)
Else
'Get Center Coordinates for Extracted Srf
strSurface = Rhino.SelectObject (strSurface)
Rhino.Command "_PointsFromUV Normalized=Yes 0.5 0.5 Enter"
Rhino.DeleteObject strSurface
intN = intN+1
Rhino.Command "_SelNone"
Rhino.Command "_SelLast"
arrPoints = Rhino.SelectedObjects
End If intI = intI + 1
Next
End If
Else
'Get Center Coordinates for Srf
strSurface = Rhino.SelectObject (strObject)
Rhino.Command "_PointsFromUV Normalized=Yes 0.5 0.5 Enter"
intN = intN+1
Rhino.Command "_SelNone"
Rhino.Command "_SelLast"
arrPoints = Rhino.SelectedObjects
End If
If IsArray(arrPoints) Then
For Each strPoint In arrPoints
If Rhino.ObjectType(strPoint) = 1 Then
arrPoint = Rhino.PointCoordinates (strPoint)
DeleteObject strPoint
Else
Rhino.DeleteObject(strPoint)
End If
Next
End If
'Insert Dot1
Rhino.AddTextDot strText, arrPoint
Rhino.Command "_SelNone"
'Change Color of Dot1 strDot = Rhino.FirstObject
'Rhino.ObjectColor strDot, lngColor
' Rhino.MatchObjectAttributes strDot,strObject
Rhino.Command "_SelNone"
'Unroll
Rhino.SelectObject (strObject)
Rhino.Command "_UnrollSrf Enter Enter"
Rhino.Command "_SelNone"
Rhino.Command "_SelLast"
'Rhino.Command "Move 0,0,0 "
'Get Center Coordinates
arrObject2 = Rhino.SelectedObjects
Dim strNewObj
If IsArray(arrObject2) Then
For Each strObject2 In arrObject2
'Change Color
'Rhino.ObjectColor
strObject2, lngColor
'Rhino.MatchObjectAttributes strObject2,strObject
'Extract Surface if Object is Polysurface
If Rhino.ObjectType(strObject2) = 16 Then
intI = 0
arrExpSrfs = Rhino.ExplodePolysurfaces (strObject2)
If isArray(arrExpSrfs) Then
For Each strSurface In arrExpSrfs
If intI > 0 Then
Rhino.DeleteObject(strSurface)
Else
strNewObj = strSurface
End If
intI=intI+1
Next
End If
Else
strNewObj = Rhino.CopyObject(strObject2)
End If
Rhino.Command "_PointsFromUV Normalized=Yes 0.5 0.5 Enter"
Rhino.Command "_SelNone"
Rhino.Command "_SelLast"
arrPoints = Rhino.SelectedObjects
Rhino.DeleteObject(strNewObj)
Next
End If
If IsArray(arrPoints) Then
For Each strPoint In arrPoints
If Rhino.ObjectType(strPoint) = 1 Then
arrPoint2 = Rhino.PointCoordinates (strPoint)
Rhino.DeleteObject(strPoint)
End If
Next
End If
'Insert Dot2
'Rhino.AddTextDot strText, arrPoint2
Rhino.Command "_SelNone"
Dim strDot2
'Change Color of Dot2
strDot2 = Rhino.FirstObject
'Rhino.MatchObjectAttributes strDot2,strDot
'Rhino.ObjectColor strDot2, lngColor
Rhino.Command "_SelNone"
strObject = Rhino.FirstObject (True)
Rhino.NextObject strObject, True
Rhino.Command "Group"
Call Rhino.EnableRedraw(True)
Rhino.Command "Move 0,0,0 "
Rhino.UnselectAllObjects()
Next
End If
End Sub