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 | ImgTable1 | ImgTable2 | ImgTable3 | ImgTable4 | ImgTableCorner | ImgTableC1 | ImgTableC2 | ImgTableC3 | ImgTableC4 | ImgMiscFlipchart | ImgMiscPlant1 | ImgMiscPlant2 -- | 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