arch 571 design scripting | fall 2009 | Istanbul Bilgi University

Final Submissions

onuryucegun — Wed, 17 Feb 2010 12:40:26 +0000

begum tirpanci + hande cigerli

ebru ulu + burcu arkut

ramadan atasayan + seniha unal + merve cakir

fazil efe ilgen + filiz sahin

nur cikla + nazli tumerdem + tugce gulec

randomMemberSelection [class 20100113]

onuryucegun — Wed, 13 Jan 2010 09:08:52 +0000

script below randomly selects members within a group of objects and puts them into another layer.

Option Explicit
'Script written by
'Script copyrighted by
'Script version Wednesday, January 13, 2010 10:58:41 AM

Call Main()
Sub Main()
	Dim allMem
	allMem = rhino.getobjects("select the objects")
	Dim i
	Dim flag
	For i = 0 To UBound (allMem)
		flag = Rnd()
		If flag < 0.25 Then
			Rhino.ObjectLayer allMem(i), "Layer 03"
		End If
	Next
End Sub

skyScraper | Stage01 | Concepts

onuryucegun — Tue, 29 Dec 2009 16:08:33 +0000

efe + filiz

efe + filiz

hande + begum

merve + seniha + ramadan

ebru + burcu

surface Offset+Connection

onuryucegun — Tue, 29 Dec 2009 16:03:47 +0000

	Option Explicit
	'Script written by onur yuce gun
	'Script copyrighted by
	'Script version Tuesday, December 15, 2009 10:28:40 AM
Dim uNum
Dim vNum

	Call Main()
Sub Main()
	Dim mySrf
	Dim mySrf1
	uNum = Rhino.GetInteger ("enter u division number",10)
	vNum = Rhino.GetInteger ("enter v division number",20)
	mySrf = rhino.GetObject("select surface")
	mySrf1 = rhino.OffsetSurface (mySrf,16)
	rhino.EnableRedraw False
	'get the surface points from the first function
	Dim srfPt
	Dim srfPt1
	srfPt =	uvPts(mySrf,uNum,vNum)
	srfPt1 =	uvPts(mySrf1,uNum,vNum)
	'create xBrace on the uv grid
	Dim xBr
	Dim xBr1
	xBr = xBrace(srfPt)
	xBr1 = xBrace(srfPt1)
	'create sub syrface
	Dim sSrf
	'sSrf = subSrf(srfPt)
	Dim i,j
	For i = 0 To uNum
		For j = 0 To vNum
			rhino.AddLine srfPt(i,j),srfPT1(i,j)
		Next
	Next

	rhino.EnableReDraw True
End Sub
Function uvPts(srf, uDiv, vDiv)
	'find the surface domain
	Dim srfDomU
	Dim srfDomV
	srfDomU = Rhino.SurfaceDomain(srf,0)
	srfDomV = Rhino.SurfaceDomain(srf,1)
	'define parameter variables
	Dim parU
	Dim parV
	Dim parUV
	'all points array
	Dim allPt
	ReDim allPt (uDiv,vDiv)
	'counters
	Dim i,j
	For i = 0 To uDiv
		For j = 0 To vDiv
			parU = (srfDomU(1)/uDiv)*i
			parV = (srfDomV(1)/vDiv)*j
			parUV = Array(parU,parV)
			allPt(i,j) = Rhino.EvaluateSurface (srf, parUV)
			rhino.AddPoint allPt(i,j)
		Next
	Next
	uvPts = allPt
End Function
Function xBrace(ptArray)
	rhino.AddLayer "xBrace"
	Dim m
	Dim n
	Dim a1
	Dim a2
	For m = 0 To uNum-1
		For n = 0 To vNum-1
			a1 = rhino.AddLine (ptArray(m,n), ptArray(m+1,n+1))
			a2 = rhino.AddLine (ptArray(m+1,n), ptArray(m,n+1))
			rhino.ObjectLayer a1, "xBrace"
			rhino.ObjectLayer a2, "xBrace"
		Next
	Next
End Function

surface Components-2 [class 20091215]

onuryucegun — Thu, 17 Dec 2009 19:28:21 +0000

this script includes functions that add X-braces and triangular surfaces as surface components

Option Explicit
'Script written by onur yuce gun
'Script copyrighted by
'Script version Tuesday, December 15, 2009 10:28:40 AM
Dim uNum
Dim vNum

Call Main()
Sub Main()
	Dim mySrf
	uNum = Rhino.GetInteger ("enter u division number",10)
	vNum = Rhino.GetInteger ("enter v division number",10)
	mySrf = rhino.GetObject("select surface")
	rhino.EnableRedraw False
	'get the surface points from the first function
	Dim srfPt
	srfPt =	uvPts(mySrf,uNum,vNum)
	'create xBrace on the uv grid
	Dim xBr
	xBr = xBrace(srfPt)
	'create sub syrface
	Dim sSrf
	sSrf = subSrf(srfPt)
	rhino.EnableReDraw True
