a number between 0 and 1.
5. Generate random number for each of the points.
So each point have 2 numbers - distance D (remapped to 0 to 1), and random R (0-1).
X = D-R
If X is smaller than 0 then delete the point with cull pattern.
Should work.…
o Vb.net.Can you help me?
What would I need to do?
Thanks ,
Phillip
Private Sub RunScript(ByVal S As Brep, ByVal D As Double, ByRef B As Object) Dim tol As Double = doc.ModelAbsoluteTolerance
Dim breplist As New list(Of brep)
breplist.add(s)
breplist.add(brep.CreateTrimmedSurface(s.Faces(0), s.faces(0).Offset(d, tol)))
Dim edgelist As New list(Of curve)
For Each brp As brep In breplist
For i As Integer = 0 To brp.Edges.Count - 1
edgelist.add(brp.Edges(i).tonurbscurve)
Next
Next brp
Dim lft(0) As brep
lft = brep.CreateFromLoft(curve.JoinCurves(edgelist), Point3d.Unset, Point3d.Unset, 3, False)
breplist.add(lft(0))
b = brep.JoinBreps(breplist, tol)
…
his is because the tree paths differ. The second item is called:
{0;0;0;0;1} above
{0;0;0;1;0} underneath
Before merging, a path mapper with {a;b;c;d;e} -> {a;b;c;e;d} in any (but not both) of the streams should fix the ordering.
- Giulio…
this doesn't make any sense... but the Data Log component for Firefly does essentially what the Data Recorder now does (although the Data Recorder is much more compact)... The only difference is that there is a Wrap input which would create the list as above.…