Use more evocative characters for closed doors
This commit is contained in:
parent
dcf44f29f5
commit
7e6234e2e9
1 changed files with 8 additions and 6 deletions
|
@ -68,19 +68,21 @@ makeLenses ''Door
|
|||
|
||||
instance Draw Door where
|
||||
drawWithNeighbors neighs door
|
||||
| door ^. open
|
||||
= str . pure $ case wallEdges neighs of
|
||||
= str . pure . ($ door ^. open) $ case wallEdges neighs of
|
||||
Edges True False False False -> vertDoor
|
||||
Edges False True False False -> vertDoor
|
||||
Edges True True False False -> vertDoor
|
||||
Edges False False True False -> horizDoor
|
||||
Edges False False False True -> horizDoor
|
||||
Edges False False True True -> horizDoor
|
||||
_ -> '+'
|
||||
| otherwise = str "\\"
|
||||
_ -> allsidesDoor
|
||||
where
|
||||
horizDoor = '␣'
|
||||
vertDoor = '['
|
||||
horizDoor True = '␣'
|
||||
horizDoor False = 'ᚔ'
|
||||
vertDoor True = '['
|
||||
vertDoor False = 'ǂ'
|
||||
allsidesDoor True = '+'
|
||||
allsidesDoor False = '▥'
|
||||
|
||||
instance Brain Door where step = brainVia Brainless
|
||||
|
||||
|
|
Loading…
Reference in a new issue