Centerpiece scupture for Hotel Lobby
9 feet tall
Hexagon base is 4 feet across flats
& Ceiling medalion is 20 feet in diameter
No plug-ins were used , only grasshopper (Rhino3D) .
nkels bei Zerlegung in 2 Dreiecke'Zeichnen der Zerlegung nach dem kleineren Winkel 'Eingabe: 4 Punkte im Raum 'Peter Mayrhofer 05-2007'==================================================Sub Main() Dim arrPts 'Array der 4 Eingabepunkte Dim arrN1, arrN2 'Normalvektoren einer Zerlegung in 2 Dreiecke Dim winkel1, winkel2, wmin, wmax 'Winkel bei gemeinsamer Kante Dim pi, grad pi = 4*Atn(1): grad = 180/pi 'Eingabe arrPts = GetPoints(,, "4 Punkte eingeben..." ,, 4)'Punkte 0,1,2,3 'Berechnung Winkel1 bei Zerlegung mit gemeinsamer Kante [1,3] arrN1 = VectorUnitize(VectorCrossProduct(VectorCreate(arrPts(0), arrPts(1)),VectorCreate(arrPts(0), arrPts(3)))) arrN2 = VectorUnitize(VectorCrossProduct(VectorCreate(arrPts(2), arrPts(3)),VectorCreate(arrPts(2), arrPts(1)))) If VectorCompare (arrN1, arrN2) Then winkel1 = 180 'Das Viereck ist planar! MessageBox "*Viereck ist planar*" Exit Sub Else winkel1 = Arccos(VectorDotProduct(arrN1, arrN2))*grad End If 'Berechnung Winkel2 bei Zerlegung mit gemeinsamer Kante [0,2] arrN1 = VectorUnitize(VectorCrossProduct(VectorCreate(arrPts(1), arrPts(2)),VectorCreate(arrPts(1), arrPts(0)))) arrN2 = VectorUnitize(VectorCrossProduct(VectorCreate(arrPts(3), arrPts(0)),VectorCreate(arrPts(3), arrPts(2)))) winkel2 = Arccos(VectorDotProduct(arrN1, arrN2))*grad 'Winkelvergleich und Ausgabemeldung If winkel1 <= winkel2 Then wmin = winkel1 : wmax = winkel2 AddLine arrPts(0), arrPts(2) 'Dreieckszerlegung bei kleinerem Winkel Else wmin = winkel2 : wmax = winkel1 AddLine arrPts(1), arrPts(3) 'Dreieckszerlegung bei kleinerem Winkel End If wmin = Fix(wmin*100)/100: wmax = Fix(wmax*100)/100 MessageBox "*Viereck nicht planar*"&vbNewLine& _ " Minimalwinkel = "&wmin&"°"&vbNewLine& _ " Maximalwinkel = "&wmax&"°"End SubMain 'Aufruf des Hauptprogramms
'================================='Funktionen aus der Vector-Library'================================='Make a vector from two 3D pointsPublic Function VectorCreate(p1, p2) VectorCreate = Null If Not IsArray(p1) Or (UBound(p1) <> 2) Then Exit Function If Not IsArray(p2) Or (UBound(p2) <> 2) Then Exit Function VectorCreate = Array(p2(0) - p1(0), p2(1) - p1(1), p2(2) - p1(2))End Function
'Unitize a 3D vectorPublic Function VectorUnitize(v) VectorUnitize = Null If Not IsArray(v) Or (UBound(v) <> 2) Then Exit Function Dim dist, x, y, z, x2, y2, z2 x = v(0) : y = v(1) : z = v(2) x2 = x * x : y2 = y * y : z2 = z * z dist = x2 + y2 + z2 If (dist < 0.0) Then Exit Function dist = Sqr(dist) x = x / dist y = y / dist z = z / dist VectorUnitize = Array(x, y, z)End Function
'Return the dot product of two 3D vectorsPublic Function VectorDotProduct(v1, v2) VectorDotProduct = Null If Not IsArray(v1) Or (UBound(v1) <> 2) Then Exit Function If Not IsArray(v2) Or (UBound(v2) <> 2) Then Exit Function VectorDotProduct = v1(0) * v2(0) + v1(1) * v2(1) + v1(2) * v2(2)End Function
'Return the cross product of two 3D vectorsPublic Function VectorCrossProduct(v1, v2) VectorCrossProduct = Null If Not IsArray(v1) Or (UBound(v1) <> 2) Then Exit Function If Not IsArray(v2) Or (UBound(v2) <> 2) Then Exit Function Dim x, y, z x = v1(1) * v2(2) - v1(2) * v2(1) y = v1(2) * v2(0) - v1(0) * v2(2) z = v1(0) * v2(1) - v1(1) * v2(0) VectorCrossProduct = Array(x, y, z)End Function
'Function: ArccosFunction Arccos(x) Arccos = Atn(-x / Sqr(-x * x + 1)) + 2 * Atn(1)End Function
'Compare two 3D vectors for equalityPublic Function VectorCompare(v1, v2) VectorCompare = False If Not IsArray(v1) Or (UBound(v1) <> 2) Then Exit Function If Not IsArray(v2) Or (UBound(v2) <> 2) Then Exit Function If v1(0) = v2(0) And v1(1) = v2(1) And v1(2) = v2(2) Then VectorCompare = True End IfEnd Function
…
Pérez Albà McNeel Europe presents Rhino 5.0, Matus Nedecký (flying architecture) and Fabio Palvelli (3D Dreaming) show VRAY for Rhino and rendering services for architecture. We also show the new Wacom Cintiq 22 HD touch.
There are 2 events, the first at 15:00 and the second at 18:30. Places are limited to 30 people each.
As a special event you can switch between the events at a basic coffee seminar "Coffee - from the plant to the cup" part. Coffee Museum in Austrian society and economy museum was founded by Edmund Mayr, who injected together with Arch Wilhelm Holzbauer, the increase of the flak tower in Esterhazy Park. His passion for collecting are also due to the many exhibits that he has collected from all over the world. Additionally Mag. Just shows a quick roundup of "100 Years of Life and Living in Vienna" and how the inventions of Dr. Carl Auer von Welsbach changed the world significantly.
program: 15:00 to 15:45 Presentation software Autodesk Maya 2014 (group 1)
15:45 -. 16:00 Tour "100 years of life and living in Vienna / Dr Carl Auer von Welsbach in the Agricultural Museum (Group 1)
16:00 to 16:45 Presentation software Rhino 5.0 and VRAY (group 1)
5:00 p.m. to 6:15 p.m. basic coffee seminar "Coffee - from the plant to the cup" with Mr Edmund Mayr
18:30 to 19:15 Presentation software Autodesk Maya 2014 (Group 2)
19:15 -. 19:30 Tour "100 years of life and living in Vienna / Dr Carl Auer von Welsbach in the Agricultural Museum (Group 1)
19:30 to 20:15 Presentation software Rhino 5.0 and VRAY (Group 2)
20:15 finger found, drinks and "Come Together"
22:00 End of the event
Participation is FREE, due to the limited number of places but registration is required. To register for the event, we ask you to select the following options:
Online Registration 15:00 http://www.kkkc.at/component/seminar/?task=3&cid=5
Online Registration 18:30 http://www.kkkc.at/component/seminar/?task=3&cid=6
or by email: office@kkkc.at
or Tel: 01-545 78 25…
Grasshopper is a visual programming language and environment developed by David Rutten at Robert McNeel & Associates,[1] that runs within the Rhinoceros 3D c...