digital futures » 3d

digital craft/Alex Roman: Exeter

RSarrach — Thu, 07 Jan 2010 03:41:07 +0000

Screen-cast from Alex Roman that takes you through modeling, rendering and compositing in motion graphics (3dsmax, Vray, AfterEffects and Premiere.). “A FULL-CG animated piece that tries to illustrate architecture art across a photographic point of view where main subjects are already built spaces.” I am sure we will see many great things from him to come.

For more information on this project please visit thirdseventh.com/ + his vimeo page.

compositing breakdown

Maya SubD Workshop I: Follow-up

RSarrach — Thu, 01 Oct 2009 03:51:05 +0000

Digital Futures Workshop Series
Pratt Institute
School of Undergraduate Architecture
2009.09.28
Maya SubD Workshop I

Overview -
-Differences between Meshes and Nurbs
-What subD’s are and why we use them
-SubD surface Workflow(s)

Modeling in Maya –
-Maya Basics
Configuring Interface and settings
Navigating in Maya
Icons, Drop down menu, hotbox, shortcut keys
Tool Locations

-Polygon mesh modeling
Mesh primitive creation
Mesh editing & modifiers

-SubD modeling
SubD primitive creation
Converting meshes to subD
SubD editing & modifiers

Mesh modeling in Rhino3D & Grasshopper-

-Rhino Mesh Basics
Configuring settings
Mesh primitives
Meshes from surfaces
Mesh editing and modifiers
Mesh mapping and deformers

-Meshes in grasshopper
Translate a component into grasshopper
Mapping a parametric mesh component to a surface.
Applying Data from an Image

-Preparing for Export
Unifying mesh normals
Joining meshes and Welding
Export selected as .OBJ

Importing Files into Maya-
Importing .OBJ files
Troubleshooting Geometry
Exporting for rendering/3D printing

Downloads:

documents:

digital files:

fundamentals of surface modeling

RSarrach — Mon, 21 Sep 2009 04:24:47 +0000

We will be placing tutorials & base files for all 7 forms in the “periodic table of form“ (located above) up on df. The text below is an excerpt from the core 77 article entitled “A Periodic Table of Form: the secret language of surface and meaning in product design”, by Gray Holland. It serves as a wonderful conceptual bootstrapping mechanism for our Rhino Boot-Camp Workshop 001.

“If there is an empirical meaning behind form then, how does it manifest across the natural and into the man-made world? Going further with this notion, let’s deconstruct the meaning of form naturally, and then distill that meaning into some simplified geometric categories technically. In order to define these categories, I will ironically employ a three-level definition of surface continuity from the engineering CAD lexicon: Positional, Tangential, and Curvature continuities.

It’s useful to think of these three types as steps in a ladder, with each building on the definition of the last. Positional continuity [C⁰ or G⁰] refers to the hard edge created when 2 surfaces intersect. Tangential continuity [C¹ or G¹] is the next level, defined by a circular arc creating a relatively smooth transition between these surfaces. The quality of this transition is best visualized by a straight line drawn between two circles: the line’s only point of contact with each circle is tangential. This level of continuity is often described as a basic fillet in most solid modeling systems. Although smooth, there is a characteristic “break line” of tangency denoting where the circle meets the line.

Curvature continuity [C² or G²] is a bit trickier to describe. Technically, it occurs when the rate of curvature between 2 continuous surfaces are the same. Visually, it is when one cannot tell when one surface ends and another begins. In the CAD world this is often referred to as class A surfacing, and is the domain of surface-based modeling software like Alias, Rhino, and Catia. The primary benefit of Curvature’s quality is the ability to control smooth reflections across multiple surfaces, generating the elegant sculptural results necessary in the automotive industry. The technical renderings below illustrate these visual qualities better than any verbal description could. Please pay attention to the subtle differences, particularly the Tangential line marking the fillet’s point of contact with its adjacent surface, and how the reflections break there as well.”

To read the rest of the article please go to core 77 .

Image via core77

The periodic table of from was originally posted on core 77 .

