From 525b5641fee7154d5be1a66420ca15d54bb6f6ce Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Fri, 18 Apr 2025 20:13:41 +1200 Subject: Consolidated image data --- src/pathfinding.adb | 12 ++---------- 1 file changed, 2 insertions(+), 10 deletions(-) (limited to 'src/pathfinding.adb') 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) -- cgit