tracer/src/Types/ImgId.hs
2018-08-18 05:12:58 +02:00

53 lines
1 KiB
Haskell

module Types.ImgId where
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