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