Add PathEdge data to pathfinding graph

2022-07-01 23:17:41 +01:00
parent f6084f37ed
commit 66fe1abc6f
4 changed files with 36 additions and 16 deletions
@@ -15,6 +15,7 @@ data PathGraph = PathGraph
 data PathEdge = PathEdge
    {_peStart :: Point2
    ,_peEnd   :: Point2
+    ,_peDist  :: Float
    ,_peObstacles :: Set.Set EdgeObstacle
    }
  deriving (Eq,Ord,Show)