diff --git a/src/aphorisms/thirty_four.clj b/src/aphorisms/thirty_four.clj index 23ab3c6..59f47ec 100644 --- a/src/aphorisms/thirty_four.clj +++ b/src/aphorisms/thirty_four.clj @@ -59,7 +59,8 @@ ;; (prn other) ;; (prn (g/dist (-> node :shape :p) (-> other :shape :p))) ;; (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)))) (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] (when-let [seed (pick-start quadtree)]