Jorge Barragan_Upside down vases

‘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,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, Log(10.0))
      strInnerCrv(i) = Rhino.AddCircle (arrPlane, Log(5.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,8.0)
      strInnerCrv(i) = Rhino.AddCircle (arrPlane, 6.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

 

 

 

Final Project

Group members: Saskia Nagel, Jorge Barragan
Project: Interlocking Wall System
Material: MDF wood
Technique: CNC mill
Description: the system would be made up of cells which interlock with each other. The cell itself would be made from MDF wood and milled out by layers/contour sections. The final product will be these contour sections glued together to create the “atom” cell. These “atoms” plug into eachother. The wall system consists of two rows of cells so that it can actually stand on its own and has a thickness of 8″ which means each cell or “atom” is 4″ wide.

 

 

 

 

 

 

 

 

 

 

 

 

Pseudo script:

Make array of 4 points

Copy these 4 points and move them 4” up on the z axis

create a cube using these 8 points

create spheres using each of the 8 points as the spheres’ centers

subtract the total volume of the 4 spheres  from the cube