Make regions from the Delaunay triangulation

[dungeon-master.git] / dungeon-master / generators / town.scm

diff --git a/dungeon-master/generators/town.scm b/dungeon-master/generators/town.scm
index e8e6d95b73ad6528105b08a3bb63881ddad031d6..cefa138308d0a3dbe8854b12edc52b5563e50460 100644 (file)
--- a/dungeon-master/generators/town.scm
+++ b/dungeon-master/generators/town.scm
@@ -17,7 +17,7 @@
 
 (define (build-patches n-patches)
   (define* (get-points n seed #:optional (l '()))
-    (cond ((> n 0)
+    (cond ((>= n 0)
            (let* ((a (+ seed (* (sqrt n) 5)))
                   (r (if (= n 0)
                          0