module Dodge.RoomPos where import Dodge.LevelGen.Data import Geometry extractRoomPos :: RoomPos -> (Point2,Float) extractRoomPos rp = (_rpPos rp,_rpDir rp)