algorithmic modeling for Rhino
VB Code
(creates a list of points for calculations)
Sub RunScript(ByVal minU As Double, ByVal maxU As Double, ByVal dens As Integer) Dim uStep, i As Double Dim rv As New List(Of Double) uStep = (maxU - minU) / dens
For i = minU To maxU + 0.0001 Step uStep
rv.Add(i)
Next
u = rv
End Sub
Welcome to
Grasshopper
© 2024 Created by Scott Davidson. Powered by
You need to be a member of Grasshopper to add comments!