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
@@ -20,7 +20,8 @@ corridor :: Room
 corridor = defaultRoom
    { _rmPolys = [poly]
    , _rmLinks = lnks'
-    , _rmPath  = foldMap (doublePairSet . (,) (V2 20 60) . fst) lnks
+    --, _rmPath  = foldMap (doublePairSet . (,) (V2 20 60) . fst) lnks
+    , _rmPath  = foldMap (doublePairSet . (,) (V2 20 60)) [V2 20 70,V2 20 10]
    , _rmPmnts = [ spanLightI (V2 0 39.5) (V2 40 39.5) ]
    , _rmBound = [ rectNSWE 50 30 (-5) 45 ]
    , _rmFloor = Tiled [makeTileFromPoly poly 2]  
@@ -35,12 +36,6 @@ corridor = defaultRoom
        ,uncurry outLink (V2 20 70 , negate $ pi/6)
        ,uncurry inLink  (V2 20 10 , pi)
        ]
-    lnks =
-        [ (V2 20 70, 0::Float)
-        , (V2 20 70, pi/6)
-        , (V2 20 70, negate $ pi/6)
-        , (V2 20 10, pi)
-        ]
 keyholeCorridor :: Room
 keyholeCorridor = corridor
    { _rmPath  = mempty