nek0/tracer
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

tinkering with room generation

Browse source
This commit is contained in:
nek0 2018-02-14 16:45:12 +01:00
parent bd49cc4909
commit 40d706887e
1 changed files with 10 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
src/Floorplan.hs
View file

@ -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)