18 lines
340 B
Haskell
18 lines
340 B
Haskell
module Dodge.Default.Room
|
|
where
|
|
import Geometry.Data
|
|
import Dodge.Room.Data
|
|
|
|
defaultRoom :: Room
|
|
defaultRoom = Room
|
|
{ _rmPolys = []
|
|
, _rmLinks = []
|
|
, _rmPath = []
|
|
, _rmPS = []
|
|
, _rmBound = []
|
|
, _rmFloor = []
|
|
, _rmName = "defaultRoom"
|
|
, _rmShift = (V2 0 0 , 0)
|
|
, _rmViewpoints = []
|
|
}
|