59 lines
1.1 KiB
Haskell
59 lines
1.1 KiB
Haskell
module Types.ImgId where
|
|
|
|
data IconId
|
|
= IconContrBlue
|
|
| IconContrGreen
|
|
| IconArrow
|
|
deriving (Show, Eq, Ord, Enum)
|
|
|
|
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
|
|
| ImgMiscWatercooler
|
|
-- | 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
|