tinkering

2018-02-14 02:06:57 +01:00 · 2018-02-14 02:06:57 +01:00 · bd49cc4909
parent 2eb2f12d24
commit bd49cc4909
1 changed files with 1 additions and 1 deletions
--- 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