Fix tile drawing bug

src/Dodge/Render/Picture.hs

@@ -70,15 +70,17 @@ customMouseCursor w =
 
 testPic :: World -> Picture
 testPic _ = []
---  where
---    thepic = setDepth 20 . color green . polygon $ rectNSEW 5 (-5) (-5) (5)
---testPic _ = blank
---testPic w = 
+
 drawPathing :: World -> Picture
 drawPathing w
     | _debug_pathing (_config w) 
-        = color green . pictures . map (flip thickLine 5 . tflat2) . graphToEdges $ _pathGraph w
+        = -- setLayer 5 $ 
+        (color green . pictures . map (flip thickLine 5 . tflat2) $ graphToEdges gr)
+        <> concatMap dispInc (graphToIncidence gr)
     | otherwise = []
+  where
+    dispInc (p,n) = setDepth 2 . uncurryV translate p . scale 0.1 0.1 $ text $ show n
+    gr = _pathGraph w
 viewBoundaries :: World -> Picture
 viewBoundaries w
     | _debug_view_boundaries (_config w)