surfaces.morph.01 March.5.2010

Option Explicit ‘Script written by ‘Script copyrighted by ‘Script version Thursday, March 06, 2008 10:48:20 AM Call Main() Sub Main() Dim surfaces,iterations,ctrlCrv surfaces = Rhino.GetObjects(“Select Surfaces to Morph”,8) If isNull(surfaces) Then Exit Sub iterations = Rhino.GetReal(“Number of Objects Between Steps”, 5,1) If isNull(iterations) Then Exit Sub ctrlCrv = Rhino.GetBoolean(“Display Control Curves”,array(“curveStatus”,”delete”,”display”),array(False)) Call Rhino.EnableRedraw(False) Call surfaceMorpher(surfaces,iterations,ctrlCrv(0)) [...]

surfaces.expand.01 March.5.2010

Option Explicit ‘Script written by ‘Script copyrighted by ‘Script version Monday, May 26, 2008 1:43:26 PM Call Main() Sub Main() Dim surf surf = Rhino.GetObject(“select surface”,8) If isNull(surf) Then Exit Sub Call reparameterize(surf) Dim arrItems, arrValues, arrResults arrItems = array(“Cell_Colums”,”Cell_Rows”,”Offset”,”Scale_btw_0-1″,”tabHeight”,”cutTemplate”,”surfaces”,”imageScale”,”imageOculi”) arrValues= array(10,10,1,0.4,1,True,True,False,True) arrResults = Rhino.PropertyListBox (arrItems, arrValues ,,”Volume Parameters”) Dim scale, oculi If CBool(arrResults(7)) = [...]

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 [...]

surfaces.height_gradient.01 November.8.2009

Option Explicit Call Main() Sub Main() Const rhObjectPoint = 1 Dim strObject, arrCoordPoint Dim i, j, n: n=0 DIM o: o=0 Dim p: p=0 Dim strSrf Dim Udomain, Vdomain Dim arrPt, strTxt Dim Ustep, Vstep Dim intDivider Dim u, v, zspread, zz, zround, zcolor Dim vectNormal, arrPointNormal, strCoords, arrCoords Dim strLine Dim arrPlane Dim strCircle [...]

surfaces.raindroppath.01 November.5.2009

Option Explicit ‘Script written and copyrighted by David Rutten ‘Script adapted by J Maigret November 2009 University of Michigan ‘Reconstructivism.net ‘December 7th 2004 revision Sub SimulateRainDropPaths() Dim arrDropStart Dim blnSmoothPath Dim blnFancyPreview Dim blnStopOnEdge Dim SampleStepSize Dim Tolerance Dim idObject Dim strResult, arrOptions Dim arrPaths(), P, retVal Dim selMesh Dim strAllPts, arrAllPts(), obj, idAllPts, intCount, [...]

surfaces.tiling.hexagons.01 November.5.2009

Option Explicit ‘Script written by www.supermanoeuvre.com Call srfPanelsHexagons() Sub srfPanelsHexagons() ‘—————————————————————————————————— ‘ USER INPUT Dim arrNames(1) arrNames(0) = “CRVS” arrNames(1) = “SRFS” Dim strCmd : strCmd = rhino.GetString(“How do u want your hexagons”,, arrNames ) If isNull(strCmd) Then Exit Sub Dim strSrf : strSrf = rhino.getObject(“Gimme SURFACE object!”, 8) If isNull(strSrf) Then Exit Sub Dim [...]

surfaces.tiling.rectangles.01 November.5.2009

Option Explicit ‘Script written by www.supermanoeuvre.com Call srfPanelsQuads() Sub srfPanelsQuads() ‘—————————————————————————————————— ‘ USER INPUT Dim strSrf : strSrf = rhino.getObject(“Gimme SURFACE object!”, 8) If isNull(strSrf) Then Exit Sub Dim numSpans : numSpans = rhino.GetInteger(“Gimme number of surface spans in each direction”, 15, 6, 50) If isNull(numSpans) Then Exit Sub ‘—————————————————————————————————— ‘ SCRIPT BODY rhino.print “!!! [...]

surfaces.tiling.triangles.01 November.5.2009

Option Explicit ‘Script written by www.supermanoeuvre.com Call srfPanelsTriangles() Sub srfPanelsTriangles() ‘—————————————————————————————————— ‘ USER INPUT Dim strSrf : strSrf = rhino.getObject(“Gimme SURFACE object!”, 8) If isNull(strSrf) Then Exit Sub Dim numSpans : numSpans = rhino.GetInteger(“Gimme number of surface spans in each direction”, 15, 6, 50) If isNull(numSpans) Then Exit Sub ‘—————————————————————————————————— ‘ SCRIPT BODY rhino.print “!!! [...]

surfaces.ribs.01 October.29.2009

Option Explicit ‘Script written by ‘Dimitrie Stefanescu ‘http://dimitrie.wordpress.com ‘Contact him at: didi [at] improved [dot] ro ‘ ‘and by ‘Manuel A. ‘http://cadcampuc.blogspot.com/ ‘Contact him at: manuel.a7 [at] gmail [dot] com ‘ ””””””””””””””””””””””””””””””””””””””””””””””””’ ”Script released under the Creative Commons Attribution-Non-Commercial-Share Alike 3.0 Licence” ””””””””””””””””””””””””””””””””””””””””””””””””’ ‘ ‘To (probably) do: make the cuts in a fixed, ordered way [...]

surfaces.mesh mapper.01 April.3.2009

-_Runscript ( Sub MeshMapper() ‘© 2005 Jess Maertterer Dim strMesh, arrVertices, arrFaceVertices, arrNormals Dim arrTexCoords, arrBox, i, UV(1) Dim strSurf, arrParam, arrDomU, arrDomV Rhino.Print “RhinoScript: MeshMapper” strMesh = Rhino.GetObject (“Select Mesh”, 32, true, false) If isNull(strMesh) Then Exit Sub strSurf = Rhino.GetObject(“Select Surface”, 8) If isNull(strSurf) Then Exit Sub arrDomU = Rhino.SurfaceDomain(strSurf, 0) arrDomV = [...]