dim.strPT_rdl v.00

By studying the self-organizing basic structures from micro-organic samples, I’m working on a generative script able to adapt this pattern according to surface's curvature adaptation. Thinking on reverse engineering logics this pattern could be used to adapt the curvature to specific performance requirements. So if one needs to close or to extend the pattern as a responsive behaviour i.e. driven by solar exposure values, he should control the morphologies’ curvature according to this variable, reducing curvature radius in super-exposed zones and increasing it in sub-exposed ones. We should imagine to implement the sun movement (i.e. along a day) and to link this movement with a variable able to coherently change the curvature of an input surface…….To be Updated…..

edmondo occhipinti

''''''''''''''''''''''''''''''''''''''''''''

Sub AddCrv
Dim arrptDim arrcontrolDim crv
'arrpt = Rhino.GetObjects ("select control points for curve", 1)arrpt = Rhino.command ("selPt")
arrcontrol = Rhino.getPointcoordinates (,arrpt)
crv = Rhino.AddCurve (arrcontrol)
Rhino.UnselectAllObjects
Dim strMirDim arrgripDim arroneDim arrtwo
Rhino.EnableObjectGrips crv
arrone = Rhino.ObjectGripLocation(crv, 0)arrtwo = Rhino.ObjectGripLocation(crv, 8)
Rhino.EnableObjectGrips crv, vbFalse
Rhino.MirrorObject crv, arrone, arrtwo, vbTrue
End Sub

''''''''''''''''''''''''''''''''''''''''''''

Sub rectangle
Dim wth Dim lngDim strCmd
wth = Rhino.getreal ("enter the width of cell", 10, 0.001, 1000)lng = wth*3
strCmd = "! _Rectangle 0,0,0 " & wth & " " & lngRhino.Command strCmd End Sub
'Sub crvpoints ' Dim arrpt1' Dim arrpt2' Dim arrpt3' Dim arrpt4' Dim arrpt5' Dim arrpt6' Dim arrpt7' Dim arrpt8' Dim arrpt9' Dim arrtotpts ' arrpt1 = Mid ' arrtotpts = arrpt1 + arrpt2 + arrpt3 + arrpt4 + arrpt5 + arrpt6 + arrpt7 + arrpt8 + arrpt9' Rhino.addPoints (arrtotpts) rec
Dim divide Dim strrect strrect = Rhino.FirstObject divide = "! _Rebuild _SelID" & strrect & " _Enter" & " " & 0 & 8 & " _Enter _Enter" Rhino.Command divide

''''''''''''''''''''''''''''''''''''''''''''

workinprogress