diff --git a/src/Floorplan.hs b/src/Floorplan.hs index f2d974c..03e08b7 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.5 && wmax - 1 > 2 + if hallRatio nmat < 0.4 && wmax - 1 > 2 then doHalls g3 nbs (row, col) (wmax -1) nmat else (g3, nmat) ) (rand, mat) bounds