module Types.ImgId where import Types.Map data ImgId = ImgEmpty -- TODO: Find better solution than empty image. | ImgEmptyNoWalk | ImgWallAsc | ImgWallDesc | ImgWallCornerN | ImgWallCornerE | ImgWallCornerS | ImgWallCornerW | ImgWallTNE | ImgWallTSE | ImgWallTSW | ImgWallTNW | ImgWallCross | ImgMiscBox1 | ImgMiscTable1 | ImgMiscTable2 | ImgMiscTable3 | ImgMiscTable4 | ImgMiscTableCorner | ImgMiscTableC1 | ImgMiscTableC2 | ImgMiscTableC3 | ImgMiscTableC4 | ImgMiscFlipchart -- | ImgIntrNE -- | ImgIntrE -- | ImgIntrSE -- | ImgIntrS -- | ImgIntrSW -- | ImgIntrW -- | ImgIntrNW -- | ImgIntrN deriving (Show, Eq, Ord, Enum) isWall :: ImgId -> Bool isWall ImgWallAsc = True isWall ImgWallDesc = True isWall ImgWallCornerN = True isWall ImgWallCornerE = True isWall ImgWallCornerS = True isWall ImgWallCornerW = True isWall ImgWallTNE = True isWall ImgWallTSE = True isWall ImgWallTSW = True isWall ImgWallTNW = True isWall ImgWallCross = True isWall _ = False