module Dodge.Default.Room
    where
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  = []
    , _rmPartPmnt   = Nothing
    , _rmExtPmnt    = Nothing
    , _rmBound      = []
    , _rmFloor      = []
    , _rmName       = "defaultRoom"
    , _rmShift      = (V2 0 0 , 0)
    , _rmViewpoints = []
    , _rmRandPSs    = []
    , _rmLabel      = Nothing
    , _rmTakeFrom   = Nothing
    , _rmStartWires = IM.empty
    , _rmEndWires   = IM.empty
    , _rmConnectsTo = S.singleton OutLink
    , _rmMID        = Nothing
    , _rmMParent    = Nothing
    , _rmChildren   = []
    }
