Week 1 Scripting Update

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()
Dim intWidth : intWidth  = 8
Dim intMatWidth : intMatWidth = .25
Dim intTopWid : intTopWid = intWidth – 2
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, intWidth)
strInnerCrv(i) = Rhino.AddCircle (arrPlane, intWidth-intMatWidth)
Else
strCrv(i) = Rhino.AddCircle (arrPlane, intWidth-intTopWid)
strInnerCrv(i) = Rhino.AddCircle (arrPlane, intWidth-intTopWid-intMatWidth)
End If
Next
Call Rhino.AddLoftSrf (strCrv,,,1)
Call Rhino.AddLoftSrf (strInnerCrv,,,1)
Call Rhino.deleteobjects (strCrv)
Next
End Sub

Week 1 Scripting additions

Option Explicit
‘Script written by mark.bearak
‘Script copyrighted by dtls.Architecture
‘Script version Tuesday, October 21, 2008 1:08:31 PM

Call ClearEverything()
Call Main()

Sub Main()
Dim arrPlane, i, j, strCrv(), strInnerCrv(), dblBase
dblBase = Rhino.getReal (“how wide would you like your base?”,10,7,15)
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, dblBase)
strInnerCrv(i) = Rhino.AddCircle (arrPlane, dblBase-1)
Else
strCrv(i) = Rhino.AddCircle (arrPlane, dblBase-5)
strInnerCrv(i) = Rhino.AddCircle (arrPlane, dblBase-6)
End If
Next
Call Rhino.AddLoftSrf (strCrv,,,1)
Call Rhino.AddLoftSrf (strInnerCrv,,,1)
Call Rhino.deleteobjects (strCrv)
Next
End Sub

Sub ClearEverything()
Call Rhino.Command (“selall “)
Call Rhino.Command (“delete “)
End Sub

—————————————————————–

Option Explicit
‘Script written by mark.bearak
‘Script copyrighted by dtls.Architecture
‘Script version Tuesday, October 21, 2008 1:08:31 PM

Call ClearEverything()
Call Main()

Sub Main()
Dim arrPlane, i, j, strCrv(), strInnerCrv(), intCircles
‘This integer determines size of vases and cap at top of each vase
intCircles = Rhino.getinteger (“How many circles in each vase?”,10,4,20)
For j = 0 To 5
For i = 0 To intCircles
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, 10.0)
strInnerCrv(i) = Rhino.AddCircle (arrPlane, 9.0)
Else
strCrv(i) = Rhino.AddCircle (arrPlane, 5.0)
strInnerCrv(i) = Rhino.AddCircle (arrPlane, 4.0)
End If
If i = 0 Then
Call Rhino.AddPlanarSrf (strCrv)
Call Rhino.AddPlanarSrf (strInnerCrv)
End If
If i = intCircles Then
Call Rhino.AddLoftSrf (Array(strCrv(i),strInnerCrv(i)))
End If
Next
Call Rhino.AddLoftSrf (strCrv,,,1)
Call Rhino.AddLoftSrf (strInnerCrv,,,1)
Call Rhino.deleteobjects (strCrv)
Next
End Sub
Sub ClearEverything()
Call Rhino.Command (“selall “)
Call Rhino.Command (“delete “)
End Sub

Week 1 – XS – Parametric Vases have been posted

This will be our first exercise in the XS,S,M,L,XL series for Parametric Realizations. The protocol will generate a series vases that can be 3D printed. Please review the scripts before class and come armed with questions.  Class will meet Thursday, October 23rd in Avery 115 from 8-10 PM.

You can find the tutorial here

Week 1 Pre-tutorial has been posted

This tutorial will be a crash course in Rhino.Script for those of you who have no previous experience. Please review the steps, if you can check off all of the topics then you can skip this weeks tutorial. See you on Wednesday at 6:00 in Fayerweather 202.

You can find the tutorial here