diff options
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) |