Work towards cross-room placements

2021-11-12 11:13:59 +00:00
parent d63c2ac943
commit 1d5b2ea765
20 changed files with 147 additions and 165 deletions
@@ -3,13 +3,16 @@ module Dodge.Default.Room
 import Geometry.Data
 import Dodge.Room.Data

+import qualified Data.IntMap.Strict as IM
 defaultRoom :: Room
 defaultRoom = Room
    { _rmPolys  = []
    , _rmLinks  = []
    , _rmUsedLinks  = []
    , _rmPath   = []
-    , _rmPS     = []
+    , _rmPmnts     = []
+    , _rmPartialPmnts = IM.empty
+    , _rmLabelledPmnts = IM.empty
    , _rmBound  = []
    , _rmFloor  = []
    , _rmName   = "defaultRoom"