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

just a little tweak

Browse source
This commit is contained in:
nek0 2018-02-17 00:06:33 +01:00
parent e6fc4011ac
commit b43dbe0455
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Floorplan.hs
View file

@ -13,7 +13,7 @@ import Debug.Trace
data TileState data TileState
= Wall = Wall
| Wind -- | Wind
| Door | Door
| Hall | Hall
| Offi | Offi
@ -25,7 +25,7 @@ data TileState
instance Show TileState where instance Show TileState where
show Wall = "#" show Wall = "#"
show Wind = "~" -- show Wind = "~"
show Door = "+" show Door = "+"
show Hall = "_" show Hall = "_"
show Offi = "." show Offi = "."
@ -96,7 +96,7 @@ placeHalls rng fc input =
(nw, g3) = randomR (2, wmax) g2 (nw, g3) = randomR (2, wmax) g2
(nbs, nmat) = buildHall cross nw b amat (nbs, nmat) = buildHall cross nw b amat
in in
if hallRatio nmat < 0.175 && wmax - 1 > 2 if hallRatio nmat < 0.2 && wmax - 1 > 2
then doHalls g3 nbs (row, col) (wmax -1) nmat then doHalls g3 nbs (row, col) (wmax -1) nmat
else (g3, nmat) else (g3, nmat)
) (rand, mat) bounds ) (rand, mat) bounds