From bd49cc49092925e17b064f349caddd1953dbd5f5 Mon Sep 17 00:00:00 2001 From: nek0 Date: Wed, 14 Feb 2018 02:06:57 +0100 Subject: [PATCH] tinkering --- src/Floorplan.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Floorplan.hs b/src/Floorplan.hs index 03e08b7..10e3cf6 100644 --- a/src/Floorplan.hs +++ b/src/Floorplan.hs @@ -95,7 +95,7 @@ placeHalls rng fc input = (nw, g3) = randomR (2, wmax) g2 (nbs, nmat) = buildHall cross nw b amat in - if hallRatio nmat < 0.4 && wmax - 1 > 2 + if hallRatio nmat < 0.175 && wmax - 1 > 2 then doHalls g3 nbs (row, col) (wmax -1) nmat else (g3, nmat) ) (rand, mat) bounds