tracer/src/Types/ImgId.hs
2019-02-11 16:11:27 +01:00

71 lines
1.3 KiB
Haskell

module Types.ImgId where
data IconId
= IconContrBlue
| IconContrGreen
| IconKbdBlue
| IconKbdGreen
| 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
| ImgTableSW
| ImgTableNW
| ImgTableNE
| ImgTableSE
| ImgTableCorner
| ImgTableC1
| ImgTableC2
| ImgTableC3
| ImgTableC4
| ImgMiscFlipchart
| ImgMiscPlant1
| ImgMiscPlant2
| ImgMiscWatercooler
| ImgMiscVending
| ImgCabinetCoffeeSW
| ImgCabinetCoffeeSE
| ImgCabinetSinkSW
| ImgCabinetSinkSE
| ImgCabinetStoveSW
| ImgCabinetStoveSE
| ImgCabinetSW
| ImgCabinetSE
| ImgCabinetCorner
-- | 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