69 lines
1.3 KiB
Haskell
69 lines
1.3 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
|
|
| 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
|