Final Sinwear

asm2139 — Mon, 21 Jan 2008 23:13:50 CST

Adam Mercier and Siddarth Jadhav

asm2139 — Mon, 21 Jan 2008 22:55:06 CST

Prae Lorvidhaya

pl2273 — Tue, 18 Dec 2007 17:32:02 CST

Call Main()
Sub Main()
Dim i, j, k, n, m
n=0
m=0
Dim u,v,u2,v2,u3,v3,u4,v4,u5,v5
Dim arrPoint,arrPoint2,arrPoint3,arrPoint4,arrPoint5

Dim intU : intU = 32
Dim intV : intV = 32
Dim strSrf : strSrf = Rhino.GetObject ("Select first host surf",12)
Dim UDomain : UDomain = Rhino.SurfaceDomain(strSrf, 0)
Dim VDomain : VDomain = Rhino.SurfaceDomain(strSrf, 1)
Dim UStep : UStep = (UDomain(1) - UDomain(0)) / intU
Dim VStep : VStep = (VDomain(1) - VDomain(0)) / intV
ReDim arrFrame(intU,intV)
ReDim arrPts(intU,intV)
Dim strSrf2 : strSrf2 = Rhino.GetObject ("Select second host surf",12)
Dim UDomain2 : UDomain2 = Rhino.SurfaceDomain(strSrf2, 0)
Dim VDomain2 : VDomain2 = Rhino.SurfaceDomain(strSrf2, 1)
Dim UStep2 : UStep2 = (UDomain2(1) - UDomain2(0)) / intU
Dim VStep2 : VStep2 = (VDomain2(1) - VDomain2(0)) / intV
ReDim arrFrame2(intU,intV)
ReDim arrPts2(intU,intV)
Dim strSrf3 : strSrf3 = Rhino.GetObject ("Select third host surf",12)
Dim UDomain3 : UDomain3 = Rhino.SurfaceDomain(strSrf3, 0)
Dim VDomain3 : VDomain3 = Rhino.SurfaceDomain(strSrf3, 1)
Dim UStep3 : UStep3 = (UDomain3(1) - UDomain3(0)) / intU
Dim VStep3 : VStep3 = (VDomain3(1) - VDomain3(0)) / intV
ReDim arrFrame3(intU,intV)
ReDim arrPts3(intU,intV)
Dim strSrf4 : strSrf4 = Rhino.GetObject ("Select forth host surf",12)
Dim UDomain4 : UDomain4 = Rhino.SurfaceDomain(strSrf4, 0)
Dim VDomain4 : VDomain4 = Rhino.SurfaceDomain(strSrf4, 1)
Dim UStep4 : UStep4 = (UDomain4(1) - UDomain4(0)) / intU
Dim VStep4 : VStep4 = (VDomain4(1) - VDomain4(0)) / intV
ReDim arrFrame4(intU,intV)
ReDim arrPts4(intU,intV)
Dim strSrf5 : strSrf5 = Rhino.GetObject ("Select fifth host surf",12)
Dim UDomain5 : UDomain5 = Rhino.SurfaceDomain(strSrf5, 0)
Dim VDomain5 : VDomain5 = Rhino.SurfaceDomain(strSrf5, 1)
Dim UStep5 : UStep5 = (UDomain5(1) - UDomain5(0)) / intU
Dim VStep5 : VStep5 = (VDomain5(1) - VDomain5(0)) / intV
ReDim arrFrame5(intU,intV)
ReDim arrPts5(intU,intV)
Dim strCrv1_2(),strCrv3_2(),strCrv3_4(),strCrv5_4(),strCrvM1_2(),strCrvM3_2(),strCrvM3_4(),strCrvM5_4()
Dim RstrCrv1_2(),RstrCrv3_2(),RstrCrv3_4(),RstrCrv5_4(),RstrCrvM1_2(),RstrCrvM3_2(),RstrCrvM3_4(),RstrCrvM5_4()
For i = 0 To intU
For j = 0 To intV
u = UDomain(0) + UStep * i
v = VDomain(0) + VStep * j
arrFrame(i,j) = Rhino.SurfaceFrame (strSrf, array(u,v))
'arrPoint = Rhino.AddPoints (array(arrFrame(i,j)(0)))
u2 = UDomain2(0) + UStep2 * i
v2 = UDomain2(0) + VStep2 * j
arrFrame2(i,j) = Rhino.SurfaceFrame (strSrf2, array(u,v))
'arrPoint2 = Rhino.AddPoints (array(arrFrame2(i,J)(0)))
u3 = UDomain3(0) + UStep3 * i
v3 = UDomain3(0) + VStep3 * j
arrFrame3(i,j) = Rhino.SurfaceFrame (strSrf3, array(u,v))
'arrPoint3 = Rhino.AddPoints (array(arrFrame3(i,J)(0)))
u4 = UDomain4(0) + UStep4 * i
v4 = UDomain4(0) + VStep4 * j
arrFrame4(i,j) = Rhino.SurfaceFrame (strSrf4, array(u,v))
' arrPoint4 = Rhino.AddPoints (array(arrFrame4(i,J)(0)))
u5 = UDomain5(0) + UStep5 * i
v5 = UDomain5(0) + VStep5 * j
arrFrame5(i,j) = Rhino.SurfaceFrame (strSrf5, array(u,v))
'arrPoint5 = Rhino.AddPoints (array(arrFrame5(i,J)(0)))
If ((i>0 And j>0 And i<=32 And j<=32) And ((i Mod 8 = 0 And j Mod 16 = 8)Or(i Mod 8 = 0 And j Mod 16 = 0))) Then
ReDim Preserve strCrv1_2(n)
ReDim Preserve strCrv3_2(n)
ReDim Preserve strCrv3_4(n)
ReDim Preserve strCrv5_4(n)
ReDim Preserve strCrvM1_2(n)
ReDim Preserve strCrvM3_2(n)
ReDim Preserve strCrvM3_4(n)
ReDim Preserve strCrvM5_4(n)
ReDim Preserve RstrCrv1_2(m)
ReDim Preserve RstrCrv3_2(m)
ReDim Preserve RstrCrv3_4(m)
ReDim Preserve RstrCrv5_4(m)
ReDim Preserve RstrCrvM1_2(m)
ReDim Preserve RstrCrvM3_2(m)
ReDim Preserve RstrCrvM3_4(m)
ReDim Preserve RstrCrvM5_4(m)
If(j Mod 16 = 8) Then
strCrv1_2(n) = Rhino.AddCurve(array(arrFrame(i-8,j)(0),_
arrFrame(i-8,j-1)(0),_
arrFrame2(i-6,j-4)(0),_
arrFrame(i-5,j-7)(0),_
arrFrame(i-5,j-8)(0),_
arrFrame(i-4,j-8)(0)),2)
strCrv3_2(n) = Rhino.AddCurve(array(arrFrame3(i-4,j)(0),_
arrFrame3(i-5,j)(0),_
arrFrame3(i-5,j-1)(0),_
arrFrame2(i-6,j-4)(0),_
arrFrame3(i-8,j-7)(0),_
arrFrame3(i-8,j-8)(0)),2)
strCrv3_4(n) = Rhino.AddCurve(array(arrFrame3(i-4,j)(0),_
arrFrame3(i-5,j)(0),_
arrFrame3(i-5,j-1)(0),_
arrFrame4(i-6,j-4)(0),_
arrFrame3(i-8,j-7)(0),_
arrFrame3(i-8,j-8)(0)),2)
strCrv5_4(n) = Rhino.AddCurve(array(arrFrame5(i-8,j)(0),_
arrFrame5(i-8,j-1)(0),_
arrFrame4(i-6,j-4)(0),_
arrFrame5(i-5,j-7)(0),_
arrFrame5(i-5,j-8)(0),_
arrFrame5(i-4,j-8)(0)),2)

