34 lines
860 B
Haskell
34 lines
860 B
Haskell
module Dodge.Default.Room where
|
|
import Data.Tile
|
|
import Geometry.Data
|
|
import Dodge.LevelGen.Data
|
|
import qualified Data.IntMap.Strict as IM
|
|
import qualified Data.Set as S
|
|
|
|
defaultRoom :: Room
|
|
defaultRoom = Room
|
|
{ _rmPolys = []
|
|
, _rmLinks = []
|
|
, _rmLinkEff = []
|
|
, _rmPos = []
|
|
, _rmPath = []
|
|
, _rmPmnts = []
|
|
, _rmInPmnt = []
|
|
, _rmOutPmnt = []
|
|
, _rmBound = []
|
|
, _rmFloor = InheritFloor
|
|
, _rmName = "defaultRoom"
|
|
, _rmShift = (V2 0 0 , 0)
|
|
, _rmViewpoints = []
|
|
, _rmRandPSs = []
|
|
-- , _rmLabel = Nothing
|
|
-- , _rmTakeFrom = Nothing
|
|
, _rmStartWires = IM.empty
|
|
, _rmEndWires = IM.empty
|
|
, _rmConnectsTo = S.member OutLink
|
|
, _rmMID = Nothing
|
|
, _rmMParent = Nothing
|
|
, _rmChildren = []
|
|
, _rmType = DefaultRoomType
|
|
}
|