near/heyarne.aphorisms
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

Now *really* fix self-intersections

Browse source
This commit is contained in:
arne 2022-12-19 08:14:16 +01:00
commit 94f008d3be
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/aphorisms/thirty_four.clj
View file

@ -59,7 +59,8 @@
;; (prn other) ;; (prn other)
;; (prn (g/dist (-> node :shape :p) (-> other :shape :p))) ;; (prn (g/dist (-> node :shape :p) (-> other :shape :p)))
;; (prn ) ;; (prn )
(> (g/dist (-> node :shape :p) (-> other :shape :p))) (+ (-> node :shape :r) (-> other :shape :r))) path)))) (>= (g/dist (-> node :shape :p) (-> other :shape :p))
(* 0.99 (+ (-> node :shape :r) (-> other :shape :r))))) path)))) ;; floating point errors?
(first)))) (first))))
(comment (comment
@ -67,7 +68,7 @@
) )
;; let's generate different paths of hyphae, each a most 50 nodes long ;; let's generate different paths of hyphae, each at most `max-path-length` nodes long
(defn make-path [quadtree] (defn make-path [quadtree]
(when-let [seed (pick-start quadtree)] (when-let [seed (pick-start quadtree)]