16 lines
296 B
Haskell
16 lines
296 B
Haskell
module Dodge.Base.CardinalPoint where
|
|
import Dodge.Data.Room
|
|
import Geometry
|
|
|
|
cardList :: [CardinalPoint]
|
|
cardList = [North,East,South,West]
|
|
|
|
cardVec :: CardinalPoint -> Point2
|
|
cardVec cp = case cp of
|
|
North -> V2 0 1
|
|
South -> V2 0 (-1)
|
|
East -> V2 1 0
|
|
West -> V2 (-1) 0
|
|
|
|
|