Work on connecting pathfinding grid

2022-07-09 12:36:17 +01:00
parent 9c352e4a83
commit fb66a45495
11 changed files with 16 additions and 32 deletions
@@ -17,7 +17,7 @@ import Control.Lens
 door :: Room
 door = defaultRoom
    { _rmPolys = [rectNSWE 40 0 0 40]
-    , _rmLinks = init lnks ++ [last lnks]
+    , _rmLinks = lnks
    , _rmPath  = doublePairSet (V2 20 35,V2 20 5)
 -- door extends into side walls (for shadows as rendered 12/03)
    , _rmPmnts = [putAutoDoor (V2 0 20) (V2 40 20)]