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

 

Homework 1

 

 

 

 

 

 

 

Option Explicit
‘Script modified by Saskia Nagel
‘Script written by mark.bearak
‘Script copyrighted by dtls.Architecture
‘Script version Tuesday, October 28, 2008

Call Main()
    Sub Main()
    Dim arrPlane, i, strCrv()
    For i = 0 To 15
    ReDim Preserve strCrv(i)
    arrPlane = Rhino.PlaneFromPoints (Array(0,10*Cos(i),i*7), Array(0,1,i*7), Array(1,0,i*7))
    If i < 8 Then
    strCrv(i) = Rhino.AddCircle (arrPlane, 20)
    Else
    If i >= 8 And i< 12 Then
    strCrv(i) = Rhino.AddCircle (arrPlane, 12)
    Else
    strCrv(i) = Rhino.AddCircle (arrPlane, 4)
    If  i< 12 Then
    strCrv(i) = Rhino.AddCircle (arrPlane, 15)
    Else
    strCrv(i) = Rhino.AddCircle (arrPlane, 3)
    End If
    End If
    End If
  Next
  Call Rhino.AddLoftSrf (strCrv)
End Sub