8 lines
160 B
Haskell
8 lines
160 B
Haskell
module Dodge.RoomPos where
|
|
|
|
import Dodge.Data.GenWorld
|
|
import Geometry
|
|
|
|
extractRoomPos :: RoomPos -> (Point2, Float)
|
|
extractRoomPos rp = (_rpPos rp, _rpDir rp)
|