A Clojure (script) library designed for circle packing.

[circle-packing "0.0.0"]

exposes gen-packed-circles which optionally takes a config map and returns list of circles having :center as 2d vec and :radius

:min-radius a number or a 0-arity function returning a number

:max-radius a number or a 0-arity function returning a number

:radius-step a number or a 0-arity function returning a number

:max-circles number

:max-attempts number

:padding a number or a 0-arity function returning a number

:random-sampler a 0-arity function that return a 2d vec of random points

:in-bounds? a function that takes a circle as argument and return boolean based on bound checks where a circle has a :center as 2d vec and :radius

{:min-radius 5
 :max-radius 10
 :max-circles 20
 :radius-step 1
 :max-attempts 100
 :padding 0
 :random-sampler #(random-in-rect random-range 0 0 100 100)
 :in-bounds? (partial in-bound-rect? 0 0 100 100)}

A few handy utitlies functions are also provided

in-bound-rect? given start and end points of a reactangle returns true if the provided circle is in bound

in-bound-circle? given center as 2d vec and radius of circle checks if the provided circle is in bound

random-in-rect given a random number generator (taking min and max arguments), start and end points of a reactangle returns random points inside

random-in-circle given a random number generator, center as 2d vec and radius of a circle returns random points inside

Usage with random generator from quil

{:min-radius 5
 :max-radius #(q/random 20 30)
 :max-circles 100
 :padding 4
 :random-sampler #(random-in-rect q/random 0 0 150 100)
 :in-bounds? (partial in-bound-rect? 0 0 150 100)}

{:min-radius 5
 :max-radius #(q/random 20 30)
 :max-circles 100
 :padding 4
 :random-sampler #(random-in-circle q/random [50 50] 50)
 :in-bounds? (partial in-bound-circle? [50 50] 50)}

Copyright © 2020 shrynx

Distributed under the Eclipse Public License either version 1.0 or (at your option) any later version.