tracer/src/Types/ImgId.hs

54 lines
1 KiB
Haskell
Raw Normal View History

module Types.ImgId where
data ImgId
2018-07-21 18:37:01 +00:00
= ImgEmpty -- TODO: Find better solution than empty image.
| ImgEmptyNoWalk
| ImgWallAsc
| ImgWallDesc
| ImgWallCornerN
| ImgWallCornerE
| ImgWallCornerS
| ImgWallCornerW
| ImgWallTNE
| ImgWallTSE
| ImgWallTSW
| ImgWallTNW
| ImgWallCross
| ImgMiscBox1
2018-07-31 11:30:17 +00:00
| ImgTable1
| ImgTable2
| ImgTable3
| ImgTable4
| ImgTableCorner
| ImgTableC1
| ImgTableC2
| ImgTableC3
| ImgTableC4
2018-07-30 13:34:45 +00:00
| ImgMiscFlipchart
2018-07-31 11:30:17 +00:00
| ImgMiscPlant1
2018-07-31 20:59:25 +00:00
| ImgMiscPlant2
2018-08-07 12:04:49 +00:00
| ImgMiscWatercooler
-- | ImgIntrNE
-- | ImgIntrE
-- | ImgIntrSE
-- | ImgIntrS
-- | ImgIntrSW
-- | ImgIntrW
-- | ImgIntrNW
-- | ImgIntrN
2018-07-21 18:37:01 +00:00
deriving (Show, Eq, Ord, Enum)
isWall :: ImgId -> Bool
2018-07-30 19:10:42 +00:00
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