remove redundant nested calls

dgtized · Nov 29, 2024 · e654b6d · e654b6d
1 parent b0ba200
commit e654b6d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/src/shimmers/sketches/circle_packing.cljs b/src/shimmers/sketches/circle_packing.cljs
@@ -60,7 +60,8 @@
             (let [growth (assoc (g/scale-size circle scale) :color (:color circle))
                   near (saq/closest-circle (g/delete-point tree (:p circle)) growth)]
               (if (and (geometry/contains-circle? boundary growth)
-                       (and near (> (saq/circle-overlap growth near) 0)))
+                       near
+                       (> (saq/circle-overlap growth near) 0))
                 (recur (pack/replace-circle-at tree growth)
                        remaining
                        (conj result growth))

diff --git a/src/shimmers/sketches/display_tree.cljs b/src/shimmers/sketches/display_tree.cljs
@@ -736,7 +736,7 @@
       (q/fill 0.0)
       (cq/circle center 10.0)
       (q/fill (- 1.0 fade))
-      (let [s (str i "\n" (int x) "," (int y) "\n" (str (:info screen)))]
+      (let [s (str i "\n" (int x) "," (int y) "\n" (:info screen))]
         (q/with-translation [x y]
           (q/with-rotation [rotation]
             (q/text s 0 0)))))))