Field & Form

March 30, 2007 in Component Manipulation

 

Further developments in the mediation between field and form through the manipulation of a component.  Form is generated as follows:
Dim arrPts : arrPts = Rhino.GetObjects (“pickpointrow”, 1)
Dim arrPts2 : arrPts2 = Rhino.GetPoint (“pick 1st point”)
Dim arrPts3 : arrPts3 = Rhino.GetPoint (“pick rotation axis point”)
Dim arrcomp : arrcomp = Rhino.GetCurveObject (“pick component”)
Dim arrsrfmp : arrsrfmp = [...]

Field Condition_component manipulation

March 28, 2007 in Component Manipulation

Working with a field condition of arrayed points across a grid: the script analyzes the distance from each point to the boundaries of the site and assigns a compiled vector which then informs a components rotation across the field. 

 
Dim arrPts : arrPts = Rhino.ObjectsByType (1)
Dim strCv1 : strCv1 = Rhino.GetCurveObject (“pick 1st curve”)
Dim strCv2 [...]

Normalizing Curvature_Component

March 28, 2007 in Component, Rationalized Geometry

 

Option Explicit
Sub Main
 Dim strObject : strObject = Rhino.GetObject(“Select a curve”)If Rhino.IsCurve(strObject) Then
 Dim x : x = 200
 Dim arrPoints : arrPoints = Rhino.DivideCurve (strObject, x, vbTrue)
Dim arrPoint
 For Each arrPoint In arrPoints
Dim k
   k = k + 1
   Dim arrPT : arrPT = Rhino.AddPoint (arrPoint)
   Dim arrPTcord : arrPTcord = Rhino.PointCoordinates (arrPT)
   Dim dblParam : dblParam = Rhino.CurveClosestPoint(strObject, arrPTcord)
   Dim arrData [...]

Phoenixville Artist Live/Work Community

March 25, 2007 in Density Patterning

 

Site investigation:
_Photoshop pixelization x 5′, 10′, 20′, 40′ & color selection
_Illustrator Livetrace
_Max extrusion & rendering based on site materiality

Solid Cracking Progress

March 13, 2007 in Cracking, Fractal

arrSurface1 = Rhino.AddSrfPt(array(arrMP(0), arrSelect2, arrSelect3))  
        Dim arrSrfC: arrSrfC = Rhino.SurfaceAreaCentroid(arrSurface1)
        Dim arrPram: arrPram = Rhino.SurfaceClosestPoint(arrSurface1, arrSrfC(0))
        Dim arrNorm: arrNorm = Rhino.SurfaceNormal(arrSurface1, arrPram)
        Dim arrL1: arrL1 = Rhino.Addline (arrNorm(0), arrNorm(1))
        Dim arrSc: arrSc = Rhino.ScaleObject (arrL1, arrsrfC(0), array(0,65,0))
        Dim arrCEP: arrCEP = Rhino.CurveEndPoint (arrL1)
        Dim arrPline: arrPline = Rhino.AddPolyline (array(arrMP(0), arrSelect2, arrSelect3, arrMP(0)))
        Dim arrExt: arrExt [...]

Max script vertex spiraling

March 12, 2007 in Cracking, Fractal

 
An attempt at the cracking spiral through scripted animations in MAX.
Create a base surface_convert to mesh_move+rotate+scale_create subsidary volumes_rotate+move subsidaries
p = pyramid width:30 depth:0 height:20 widthsegs:2 depthsegs:2 heightsegs:2
convertToMesh p
for i = 1 to 20 do
(
 animate on
 (
  at time (i * 5)
  (
   j = instance p pos: [0,i*10,0]
   rotAngle = angleAxis (i*18) [0,1,0]
   rotate j rotAngle
   scale j [-i/5,-i/5,-i/5]
   for [...]

Solid Cracking

March 8, 2007 in Cracking, Fractal

 

Three scripted experiments with solid cracking.  Variables of rotate and move based on a distance to the centroid point.  All resultant surfaces derived from existing conditions of a. ground surface b. balcony1 surface c. balcony2 surface.
Dim arrSrfC: arrSrfC = Rhino.SurfaceAreaCentroid(arrSurface1)
Dim arrPram: arrPram = Rhino.SurfaceClosestPoint(arrSurface1, arrSrfC(0))
Dim arrNorm: arrNorm = Rhino.SurfaceNormal(arrSurface1, arrPram)
Dim arrL1: arrL1 = Rhino.Addline (arrNorm(0), arrNorm(1))
Dim arrSc: arrSc = Rhino.ScaleObject (arrL1, [...]

context_surface cracking

March 6, 2007 in Cracking, Fractal

 
 Select base surfaces from an existing condition_get surface area centroid & edit points_create three resultant surfaces_get distance between centroid and one edit point_move & rotate surface based on distance aquired
arrPoints = Rhino.ObjectsbyType(1)
arrSurface = Rhino.ObjectsbyType(8)
For Each strSurface In arrSurface 
  arrMP = Rhino.SurfaceAreaCentroid(strSurface)
  arrPts = Rhino.SurfaceEditPoints (strSurface)
        For x = 0 To 0             
        arrSelect2 = arrPts(x)
        arrSelect3 [...]

cracking explosion

March 5, 2007 in Cracking, Fractal

 
_start from two base surfaces
_get surface area centroid and surface edit points
_create a single resultant surface from centroid and two edit points for each base surface
_move and rotate surface
_continue loop

Spiraling Fractal

March 3, 2007 in Cracking, Fractal

 
Get original surface. Generate surface edit points. Get surface are centroid. Create a single resultant surface through two edit points and the surface area centroid. Rotate 10 degrees from previous srf. Loop

Additional Model Images

March 3, 2007 in Spiraling

Thanks again Melissa.

Final Review

March 3, 2007 in Spiraling

 

The final review panel as well as individual renderings and model photos.