diff --git a/src/Floorplan.hs b/src/Floorplan.hs index 10e3cf6..fde5e6c 100644 --- a/src/Floorplan.hs +++ b/src/Floorplan.hs @@ -160,8 +160,16 @@ buildInnerWalls rng input = doCol c | M.safeGet row (c + 1) mat == Just Unde = doCol (c + 1) | otherwise = c - (cr, g1) = randomR (row, maxRow) gn - (cc, g2) = randomR (col, maxCol) g1 + (cr, g1) = randomR + ( if maxRow - 3 < row + 3 + then (row + 2, row + 2) + else (row + 3, maxRow - 3) + ) gn + (cc, g2) = randomR + ( if maxCol - 3 < col + 3 + then (col + 2, col + 2) + else (col + 3,maxCol - 3) + ) g1 (nngen, nnmat) = doCross g2 (cr, cc)