Fix basic pathing

src/Dodge/Render/Picture.hs

@@ -9,6 +9,7 @@ import Dodge.Picture
 import Dodge.Picture.Layer
 import Dodge.Render.HUD
 import Dodge.Render.MenuScreen
+import Dodge.Graph
 import Geometry
 import Picture
 import Polyhedra.Data
@@ -58,12 +59,7 @@ customMouseCursor w =
     $ pictures [ line [V2 (-5) 0,V2 5 0] , line [V2 0 (-5),V2 0 5] ]
 
 testPic :: World -> Picture
-testPic _ = blank
-    --setLayer 1 $ renderListAt 50 0 w $ map ((,white) . _grName) $ _gameRooms w
-    
---    [ setDepth (-1) . translate 0 0.8
---        . scale 0.001 0.001 . text . show $ _crMvDir $ you w
---    ]
+testPic w = color green . pictures . map (flip thickLine 5 . tflat2) . graphToEdges $ _pathGraph w
 
 crDraw :: World -> Creature -> Picture
 crDraw w c = _crPict c c w