circle packing constraints

Replies to This Discussion

Permalink Reply by Liam Morrow on September 4, 2010 at 12:34pm

heres the script btw:

A = Nothing

If Not C.IsClosed Then
Print("Your input curve is not closed.")
Exit Sub
End If

'Create a new Random class in VB.NET
Dim RandomClass1 As New Random()

Dim Circle_List As New List(Of OnCircle)
Dim X, Y, Z As Double
Dim radius As Double

For i As Integer = 0 To N - 1

REPEAT:
' define random x, y and z values
X = RandomClass1.NextDouble() * (U.Max - U.Min) + U.Min
Y = RandomClass1.NextDouble() * (V.Max - V.Min) + V.Min
Z = 0

' create the center point
Dim my_pt As New On3dPoint(X, Y, Z)
Dim obj_circle As OnCircle

' check if the point is inside the boundary
If Not Rhutil.RhinoPointInPlanarClosedCurve(my_pt, C) = 1 Then
GoTo Repeat
End If

' check if the point is inside an existing circle
Dim dist As Double
For Each obj_circle In Circle_List
dist = my_pt.DistanceTo(obj_circle.Center)
If dist < obj_circle.radius Then
' find a new random point
GoTo REPEAT
End If
Next

' define the radius of the current circle such that it is tangent to its closest neighbor
' Step 1: define a radius for my_pt that is tangent to the boundary
Dim t As Double
C.GetClosestPoint(my_pt, t)
Dim point As New On3dPoint
C.EvPoint(t, point)
radius = my_pt.DistanceTo(point)

' Step 2: find the closest neighbor and adjust the radius if necessary
For Each obj_circle In Circle_List
dist = my_pt.DistanceTo(obj_circle.Center) - obj_circle.radius
If dist < radius Then
radius = dist
End If
Next

Dim my_circle As New OnCircle(my_pt, radius)

Circle_List.add(my_circle)

Next

A = Circle_List

Permalink Reply by David Rutten on September 4, 2010 at 1:45pm

Updated your script and translated it into RhinoCommon as well.

Can you be a bit more specific about what controls you precisely want to add? Start point for the first circle only?

--
David Rutten
david@mcneel.com
Poprad, Slovakia

Attachments:

• circlePackingPoly_bothsdks.gh, 10 KB

Permalink Reply by Liam Morrow on September 4, 2010 at 2:30pm

i'm looking to set the starting point so I can better control where the circles are positioned. So if I select a starting point the circles would organize in a larger quantity near that point. I also want to be able to set the min radius and max radius for the circles for fabrication reasons.

Permalink Reply by David Rutten on September 4, 2010 at 2:39pm

But your circles are placed at random at the moment. You're going to have to come up with an entirely new algorithm for placing them.

I'll add the min-max radius constraints.

--
David Rutten
david@mcneel.com
Poprad, Slovakia

Permalink Reply by David Rutten on September 4, 2010 at 2:44pm

Added min-max radius limits.

--
David Rutten
david@mcneel.com
Poprad, Slovakia

Attachments:

• CirclePackingRadiusLimit.gh, 7 KB

Permalink Reply by Liam Morrow on September 4, 2010 at 4:33pm

thanks a lot that works great

Permalink Reply by jungsuk ko on October 13, 2010 at 12:31pm

hi, david.
I have a problem.
I wanna control radius with some tolerance.
(ex)integer 1, 2, 3, .... or 0, 0.5, 1, ...) Will you show me the solution?

jungsuk ko
5628246@naver.com
from seoul, south korea

Permalink Reply by David Rutten on October 13, 2010 at 2:53pm

This algorithm is a lot slower though.

--
David Rutten
david@mcneel.com
Poprad, Slovakia

Attachments:

• CirclePackingRadiusSet.gh, 7 KB

Permalink Reply by Vicente Soler on October 13, 2010 at 4:42pm

Archive file written with newer version: 0.8.0001

Ah, major release coming soon.

Permalink Reply by David Rutten on October 13, 2010 at 4:51pm

Major release coming next at any rate...

I felt the re-introduction of clusters warranted a minor version bump.

--
David Rutten
david@mcneel.com
Poprad, Slovakia

Permalink Reply by taz on October 13, 2010 at 7:28pm

Good spot...

Permalink Reply by Vicente Soler on October 13, 2010 at 5:13pm

You mean clusters that allow instancing and recursion... right?

is the 'silhouette from multiple rectangles' thing for visualizing them in the canvas?

• ‹ Previous
• 1
• 2
• 3
• 4
• Next ›
• Page