tweak stroke width and set an upper bound on edge lines

dgtized · Dec 20, 2024 · 0cc4a9b · 0cc4a9b
1 parent cda53cb
commit 0cc4a9b
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/shimmers/sketches/degree_of_connectivity.cljs b/src/shimmers/sketches/degree_of_connectivity.cljs
@@ -56,7 +56,7 @@
                     r (dr/random 4.0 16.0)
                     d (dr/random 0.2)]
                 (csvg/group {}
-                  (into [] (repeatedly (int (* 24 (+ pw qw) (dr/random 0.2 0.8)))
+                  (into [] (repeatedly (tm/clamp (int (* 24 (+ pw qw) (dr/random 0.2 0.8))) 0 64)
                                        #(connection p q (* r pw) (* r qw) (* d pw) (* d qw))))))))))
 
 (defn scene [{:keys [scene-id]}]
@@ -65,7 +65,7 @@
                    :height height
                    :stroke "black"
                    :fill "white"
-                   :stroke-width 0.5}
+                   :stroke-width 0.75}
     (shapes (rect/rect 0 0 width height))))
 
 (sketch/definition degree-of-connectivity