# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1450122058 0
# Node ID d134612014c59019aa66f842db0c0e9b168392b1
# Parent  a88ac1a9aceaef9f75bfe148b8452d859525c36a
Tweak mutation

diff -r a88ac1a9acea -r d134612014c5 src/silt/core.clj
--- a/src/silt/core.clj	Mon Dec 14 19:31:58 2015 +0000
+++ b/src/silt/core.clj	Mon Dec 14 19:40:58 2015 +0000
@@ -131,7 +131,7 @@
   (str (java.util.UUID/randomUUID)))
 
 (defn mutate-directions [dirs]
-  (update-in dirs [(rr/rand-int 0 9) 1] inc))
+  (update-in dirs [(rr/rand-int 0 9) 1] + (rr/rand-int 1 5)))
 
 (defn clamp [v minimum]
   (max v minimum))
@@ -144,11 +144,11 @@
              (maybe (or mc 10) v
                     (clamp (+ v (rand-nth [-1 1])) 1)))
      (update :directions
-             (maybe (or mc 20) v
+             (maybe (or mc 10) v
                     (mutate-directions v)))
      (update-in [:styles :fg]
                 (maybe (or mc 0.8) v
-                       (rr/rand-nth [:white :blue :green :yellow :red])))
+                       (rr/rand-nth [:white :blue :green :yellow :red :cyan])))
      (update :glyph
              (maybe (or mc 0.05) v
                     (rr/rand-nth [";" "☃" "$" "&" "!" ":" "¥" "£" "¤" "€"