Download the full size pdf of the table here>>> PeriodicTable-Form

Grasshopper Level I workshop

RSarrach — Sun, 13 Sep 2009 22:42:44 +0000

Description: Grasshopper Level I will serve as an introduction to the parametric plugin Grasshopper for Rhino3D. Participants will be exposed to beginner/intermediate level workflows and design strategies for parametric modeling. Emphasis will be placed on data flow, visualization, and analysis techniques that will provide a robust foundation for future research and development.
Location:
Room HHN 308
Date + Time:
2009.09.14 (7-10PM)
Requirements:
Participants are required to bring a laptop with Rhino3D (SR6
9-July-2009) and Grasshopper (v0.6.0019) preinstalled.

Rhino3d download:

http://download.rhino3d.com/eval/?p=25

Grasshopper links:

Rhino3d Image Reader Script

RSarrach — Thu, 10 Sep 2009 00:53:48 +0000

Image reader tool for rhino3d from David Mans @ neoarchaic

Code

Option Explicit
'Script written by 
'adapted from work by Che Wei Wang
'www.cwwang.com
'Script copyrighted by 
'Script version Tuesday, March 18, 2008 7:40:18 AM
Call Main()
Sub Main()
Dim rows, cols, tol, height,unit
Dim arrItems, arrValues, arrResults
arrItems = array("columns","rows","tolerance","maximum_height","unit_width")
arrValues = array(10,10,0,10,10)
arrResults = Rhino.PropertyListBox (arrItems, arrValues ,,"Image Parameters")
cols = CDbl(arrResults(0))
rows = CDbl(arrResults(1))
If CDbl(arrResults(2)) > 1 Then
tol = 1
Else
tol = CDbl(arrResults(2))
End If
height = CDbl(arrResults(3))
unit = CDbl(arrResults(4))
Dim arrImg, arrExist, strInput
arrImg = arrImageSample(cols,rows)
' image outputs (0)red(1)green(2)blue(3)alpha(4)hue(5)saturation(6)luminance
strInput = Rhino.GetString("Select Image Reading Method","Normalized_Pannel",array("Banding","Segments","Cylinders","Horizontal_Plates","Faceted","Normalized_Pannel","Surface","PointCloud"))
If isNull(strInput) Then Exit Sub
Call Rhino.EnableRedraw(False)
If CStr(strInput) = "Banding" Then
arrExist = banding(arrImg(6),tol,height,unit)
End If
If CStr(strInput) = "Segments" Then
arrExist = segments(arrImg(6),tol,height,unit)
End If
If CStr(strInput) = "Cylinders" Then
arrExist = cylinders(arrImg(6),tol,height,unit)
End If
If CStr(strInput) = "Horizontal_Plates" Then
arrExist = plates(arrImg(6),tol,height,unit)
End If
If CStr(strInput) = "Faceted" Then
arrExist = loftPannels(arrImg(6),tol,height,unit)
End If
If CStr(strInput) = "Normalized_Pannel" Then
arrExist = uniformPannels(arrImg(6),tol,height,unit)
End If
If CStr(strInput) = "Surface" Then
arrExist = surface(arrImg(6),height,unit)
End If
If CStr(strInput) = "PointCloud" Then
arrExist = cloud(arrImg(0),arrImg(1),arrImg(2),arrImg(6),height,unit)
End If
Call Rhino.EnableRedraw(True)
End Sub
Function arrImageSample(cols, rows)
arrImageSample = Null
'Instantiate the RhPicture Object
Dim RhPicture : Set RhPicture = Rhino.GetPlugInObject("RhPicture")
If IsNull(RhPicture) Then Exit Function
'Load an arbitrary image
If Not RhPicture.LoadImage() Then
Call Rhino.Print("Image not loaded")
Exit Function
End If
'Get the width and height
Dim w : w = RhPicture.Width()
Dim h : h = RhPicture.Height()
If IsNull(w) Or IsNull(h) Then
Call Rhino.Print("No valid image data")
Exit Function
End If
Dim x, y, i,j
Dim r, g, b, a, hu, s, u
ReDim r(rows), g(rows), b(rows), a(rows), hu(rows), s(rows), u(rows)
Dim rValSet, gValSet, bValSet, aValSet, hValSet, sValSet, uValSet
ReDim rValSet(cols), gValSet(cols), bValSet(cols), aValSet(cols), hValSet(cols), sValSet(cols), uValSet(cols)
'Sample Image returning all values between zero and one
For i = 0 To cols Step 1
For j = 0 To rows Step 1
x = int(w/cols)*i
y = int(h/rows)*j
If x>w Then
x = w
End If
If y>h Then
y = h
End If
r(j) = RhPicture.Red(x,y)/255
g(j) = RhPicture.Green(x,y)/255
b(j) = RhPicture.Blue(x,y)/255
a(j) = RhPicture.Alpha(x,y)/255
hu(j) = RhPicture.Hue(x,y)/360
s(j) = RhPicture.Saturation(x,y)
u(j) = RhPicture.Luminance(x,y)
Next
rValSet(i) = r
gValSet(i) = g
bValSet(i) = b
aValSet(i) = a
hValSet(i) = hu
sValSet(i) = s
uValSet(i) = u
Next
Set RhPicture = Nothing
' image outputs (0)red(1)green(2)blue(3)alpha(4)hue(5)saturation(6)luminance
arrImageSample = array(rValSet,gValSet,bValSet,aValSet,hValSet,sValSet,uValSet)
End Function
Function plates(arrInput,min,max,spacing)
plates = Null
Dim i,j,r,cols,rows
cols = uBound(arrInput)
rows = uBound(arrInput(0))
Dim mvPlane,plate()
r = 0
ReDim plate(r)
For i = 0 To cols-1 Step 1
For j = 0 To rows Step 1
If arrInput(i)(j) > min Then
mvPlane = Rhino.MovePlane(Rhino.WorldXYPlane(),array(spacing*i,spacing*j,max*arrInput(i)(j)))
ReDim Preserve plate(r)
plate(r) = Rhino.AddPlaneSurface(mvPlane, spacing, spacing)
r =r+1
End If
Next
Next
plates = plate
End Function
Function cylinders(arrInput,min,max,spacing)
cylinders = Null
Dim i,j,r,cols,rows
cols = uBound(arrInput)
rows = uBound(arrInput(0))
Dim mvPlane,plate()
r = 0
ReDim plate(r)
For i = 0 To cols-1 Step 1
For j = 0 To rows Step 1
If arrInput(i)(j) > min Then
mvPlane = Rhino.MovePlane(Rhino.WorldXYPlane(),array(spacing*i,spacing*j,0))
ReDim Preserve plate(r)
plate(r) = Rhino.AddCylinder(mvPlane(0), array(mvPlane(0)(0),mvPlane(0)(1),mvPlane(0)(2)+max*arrInput(i)(j)), spacing*.5)
r =r+1
End If
Next
Next
cylinders = plate
End Function
Function banding(arrInput,min,max,spacing)
banding = Null
Dim i,j,r,cols,rows
cols = uBound(arrInput)
rows = uBound(arrInput(0))
Dim mvPlane, pSet(),band()
ReDim band(cols)
For i = 0 To cols-1 Step 1
r = 0
ReDim pSet(r)
For j = 0 To rows Step 1
If arrInput(i)(j) > min Then
mvPlane = Rhino.MovePlane(Rhino.WorldXYPlane(),array(spacing*i,spacing*j,max*arrInput(i)(j)))
ReDim Preserve pSet(r)
pSet(r) = mvPlane(0)
r =r+1
End If
Next
band(i) = Rhino.AddInterpCurve(pSet)
Next
banding = band
End Function
Function surface(arrInput,max,spacing)
surface = Null
Dim i,j,r,cols,rows
cols = uBound(arrInput)
rows = uBound(arrInput(0))
Dim mvPlane, pSet()
r = 0
ReDim pSet(r)
For i = 0 To cols-1 Step 1
For j = 0 To rows-1 Step 1
mvPlane = Rhino.MovePlane(Rhino.WorldXYPlane(),array(spacing*i,spacing*j,max*arrInput(i)(j)))
ReDim Preserve pSet(r)
pSet(r) = mvPlane(0)
r =r+1
Next
Next
Call Rhino.AddSrfPtGrid(array(cols,rows),pSet,array(3,3))
surface = array()
End Function
Function segments(arrInput,min,max,spacing)
segments = Null
Dim i,j,k,r,s,cols,rows
cols = uBound(arrInput)
rows = uBound(arrInput(0))
Dim mvPlane, pSet(),band()
Dim trFa(),arrTrFa()
ReDim band(cols),trFa(rows),arrTrFa(cols)
For i = 0 To cols-1 Step 1
r=0
For j = 0 To rows Step 1
If arrInput(i)(j) > min Then
trFa(j) = True
ReDim pSet(r)
pSet(r) = array(i*spacing,j*spacing,max*arrInput(i)(j))
r=r+1
Else
trFa(j) = False
End If
Next
arrTrFa(i) = trFa
Next
Dim ptGroup(),ptSet(),arrPts(),crvVal(),crvBln
ReDim arrPts(cols),crvVal(cols)
For i = 0 To cols-1 Step 1
r = 0
s = 0
If arrTrFa(i)(0) = True And arrTrFa(i)(1) = True Then
ReDim Preserve ptGroup(r)
ptGroup(r) = array(i*spacing,0*spacing,max*arrInput(i)(0))
r=r+1
End If
For j = 1 To rows-1 Step 1
If arrTrFa(i)(j) = True And arrTrFa(i)(j+1) = True And arrTrFa(i)(j-1) = False Then
ReDim Preserve ptGroup(r)
ptGroup(r) = array(i*spacing,j*spacing,max*arrInput(i)(j))
r=r+1
End If
If arrTrFa(i)(j) = True And arrTrFa(i)(j-1) = True Then
ReDim Preserve ptGroup(r)
ptGroup(r) = array(i*spacing,j*spacing,max*arrInput(i)(j))
r = r+1
End If
If arrTrFa(i)(j) = True And arrTrFa(i)(j+1) = False Then
r = 0
ReDim Preserve ptSet(s)
ptSet(s) = ptGroup
s = s+1
End If
If s = 0 Then
crvBln = False
Else
crvBln = True
End If
Next
arrPts(i) = ptSet
crvVal(i) = crvBln
Next
Dim cntA,bandSet()
s=0
For i = 0 To cols-1 Step 1
r=0
If crvVal(i) = True Then
cntA = uBound(arrPts(i))
For j = 0 To cntA Step 1
ReDim band(r)
band(r) = Rhino.AddCurve(arrPts(i)(j))
r = r+1
Next
ReDim bandSet(s)
bandSet(s) = band
s = s+1
End If
Next
segments = bandSet
End Function
Function uniformPannels(arrInput,min,max,spacing)
uniformPannels = Null
Dim i,j,k,r,s,cols,rows
cols = uBound(arrInput)
rows = uBound(arrInput(0))
Dim pSet()
Dim trFa(),arrTrFa()
ReDim band(cols),trFa(rows),arrTrFa(cols)
For i = 0 To cols-1 Step 1
r=0
For j = 0 To rows Step 1
If arrInput(i)(j) > min Then
trFa(j) = True
ReDim pSet(r)
pSet(r) = array(i*spacing,j*spacing,max*arrInput(i)(j))
r=r+1
Else
trFa(j) = False
End If
Next
arrTrFa(i) = trFa
Next
Dim tempSrf,srfPlane()
tempSrf = Rhino.AddSrfPt(array(array(-spacing*.5,-spacing*.5,0),array(-spacing*.5,spacing*.5,0),array(spacing*.5,spacing*.5,0),array(spacing*.5,-spacing*.5,0)))
r = 0
For i = 1 To cols-1 Step 1
For j = 1 To rows-1 Step 1
If arrTrFa(i-1)(j) = True And arrTrFa(i)(j) = True And arrTrFa(i)(j-1) = True Then
ReDim Preserve srfPlane(r)
srfPlane(r)= Rhino.OrientObject (tempSrf, array(array(0,0,0),array(1,0,0),array(0,1,0)), array(array(i*spacing,j*spacing,max*arrInput(i)(j)), array((i-1)*spacing,j*spacing,max*arrInput(i-1)(j)), array(i*spacing,(j-1)*spacing,max*arrInput(i)(j-1))), 1)
r = r+1
End If
Next
Next
Call Rhino.DeleteObject(tempSrf)
uniformPannels = srfPlane
End Function
Function loftPannels(arrInput,min,max,spacing)
loftPannels = Null
Dim i,j,k,r,s,cols,rows
cols = uBound(arrInput)
rows = uBound(arrInput(0))
Dim pSet()
Dim trFa(),arrTrFa()
ReDim band(cols),trFa(rows),arrTrFa(cols)
For i = 0 To cols-1 Step 1
r=0
For j = 0 To rows Step 1
If arrInput(i)(j) > min Then
trFa(j) = True
ReDim pSet(r)
pSet(r) = array(i*spacing,j*spacing,max*arrInput(i)(j))
r=r+1
Else
trFa(j) = False
End If
Next
arrTrFa(i) = trFa
Next
Dim srfOutput()
r = 0
For i = 1 To cols-1 Step 1
For j = 1 To rows-1 Step 1
If arrTrFa(i-1)(j) = True And arrTrFa(i-1)(j-1) = True And arrTrFa(i)(j) = True And arrTrFa(i)(j-1) = True Then
ReDim Preserve srfOutput(r)
srfOutput(r) = Rhino.AddSrfPt(array(array((i-1)*spacing,j*spacing,max*arrInput(i-1)(j)),array((i-1)*spacing,(j-1)*spacing,max*arrInput(i-1)(j-1)),array(i*spacing,(j-1)*spacing,max*arrInput(i)(j-1)),array(i*spacing,j*spacing,max*arrInput(i)(j))))
r=r+1
End If
Next
Next
loftPannels = srfOutput
End Function
Function cloud(arrInputX,arrInputY,arrInputZ,arrInputR,spacing,rad)
cloud = Null
Dim i,j,r,cols,rows
cols = uBound(arrInputX)
rows = uBound(arrInputX(0))
Dim mvPlane, arrbln, pSet()
arrbln = Rhino.GetBoolean("Type of Data Representation",array("Representation","points","spheres"),array(False))
r = 0
For i = 0 To cols-1 Step 1
For j = 0 To rows-1 Step 1
ReDim Preserve pSet(r)
pSet(r)    = array(arrInputX(i)(j)*spacing,arrInputY(i)(j)*spacing,arrInputZ(i)(j)*spacing)
If arrbln(0) = True Then
Call Rhino.addsphere(pSet(r),arrInputR(i)(j)*rad)
Else
Call Rhino.AddPoint(pSet(r))
End If
r =r+1
Next
Next
cloud = pSet
End Function

Ideo labs: 3D immersion technology

RSarrach — Sun, 23 Aug 2009 06:18:04 +0000

A simple, featherweight headset, a 10′ x 10′ x 10′ white room, and $600,000 worth of projector and computer equipment, combined with the smarts of the folks at Eon Reality, results in one insanely real experience.

The cave (or iCube, as we’re told they would prefer we call it) is comprised of three white walls and a floor, all about 10′ x 10′ in size. Onto each surface is projected a high-resolution, stereoscopic image. A viewer stands in the room wearing polarized 3D glasses — like you might use in a 3D movie — with small markers that stick out a bit from the frames.

The markers are illuminated by IR LED floodlights located on the perimeter of the room, and IR-sensitive cameras use those positions to determine the precise location of each eye within the room. From those positions, stereo images for each projector are calculated and rendered on the fly, and the result is absolutely amazing.

Text description from ideo labs + for more info visit labs.ideo.com

originally posted on core.form-ula