RstrCrv1_2(m) = Rhino.AddCurve(array(arrFrame(i,j)(0),_
arrFrame(i,j-1)(0),_
arrFrame2(i-2,j-4)(0),_
arrFrame(i-3,j-7)(0),_
arrFrame(i-3,j-8)(0),_
arrFrame(i-4,j-8)(0)),2)
RstrCrv3_2(m) = Rhino.AddCurve(array(arrFrame3(i-4,j)(0),_
arrFrame3(i-3,j)(0),_
arrFrame3(i-3,j-1)(0),_
arrFrame2(i-2,j-4)(0),_
arrFrame3(i,j-7)(0),_
arrFrame3(i,j-8)(0)),2)
RstrCrv3_4(m) = Rhino.AddCurve(array(arrFrame3(i-4,j)(0),_
arrFrame3(i-3,j)(0),_
arrFrame3(i-3,j-1)(0),_
arrFrame4(i-2,j-4)(0),_
arrFrame3(i,j-7)(0),_
arrFrame3(i,j-8)(0)),2)
RstrCrv5_4(m) = Rhino.AddCurve(array(arrFrame5(i,j)(0),_
arrFrame5(i,j-1)(0),_
arrFrame4(i-2,j-4)(0),_
arrFrame5(i-3,j-7)(0),_
arrFrame5(i-3,j-8)(0),_
arrFrame5(i-4,j-8)(0)),2)

Else
strCrvM1_2(n) = Rhino.AddCurve(array(arrFrame(i-4,j)(0),_
arrFrame(i-5,j)(0),_
arrFrame(i-5,j-1)(0),_
arrFrame2(i-6,j-4)(0),_
arrFrame(i-8,j-7)(0),_
arrFrame(i-8,j-8)(0)),2)
strCrvM3_2(n) = Rhino.AddCurve(array(arrFrame3(i-8,j)(0),_
arrFrame3(i-8,j-1)(0),_
arrFrame2(i-6,j-4)(0),_
arrFrame3(i-5,j-7)(0),_
arrFrame3(i-5,j-8)(0),_
arrFrame3(i-4,j-8)(0)),2)
strCrvM3_4(n) = Rhino.AddCurve(array(arrFrame3(i-8,j)(0),_
arrFrame3(i-8,j-1)(0),_
arrFrame4(i-6,j-4)(0),_
arrFrame3(i-5,j-7)(0),_
arrFrame3(i-5,j-8)(0),_
arrFrame3(i-4,j-8)(0)),2)
strCrvM5_4(n) = Rhino.AddCurve(array(arrFrame5(i-4,j)(0),_
arrFrame5(i-5,j)(0),_
arrFrame5(i-5,j-1)(0),_
arrFrame4(i-6,j-4)(0),_
arrFrame5(i-8,j-7)(0),_
arrFrame5(i-8,j-8)(0)),2)

