m b1 As Brep = Nothing
If (heights(b) > heights(b+1)) Then
b0 = breps(b+1)
b1 = breps(b)
Else
b0 = breps(b)
b1 = breps(b+1)
End If
Dim bDiff As Brep() = Brep.CreateBooleanDifference(b0, b1, 0.1)
If (bDiff IsNot Nothing) AndAlso (bDiff.Length > 0) Then
breps(b) = bDiff(0)
End If
--
David Rutten
david@mcneel.com
Poprad, Slovakia…
Added by David Rutten at 7:32am on October 16, 2012
xtract A1, A2, B1, B2 as one set, A2, A3, B2, B3 as the second set, A3, A4, B3, B4...etc. as the third set and so on. How can I get about doing this?
Any help would be much appreciated!
Thanks,
Ben…
closest point to the very first would be removed from the list, so the initial list reduces from 100 to 98. From the 98 i pick one and search the remaining 97 for the closest. From the remaining 96 i pick again one and search in the 95,...
(The product I want to result is:
having a number of random lines in 3D space, produced by an even number of points as discribed, this shall be the initial springs for a ("selfadjusting") tensegrity. Each one of these lines (later springs in kangaroo) get divided in three areas - that means four points. These four points again are the "attractor points" of neighbor springs, so the strut "knows" where to set the next elastic connection,...the rest I´ll have to figure out)
angelos…