Allow for more complex placement positioning

src/Dodge/Room/Procedural.hs

@@ -47,8 +47,9 @@ roomRect
     -> Room
 roomRect x y xn yn = defaultRoom
     { _rmPolys = [rectNSWE  y 0 0 x ]
-    , _rmLinks = init lnks ++ [last lnks]
+    , _rmLinks = lnks
     , _rmPath  = concatMap doublePair pth
+    , _rmPos   = map (\p -> UnusedSpot p 0) posps
     , _rmPmnts    = []
     , _rmBound = [rectNSWE (y+5) (-5) (-5) (x+5)]
     , _rmFloor = [Tile 
@@ -66,8 +67,10 @@ roomRect x y xn yn = defaultRoom
     wlnks = zip (map (+.+ V2 x 20) $ gridPoints  0  1      yd (yn+1))  (repeat (-pi/2)) 
     nlnks = zip (map (+.+ V2 20 y) $ gridPoints xd (xn+1)  0  1     )  (repeat      0 ) 
     slnks = zip (map (+.+ V2 20 0) $ gridPoints xd (xn+1)  0  1     )  (repeat     pi ) 
-    lnks = map toBothLnk $ nlnks ++ elnks ++ wlnks ++ slnks
+    lnks = m North nlnks ++ m East elnks ++ m West wlnks ++ m South slnks
+    m edge = map (lnkBothAnd (OnEdge edge))
     pth  = linksAndPath' lnks $ map (bimap (+.+ V2 20 20) (+.+ V2 20 20)) (makeGrid xd xn yd yn)
+    posps = map (+.+ V2 20 20) $ gridPoints xd xn yd yn
 {- Creates a rectangular room, automatically creates links and pathfinding graph at a sensible size.  -}
 -- it is not clear to me that this works for very small rooms (but it does seem
 -- to do so)