--- 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+))