RstrCrvM1_2(m) = Rhino.AddCurve(array(arrFrame(i-4,j)(0),_
arrFrame(i-3,j)(0),_
arrFrame(i-3,j-1)(0),_
arrFrame2(i-2,j-4)(0),_
arrFrame(i,j-7)(0),_
arrFrame(i,j-8)(0)),2)
RstrCrvM3_2(m) = Rhino.AddCurve(array(arrFrame3(i,j)(0),_
arrFrame3(i,j-1)(0),_
arrFrame2(i-2,j-4)(0),_
arrFrame3(i-3,j-7)(0),_
arrFrame3(i-3,j-8)(0),_
arrFrame3(i-4,j-8)(0)),2)
RstrCrvM3_4(m) = Rhino.AddCurve(array(arrFrame3(i,j)(0),_
arrFrame3(i,j-1)(0),_
arrFrame4(i-2,j-4)(0),_
arrFrame3(i-3,j-7)(0),_
arrFrame3(i-3,j-8)(0),_
arrFrame3(i-4,j-8)(0)),2)
RstrCrvM5_4(m) = Rhino.AddCurve(array(arrFrame5(i-4,j)(0),_
arrFrame5(i-3,j)(0),_
arrFrame5(i-3,j-1)(0),_
arrFrame4(i-2,j-4)(0),_
arrFrame5(i,j-7)(0),_
arrFrame5(i,j-8)(0)),2)
Call Rhino.AddLoftSrf (array(strCrv1_2(n), RstrCrv1_2(m)))
Call Rhino.AddLoftSrf (array(strCrv3_2(n), RstrCrv3_2(m)))
Call Rhino.AddLoftSrf (array(strCrv3_4(n), RstrCrv3_4(m)))
Call Rhino.AddLoftSrf (array(strCrv5_4(n), RstrCrv5_4(m)))
Call Rhino.AddLoftSrf (array(strCrvM1_2(n), RstrCrvM1_2(m)))
Call Rhino.AddLoftSrf (array(strCrvM3_2(n), RstrCrvM3_2(m)))
Call Rhino.AddLoftSrf (array(strCrvM3_4(n), RstrCrvM3_4(m)))
Call Rhino.AddLoftSrf (array(strCrvM5_4(n), RstrCrvM5_4(m)))
n = n + 1
m = m + 1
End If
End If
Next
Next
End Sub

Final Review

ebj2111 — Fri, 14 Dec 2007 14:01:17 CST

Script Study 1

Mbro — Fri, 14 Dec 2007 13:50:58 CST

Week_01
Week_02
Week_03
Week_04
Week_05
Week_06
Final_Fall07

Final_Fall07

Mbro — Fri, 14 Dec 2007 13:49:54 CST

Emily Johnson

ebj2111 — Fri, 14 Dec 2007 13:46:28 CST

Week 01
Week 02
Week 03
Week 04
Week 06
Week 07
Week 08
Week 09
Week 10
Final Review

Amanda Brookins

ab2881 — Wed, 12 Dec 2007 19:23:48 CST

Week 1
Week 2

mid

Week 3
new cut files
fabric ribbons

final presentation

material potency // FA 2007 // final presentation

ab2881 — Wed, 12 Dec 2007 19:23:07 CST

post finale

kcw2120 — Wed, 12 Dec 2007 12:18:39 CST

hand-wear :: a material for your hand

material development produced scripts with frequency (V) and parametric (VI) control.

experimenting with variations on VI resulted in VII, a more robust variant of VI.

distance-based attractor parameters produced seven major gradients of VII.

frequency control in V affects material depth.
parametric control in VII affects field coverage, or material opacity.
can they come to an agreement?

joining scripts V and VII produces the desired material performance characteristics.

script VII parametrically modifies the performance of individual cell components, such as tentacle length and plate size. these modifications affect material opacity once individual cells are constructed into a field.

final_images

vgy1 — Tue, 11 Dec 2007 13:55:11 CST

There is no abstract available for this page revision.

fabric ribbons

ab2881 — Tue, 27 Nov 2007 23:30:45 CST

Images 10

ebj2111 — Mon, 26 Nov 2007 09:08:15 CST

Urban Armor

Mbro — Mon, 26 Nov 2007 00:04:19 CST

There is no abstract available for this page revision.

Flexi

Mbro — Sun, 25 Nov 2007 15:24:36 CST

week 3

ab2881 — Sun, 11 Nov 2007 11:27:55 CST

new cut files

ab2881 — Sun, 11 Nov 2007 10:59:33 CST

Armor

Mbro — Thu, 01 Nov 2007 16:19:05 CDT

metaware - Recently Updated Pages