diff options
author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-04-18 20:13:41 +1200 |
---|---|---|
committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-04-18 20:13:41 +1200 |
commit | 525b5641fee7154d5be1a66420ca15d54bb6f6ce (patch) | |
tree | b0f6944bbfc5626096c7cd47702c8d4b7ebccaf0 /src/pathfinding.adb | |
parent | ce2ba2c8bdd7070d7688eff83173b6725c0fe657 (diff) |
Consolidated image data
Diffstat (limited to 'src/pathfinding.adb')
-rw-r--r-- | src/pathfinding.adb | 12 |
1 files changed, 2 insertions, 10 deletions
diff --git a/src/pathfinding.adb b/src/pathfinding.adb index ca4cbda..267b0a3 100644 --- a/src/pathfinding.adb +++ b/src/pathfinding.adb @@ -8,9 +8,9 @@ with - Things, + Ada.Containers.Ordered_Maps, Ada.Containers.Ordered_Sets, - Ada.Containers.Ordered_Maps; + Things; package body Pathfinding is @@ -33,8 +33,6 @@ package body Pathfinding is (Key_Type => Node, Element_Type => Node); - - subtype G_Score is Integer; subtype F_Score is Integer; @@ -70,8 +68,6 @@ package body Pathfinding is end F_Min; - - function Reconstruct_Path (Came_From : in Node_To_Node_Maps.Map; Current : in Node) @@ -91,8 +87,6 @@ package body Pathfinding is end Reconstruct_Path; - - function Heuristic (A, B : in Node) return Integer is @@ -101,8 +95,6 @@ package body Pathfinding is end Heuristic; - - function Neighbours (My_Grid : in Grids.Grid; Current : in Node) |