53 lines
1.0 KiB
Haskell
53 lines
1.0 KiB
Haskell
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
|