tracer/src/Types/Collidible.hs
2019-01-10 18:31:36 +01:00

104 lines
2.8 KiB
Haskell

{-# LANGUAGE MultiParamTypeClasses #-}
module Types.Collidible where
-- internal imports
import Types.Map (Boundaries(..))
import Types.ImgId (ImgId(..))
import Types.Animation (AnimState(..))
class Collidible c where
collisionObstacle :: c -> [(Boundaries Double)]
instance Collidible ImgId where
collisionObstacle ImgMiscBox1 =
[ Boundaries (0.2, 0.34) (0.8, 1)
]
collisionObstacle ImgWallAsc =
[ Boundaries (0.34, 0) (0.66, 1)
]
collisionObstacle ImgWallDesc =
[ Boundaries (0, 0.34) (1, 0.66)
]
collisionObstacle ImgWallCornerN =
[ Boundaries (0, 0.34) (0.66, 0.66)
, Boundaries (0.34, 0.34) (0.66, 1)
]
collisionObstacle ImgWallCornerE =
[ Boundaries (0.34, 0.34) (1, 0.66)
, Boundaries (0.34, 0.34) (0.66, 1)
]
collisionObstacle ImgWallCornerS =
[ Boundaries (0.34, 0.34) (1, 0.66)
, Boundaries (0.34, 0) (0.66, 0.66)
]
collisionObstacle ImgWallCornerW =
[ Boundaries (0, 0.34) (0.66, 0.66)
, Boundaries (0.34, 0) (0.66, 0.66)
]
collisionObstacle ImgWallTNE =
[ Boundaries (0, 0.34) (1, 0.66)
, Boundaries (0.34, 0.34) (0.66, 1)
]
collisionObstacle ImgWallTSW =
[ Boundaries (0, 0.34) (1, 0.66)
, Boundaries (0.34, 0) (0.66, 0.66)
]
collisionObstacle ImgWallTSE =
[ Boundaries (0.34, 0) (0.66, 1)
, Boundaries (0.34, 0.34) (1, 0.66)
]
collisionObstacle ImgWallTNW =
[ Boundaries (0.34, 0) (0.66, 1)
, Boundaries (0, 0.34) (0.66, 0.66)
]
collisionObstacle ImgWallCross =
[ Boundaries (0.34, 0) (0.66, 1)
, Boundaries (0, 0.34) (1, 0.66)
]
collisionObstacle ImgTableSW =
[ Boundaries (0, 0.34) (1, 1)
]
collisionObstacle ImgTableNW =
[ Boundaries (0.34, 0) (1, 1)
]
collisionObstacle ImgTableNE =
[ Boundaries (0, 0) (1, 0.63)
]
collisionObstacle ImgTableSE =
[ Boundaries (0, 0) (0.63, 1)
]
collisionObstacle ImgTableCorner =
[ Boundaries (0, 0) (0.63, 1)
, Boundaries (0, 0.34) (1, 1)
]
collisionObstacle ImgTableC1 =
[ Boundaries (0, 13/36) (13/36, 1)
]
collisionObstacle ImgTableC2 =
[ Boundaries (0, 0) (13/36, 13/36)
]
collisionObstacle ImgTableC3 =
[ Boundaries (1-13/36, 0) (1, 1-13/36)
]
collisionObstacle ImgTableC4 =
[ Boundaries (1-13/36, 1-13/36) (1, 1)
]
collisionObstacle ImgMiscFlipchart =
[ Boundaries (0, 7/36) (18/36, 28/36)
]
collisionObstacle ImgMiscPlant1 =
[ Boundaries (9/36, 9/36) (27/36, 27/36)
]
collisionObstacle ImgMiscPlant2 =
[ Boundaries (9/36, 9/36) (27/36, 27/36)
]
collisionObstacle ImgMiscWatercooler =
[ Boundaries (14/36, 14/36) (22/36, 22/36)
]
collisionObstacle ImgMiscVending =
[ Boundaries (0, 2/36) (24/36, 34/36)
]
collisionObstacle ImgEmptyNoWalk =
[ Boundaries (0, 0) (0.99, 0.99) ]
collisionObstacle _ = []