geometry.lattice pipe.01 March.5.2010

Option Explicit ‘Script written by ‘Script copyrighted by ‘Script version Sunday, August 30, 2009 1:22:47 AM Call Main() Sub Main() Dim strCurve strCurve = Rhino.GetObject(“Select Curve”,4,True) If isNull(strCurve) Then Exit Sub Call reparameterize(strCurve) Dim arrItems, arrValues, arrReturns arrItems = array(“Strands”,”Rotations”,”Strand Oscillations”,”Min Radius”,”Max Radius”,”Radius Oscillations”,”Samples”) arrValues= array(8,0,4,1,2,4,18) arrReturns = Rhino.PropertyListBox (arrItems, arrValues ,,”Parameters”) If isNull(arrReturns) Then [...]

surface.tensegrity.01 February.6.2010

Option Explicit ‘Script written by ‘Script copyrighted by ‘Script version Tuesday, January 13, 2009 4:45:31 PM Call tensegrity() Sub tensegrity() Dim i,j,m,n,k Dim arrpt(200,200), toppt(200,200), toppt2(200,200), arrintsctE(200,200), arrintsctF(200,200) Dim arrparam(1), normvec Dim strobj strobj=Rhino.getobject (“select the object”, Dim x : x=Rhino.Getinteger (“enter the number of iterations in U”, 10,,200) Dim y : y=Rhino.GetInteger (“enter the [...]

geometry.3d_voronoi.01 January.18.2010

Option Explicit ‘ 3d Voronoi AKA Project Cell ‘ (c) Gabe Smedresman 2005 ‘ All Rights Reserved. ”’ global naming variables Dim XX: XX = 0 Dim YY: YY = 1 Dim ZZ: ZZ = 2 GenerateVoronoiCells Sub GenerateVoronoiCells() Randomize Dim arrBoundingVolume ‘ array of polysurfaces indicating bounding volume Dim arrPoints ‘ array of string [...]

geometry.parametric rings.01 March.28.2009

Script: Option Explicit ‘Ring Script written by ‘Script copyrighted by ‘Script version Sunday, December 10, 2008 9:07:55 PM ‘Note: 1.815 is diameter of Thad’s finger ‘Script written for centimeter units Call Main() Sub Main() Dim i, strElpse(), arrPlane Dim intFacets : intFacets = rhino.GetInteger (”how many sides to your ring?”,16) If IsNull (intFacets) Then Exit [...]

geometry.sin wave.01 March.26.2009

Option Explicit ‘draw a sine wave using points SineWave() Sub SineWave() Dim x, y, dblA, dblB, arr, dblStep, arrPoint(), arrSphere(), i, A, B, C dblA = 0 dblB = 12 dblStep = 0.25 i = 0 For x = dblA To dblB Step dblStep y = 2*Sin(x) A = 0.02*i B = 0.02*i C = [...]

geometry.triangles.02 March.26.2009

Option Explicit ‘declare variables Dim i,j,k,size,d,n,m ‘define unit length=d (edgelength= 6*d) d = Rhino.Getreal(“Enter the edge length”) d=d/6 ‘declare array for point grid, n is the number of units n = Rhino.Getinteger(“Enter number of units in x direction”) n=n+1 m = Rhino.Getinteger(“Enter number of units in y direction”) ‘m=6 ReDim points (6*n,3*m) Dim p1,p2,p3,p4,p5,p6,p7,p8,p9,p10 ‘Create [...]

geometry.tapered volume.01 March.26.2009

Option Explicit Dim i, j, k Dim p1, p2, p3, p4, p5, p6, p7, p8 Dim xsize,ysize,zsize Dim srf1, srf2, srf3, srf4, srf5, srf6, srf7, srf8, srf9, srf10 Dim pvc, pvc2 Dim T1,T2 Dim sphere, sphere2 Dim dist Dim ic, jc, kc Dim avg Dim rad xsize = 15 ysize = 15 zsize = 22 [...]

geometry.pyramid.01 March.26.2009

‘diagrid prototype ‘jv + wm ’27 December 2006 ‘In: Surface, U and V divisions ‘Out: Diagrid prototypes ‘test number one Option Explicit Sub diagrid Dim sourceSurface, uDiv, vDiv, height, grid Dim uStep, vStep Dim uVal, vVal Dim i, j Dim tilePoints(3), arrCP Dim lineOne, lineTwo, lineThree, lineFour Dim apexPoint, centerInfo, perimeter, vertexPts, facePts1, facePts2, facePts3, [...]