# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1470341967 0
# Node ID 341ecfb6a4a71d0c1b1cd804fafd1f5b1b33a878
# Parent  bf323f38c64bbabc40d74a8892b8888eddc06e29
Tweak spread

diff -r bf323f38c64b -r 341ecfb6a4a7 src/main.lisp
--- a/src/main.lisp	Thu Aug 04 18:20:36 2016 +0000
+++ b/src/main.lisp	Thu Aug 04 20:19:27 2016 +0000
@@ -182,7 +182,7 @@
 (defun diamond-square (heightmap)
   (ds-init heightmap)
   (let ((spread 0.7)
-        (spread-reduction 0.5))
+        (spread-reduction 0.6))
     (recursively ((radius (floor (hm-size heightmap) 2))
                   (spread spread))
       (when (>= radius 1)
@@ -206,7 +206,7 @@
   (let ((h (aref *heightmap* (wrap x) (wrap y))))
     (cond ((< h 0.2)  (values #\~ +color-blue+))
           ((< h 0.3)  (values #\~ +color-cyan+))
-          ((< h 0.32) (values #\_ +color-yellow+))
+          ((< h 0.32) (values #\: +color-yellow+))
           ((< h 0.65) (values #\. +color-green+))
           ((< h 0.7)  (values #\. +color-white+))
           ((< h 0.75) (values #\^ +color-white+))