End Sub
Function uvPts(srf, uDiv, vDiv)
	'find the surface domain
	Dim srfDomU
	Dim srfDomV
	srfDomU = Rhino.SurfaceDomain(srf,0)
	srfDomV = Rhino.SurfaceDomain(srf,1)
	'define parameter variables
	Dim parU
	Dim parV
	Dim parUV
	'all points array
	Dim allPt
	ReDim allPt (uDiv,vDiv)
	'counters
	Dim i,j
	For i = 0 To uDiv
		For j = 0 To vDiv
			parU = (srfDomU(1)/uDiv)*i
			parV = (srfDomV(1)/vDiv)*j
			parUV = Array(parU,parV)
			allPt(i,j) = Rhino.EvaluateSurface (srf, parUV)
			rhino.AddPoint allPt(i,j)
		Next
	Next
	uvPts = allPt
End Function
Function xBrace(ptArray)
	rhino.AddLayer "xBrace"
	Dim m
	Dim n
	Dim a1
	Dim a2
	For m = 0 To uNum-1
		For n = 0 To vNum-1
			a1 = rhino.AddLine (ptArray(m,n), ptArray(m+1,n+1))
			a2 = rhino.AddLine (ptArray(m+1,n), ptArray(m,n+1))
			rhino.ObjectLayer a1, "xBrace"
			rhino.ObjectLayer a2, "xBrace"
		Next
	Next
End Function
Function subSrf(ptArray)
	rhino.AddLayer "subSrf",RGB(20,210,200)
	rhino.AddLayer "subSrf_Off", RGB(100,10,200)
	Dim m
	Dim n
	Dim allSubSrf
	ReDim allSubSrf(uNum-1,vNum-1)
	For m = 0 To uNum-1
		For n = 0 To vNum-1
			allSubSrf(m,n) = rhino.AddSrfPt (Array(ptArray(m,n), ptArray(m+1,n),ptArray(m+1,n+1)))
			rhino.ObjectLayer allSubSrf(m,n),"subSrf"
			rhino.OffsetSurface allSubSrf(m,n),-1.5
			rhino.ObjectLayer rhino.firstObject,"subSrf_off" 'the last object created in the scene.
		Next
	Next
	subSrf = allSubSrf
End Function

surface Components [class 20091208/11]

onuryucegun — Sat, 12 Dec 2009 16:17:36 +0000

this script is pretty much same with the one in the previous post.
the additional function “cell” adds a cellular component on the surface.

	Option Explicit
	'Script written by onur yuce gun
	'Script copyrighted by
	'Script version Friday, December 11, 2009 11:25:09 AM

	Call Main()
Sub Main()
	rhino.AddLayer "border"
	rhino.AddLayer "cell"
	'get input surface
	Dim srf
	srf = Rhino.GetObject("select surface",8)
	'get the division numbers for U and v directions
	Dim uRes
	Dim vRes
	uRes = rhino.GetInteger ("enter u division number",10)
	vRes = rhino.GetInteger ("enter v division number",10)
	'call the function to evaluate the surface
	Dim uvPt
	uvPt = srfPt(srf, uRes, vRes)

	Dim m
	Dim n
	Dim myCell
	For m = 0 To uRes-1
		For n = 0 To vRes-1
			'cell is the fucntion defined at the bottom of the code
			myCell = cell(uvPt(m,n),uvPt(m+1,n),uvPt(m+1,n+1),uvPt(m,n+1),floor((m+n)/4)+4 )
		Next
	Next

End Sub
Function srfPt(iSrf, iUNum, iVNum) 'inputs
	'define domain variables
	Dim domU_iSrf
	Dim domV_iSrf
	'find surface domain
	domU_iSrf = Rhino.SurfaceDomain (iSrf,0)
	domV_iSrf = Rhino.SurfaceDomain (iSrf,1)
	'define uv parameter variables
	Dim uParam
	Dim vParam
	Dim uvParam
	'define variable For surface points
	Dim pt
	'convert pt into an array
	ReDim pt(iuNum, ivNum)
	Dim i,j
	For i = 0 To iuNum
		For j = 0 To ivNum
			uParam = (domU_iSrf(1)/iuNum)*i
			vParam = (domV_iSrf(1)/ivNum)*j
			uvParam = Array(uParam,vParam)
			pt(i,j) = rhino.EvaluateSurface (iSrf, uvParam)
			rhino.AddPoint pt(i,j)
		Next
	Next
	srfPt = pt
