tracer/src/Types/ImgId.hs

72 lines
1.3 KiB
Haskell
Raw Normal View History

module Types.ImgId where
2018-10-08 21:36:52 +00:00
data IconId
= IconContrBlue
| IconContrGreen
2019-02-11 15:11:27 +00:00
| IconKbdBlue
| IconKbdGreen
2018-10-12 12:26:06 +00:00
| IconArrow
2018-10-08 21:36:52 +00:00
deriving (Show, Eq, Ord, Enum)
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
| ImgTableSW
| ImgTableNW
| ImgTableNE
| ImgTableSE
2018-07-31 11:30:17 +00:00
| 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
2019-01-10 17:31:36 +00:00
| ImgMiscVending
2019-01-15 04:28:09 +00:00
| ImgCabinetCoffeeSW
| ImgCabinetCoffeeSE
| ImgCabinetSinkSW
| ImgCabinetSinkSE
| ImgCabinetStoveSW
| ImgCabinetStoveSE
2019-01-14 03:00:34 +00:00
| ImgCabinetSW
2019-01-15 04:28:09 +00:00
| ImgCabinetSE
| ImgCabinetCorner
-- | 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