Showing posts with label 0809M4 course. Show all posts
Showing posts with label 0809M4 course. Show all posts

Sunday, March 1, 2009

0809 VS Hippie Urbanism for Port of Belgrade

The idea is to erase the border between the river and the ground, so that there is no clear distinction between the two. Proposal is developed from components with varied properties obtained through triangular subdivision of the given lot. Resulting pattern is the used to develop flexible occupancy scenarios and introduce infrastructural strategy. Finally, as the third iteration of the pattern, known planing parameter were introduced to help control of the formal growth.


Sunday, February 15, 2009

0809 [P] MS Accessible Urbanism for Port of Belgrade

The project is about accessibility. The most accessible spots are the intersections of the extended existing lines of communication. A few of all these spots are separated to be the initial stage of the area development. The next step is to connect the initial spots with all the spots around them in the perimeter of 150m, and so the process of development is continued through phases.

Option Explicit
'-------------------------------------------------------------------------------
' Subroutine: MS Accesisible Urbanism for Port of Belgrade
' Purpose: distnace analysis within cloud of circles
' Author: Milutin Cerovic,Milica Samardzija 2009
'
www.4ofseven.com
'--------------------------------------------------------------------------------
Call Main()
Sub Main()
Dim arrCloud1
Dim arrCloud2
Dim arrCircles1,arrCircles2
Dim dblDmax,dblDmin
Dim L
Dim i

arrCircles1=Rhino.GetObjects ("Select initial circles")
ReDim arrCloud1(UBound(arrCircles1))
arrCircles2=Rhino.GetObjects("Select reference circles")
ReDim arrCloud2(UBound(arrCircles2))
dblDmax = Rhino.GetReal("Enter Max distance")
dblDmin = Rhino.GetReal
("Enter Min distance")

For i=0 To UBound(arrCircles1)
If Rhino.IsCircle(arrCircles1(i)) Then
arrCloud1(i)=Rhino.CircleCenterPoint(arrCircles1(i))
End If
Next

For i=0 To UBound(arrCircles2)
If Rhino.IsCircle(arrCircles2(i)) Then
arrCloud2(i)=Rhino.CircleCenterPoint(arrCircles2(i))
End If
Next

For Each obj In arrCloud1
For i=0 To UBound(arrcloud2)
L=Rhino.distance (arrcloud2(i),obj)
If L>dblDmin and L
Rhino.addline arrCloud2(i),obj
End If
Next
Next
End Sub

Thursday, February 12, 2009

0809 [P] MZ Iconic Urbanism for Port of Belgrade






0809 [P] NS Packing Urbanism for Port of Belgrade






0809 [P] MV Channel Urbanism for Port of Belgrade

Channel Urbanism is a way to change the current meaning and understanding of Danube waterfront. One of the main goals was to activate the "lost potential" of the river using channels which would be created in a generic manner so they could offer many solutions ( although only five of them are presented ) . As a compensation to the channel ways that would be excavated , new forms of islands would be added to the northern side of the location creating an unusual and improbable new waterfront ...