End Function
'this function creates a cell
Function cell(pt1,pt2,pt3,pt4,cellDiv)
	Dim border
	border = rhino.AddPolyline (Array(pt1,pt2,pt3,pt4,pt1))
	rhino.ObjectLayer border, "border"
	Dim divPts
	divPts = Rhino.DivideCurve (border, cellDiv)

	'rhino.Print UBound(divPts)
	ReDim Preserve divPts(cellDiv)
	divPts(cellDiv) = divPts(0)

	Dim cellCrv
	cellCrv = rhino.addCurve (divPts)
	rhino.ObjectLayer cellCrv, "cell"
End Function

evaluate Surface: UV grid [class 20091208/11]

onuryucegun — Sat, 12 Dec 2009 16:08:46 +0000

script below evaluates a surface and creates a UV point grid on it.

Option Explicit
'Script written by onur yuce gun
'Script copyrighted by
'Script version Friday, December 11, 2009 11:25:09 AM

Call Main()
Sub Main()
	'get input surface
	Dim srf
	srf = Rhino.GetObject("select surface",8)
	'get the division numbers for U and v directions
	Dim uRes
	Dim vRes
	uRes = rhino.GetInteger ("enter u division number",10)
	vRes = rhino.GetInteger ("enter v division number",10)
	'call the function to evaluate the surface
	Dim uvPt
	uvPt = srfPt(srf, uRes, vRes)
End Sub
Function srfPt(iSrf, iUNum, iVNum) 'inputs
	'define domain variables
	Dim domU_iSrf
	Dim domV_iSrf
	'find surface domain
	domU_iSrf = Rhino.SurfaceDomain (iSrf,0)
	domV_iSrf = Rhino.SurfaceDomain (iSrf,1)
	'define uv parameter variables
	Dim uParam
	Dim vParam
	Dim uvParam
	'define variable For surface points
	Dim pt
	'convert pt into an array
	ReDim pt(iuNum, ivNum)
	'evaluate the surface
	'at given parameters
	'to generate a UV grid
	Dim i,j
	For i = 0 To iuNum
		For j = 0 To ivNum
			uParam = (domU_iSrf(1)/iuNum)*i
			vParam = (domV_iSrf(1)/ivNum)*j
			uvParam = Array(uParam,vParam)
			pt(i,j) = rhino.EvaluateSurface (iSrf, uvParam)
			rhino.AddPoint pt(i,j)
		Next
	Next
	srfPt = pt
End Function

evaluate Curve [class 20091208/11]

onuryucegun — Sat, 12 Dec 2009 15:59:11 +0000

you can mark/find points on a curve at a given parameter by using it’s domain.
curve domain could be though as the “(mathematical) definition space” of the curve.

Option Explicit
'Script written by onur yuce gun
'Script copyrighted by
'Script version Friday, December 11, 2009 10:54:39 AM

Call Main()
Sub Main()
	'get the curve
	Dim crv
	crv = rhino.Getobject ("select curve")
	'find the curve domain
	'(refer to rhinoscript help file
	Dim domCrv
	domCrv = rhino.CurveDomain (crv)
	'evaluate the curve at a given parameter
	Dim pt
	pt = Rhino.EvaluateCurve (crv,domCrv(1)*0.5)
	rhino.addPoint pt
End Sub

arithmetic Mean, one liner [class 20091208/11]

onuryucegun — Sat, 12 Dec 2009 15:53:32 +0000

Option Explicit
'Script written by onur yuce gun
'Script copyrighted by
'Script version Friday, December 11, 2009 10:21:04 AM

Call Main()
Sub Main()
	'call the function
	rhino.Print calcMean(26,8)
End Sub
Function calcMean(num1,num2)
	Dim sum
	sum = num1 + num2
	calcMean = sum/2
End Function

arithmetic Mean [class 20091208/11]

onuryucegun — Sat, 12 Dec 2009 14:18:19 +0000

Option Explicit
'Script written by onur yuce gun
'Script copyrighted by
'Script version Friday, December 11, 2009 10:21:04 AM

Call Main()
Sub Main()
	Dim integer1
	Dim integer2
	'get two numbers as user input
	integer1 = rhino.GetInteger ("enter the first integer")
	integer2 = rhino.GetInteger ("enter the second integer")
	Dim result
	'call the calcMean function
	result = calcMean(integer1,integer2)
	rhino.Print result
End Sub
'function below gets two numbers
'and RETURNS the arithmetic mean of these numbers
Function calcMean(num1,num2)
	Dim sum
	sum = num1 + num2
	calcMean = sum/2
End Function