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