Transition to new room datatypes, first separate out/inlinks

src/Dodge/Room/Room.hs

@@ -48,11 +48,13 @@ roomC w h = do
 roomPadCut :: [Point2] -> Point2 -> Room
 roomPadCut ps p = defaultRoom
     { _rmPolys = [ps]
-    , _rmLinks = [(p,0),(V2 0 0,pi)]
+    , _rmOutLinks = [(p,0)]
+    , _rmInLinks = [(V2 0 0,pi)]
     , _rmPath  = [(V2 0 0,p)]
     }
 roomPillars :: Room
-roomPillars = over rmLinks init $ set rmPmnts plmnts $ roomRect 240 240 2 2
+roomPillars = --over rmLinks init $ -- it is unclear to me the purpose of this: perhaps to get the in link in the center?
+    set rmPmnts plmnts $ roomRect 240 240 2 2
   where 
     plmnts = spanLightI (V2 120 24) (V2 120 216) 
         : mntLS vShape (V2 12 12) (V3 25 25 70)
@@ -199,7 +201,8 @@ roomCenterPillar = changeLinkTo ((\p -> dist p (V2 120 0) < 10) . fst)
 roomOctogon :: Room
 roomOctogon = defaultRoom
     { _rmPolys = [poly ]
-    , _rmLinks = lnks
+    , _rmOutLinks = init lnks
+    , _rmInLinks = [last lnks]
     , _rmPath  = allPairs $ map fst lnks -- this is too much
     , _rmPmnts = []
     , _rmBound = [map toV2 [(-20,30),(20,30),(60,70),(60,110),(20,150),(-20,150),(-60,110),(-60,70)] ]
@@ -221,7 +224,8 @@ roomOctogon = defaultRoom
 roomNgon :: Int -> Float -> Room
 roomNgon n x = defaultRoom
     { _rmPolys = [poly]
-    , _rmLinks = lnks
+    , _rmOutLinks = init lnks
+    , _rmInLinks = [last lnks]
     , _rmPath  = [] -- TODO
     , _rmPmnts = []
     , _rmBound = [poly]
@@ -301,7 +305,7 @@ weaponBehindPillar  = do
     rcp <- roomCenterPillar
     return $ treeFromTrunk 
       [PassDown corridor
-      ,PassDown $ over rmLinks tail $ over rmPmnts (++ plmnts1) rcp
+      ,PassDown $ over rmOutLinks tail $ over rmPmnts (++ plmnts1) rcp
       ]
       (singleUseAll $ set rmPmnts [sPS (V2 20 60) (negate $ pi/2) randC1] corridorN)
 
@@ -343,7 +347,8 @@ deadEndRoom :: Room
 deadEndRoom = defaultRoom
     { _rmPolys = [rectNSWE 40 (-20) (-20) 20
                  ]
-    , _rmLinks = lnks
+    , _rmOutLinks = init lnks
+    , _rmInLinks = [last lnks]
     , _rmPath  = []
     , _rmPmnts    = [sPS (V2 0 (-10)) 0 putLamp]
     , _rmBound = [rectNSWE 20 (-20) (-30) 30]