expand the ship count

dgtized · Jan 7, 2024 · 614efc2 · 614efc2
1 parent f005432
commit 614efc2
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/src/shimmers/sketches/graph_traces.cljs b/src/shimmers/sketches/graph_traces.cljs
@@ -41,8 +41,9 @@
         now (now)]
     {:graph graph
      :t now
-     :ships (repeatedly 3 (fn [] (let [node (dr/rand-nth (keys (:nodes graph)))]
-                                  (new-ship graph node now))))}))
+     :ships (->> (fn [] (let [node (dr/rand-nth (keys (:nodes graph)))]
+                         (new-ship graph node now)))
+                 (repeatedly 7))}))
 
 (defn contract-edge [{:keys [nodes] :as graph} {:keys [p q]} dt]
   (let [p' (nodes p)