tracer/src/Types/ImgId.hs

module Types.ImgId where

import Types.Map

data ImgId
  = ImgEmpty -- TODO: Find better solution than empty image.
  | ImgEmptyNoWalk
  | ImgWallAsc
  | ImgWallDesc
  | ImgWallCornerN
  | ImgWallCornerE
  | ImgWallCornerS
  | ImgWallCornerW
  | ImgWallTNE
  | ImgWallTSE
  | ImgWallTSW
  | ImgWallTNW
  | ImgWallCross
  | ImgMiscBox1
  | ImgMiscTable1
  | ImgMiscTable2
  | ImgMiscTable3
  | ImgMiscTable4
  | ImgMiscTableCorner
  | ImgMiscTableC1
  | ImgMiscTableC2
  | ImgMiscTableC3
  | ImgMiscTableC4
  | ImgMiscFlipchart
  -- | 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