tracer/src/Types/ImgId.hs

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