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