clarify planar-pairs by extracting planar? helper internally

dgtized · Jul 19, 2024 · b57ff01 · b57ff01
1 parent 63e780d
commit b57ff01
Showing 1 changed file with 14 additions and 12 deletions.
diff --git a/src/shimmers/sketches/ring_impressions.cljs b/src/shimmers/sketches/ring_impressions.cljs
@@ -28,20 +28,22 @@
   (gv/vec2 (* width x) (* height y)))
 
 (defn planar-pairs [circles pairs]
-  (reduce (fn [xs segment]
+  (letfn [(planar? [circles xs segment]
             (let [[p q] segment]
-              (if (and (not-any? (fn [line] (when (isec/segment-intersect line segment)
-                                             segment))
-                                 xs)
-                       (not-any? (fn [circle]
-                                   (when-let [isec (isec/circle-ray (g/scale-size circle 1.1) p q)]
-                                     (when (= :impale (:type isec))
-                                       circle)))
-                                 circles))
+              (and (not-any? (fn [line] (when (isec/segment-intersect line segment)
+                                         segment))
+                             xs)
+                   (not-any? (fn [circle]
+                               (when-let [isec (isec/circle-ray (g/scale-size circle 1.1) p q)]
+                                 (when (= :impale (:type isec))
+                                   circle)))
+                             circles))))]
+    (reduce (fn [xs segment]
+              (if (planar? circles xs segment)
                 (conj xs segment)
-                xs)))
-          []
-          (cs/all-pairs pairs)))
+                xs))
+            []
+            (cs/all-pairs pairs))))
 
 (defn noise-pos [seed]
   (fn [scale pos]