retrieve the first item:
maximum.
4 A bunch of sliders (L) in [0, 1], ReMap to get values in
[0, max].
4 - 5 k values in [0, max] set the boundaries of (k - 1) domains.
6 & 7 Test belongness of every distance (point) to every domain
(interval of distances): classify distances (points).
Every branch (7) is a class (interval of distances) so radius or colour or whatever can be set by branch (by class).
Distance (1) belongs to [0, max]. Domains (5) should be a partition —classes— covering [0, max], but a partition covering a subinterval of [0, max] is set if the first and last L sliders —boundaries— aren't 0 and 1: nearest and furthest circles will be culled.
Keeping radii under half Cell Size, circles won't overlap.
…
When we are using meter for length, E is in Pa or GPa?
For example E for Steel= 200 GPa, if A=0.2 m2 and L=1 m, K= (200 x 10^9 x 0.2) / 1 Does it make sense?!!!
Added by M NICK to Kangaroo at 1:26pm on November 26, 2012
Dim S As New NurbsSurface
Dim k1 As New Integer Dim k2 As New Integer Dim k3 As New Integer
Dim pt_2 As New point3d Dim pt_3 As New point3d Dim pt_4 As New point3d
k1 = 13 k2 = 14 k3 = 15
For i As Integer = 0 To 7 If k1 > 15 Then k1 = k1 - 15 End If pt_2 = L_pts(k1)
If k2 > 15 Then k2 = k2 - 15 End If pt_3 = L_pts(k2)
If k3 > 15 Then k3 = k3 - 15 End If pt_3 = L_pts(k3)
S = nurbsSurface.CreateFromCorners(centre, pt_2, pt_3, pt_4) TAB.add(S)
k1 = k1 + 3 k2 = k2 + 3 k3 = k3 + 3
Next
A = S
You dont realy need to understand the script but I want to be able to declare a dim as a Surface and on the core creat different surface from 4 pt.
Thanks for your Help,
Best regards,
Renaud Ganière…
you posted is a good illustration of this as 1 and 7 are the same and so is 5 and 6. They are just oriented differently.
You have from Left to Right: I, L, Left, N, O, O, I. All you are missing is T ( similar to L but with the protrusion in the middle), Right (opposite of left) and 3 (which is like Left but with the tower moved to the middle)
…
Added by Danny Boyes at 5:46am on November 17, 2011
To L_Brep.Count() - 2 If (Rhino.Geometry.Intersect.Intersection.BrepBrep(L_Brep(i), L_Brep(i + 1), 0.001, crvs, pts)) Then If (crvs Is Nothing OrElse crvs.Length = 0) Then Print("Intersection returned no results") Else L_Crv.Add(crvs) End If Else Print("Intersection failed") End If Next A = L_Crv…