Fix basic pathing

src/Dodge/Room.hs

@@ -16,6 +16,7 @@ import Dodge.Creature
 import Dodge.LevelGen.Data
 --import Dodge.Base
 import Dodge.RandomHelp
+import Dodge.LevelGen
 import Dodge.Default.Wall
 --import Dodge.Path
 --import Dodge.Layout
@@ -50,7 +51,7 @@ roomC :: Float -> Float -> Room
 roomC x y = defaultRoom
     { _rmPolys = [rectNSWE y 0 0 x]
     , _rmLinks = lnks
-    , _rmPath  = []
+    , _rmPath  = pth
     , _rmPS    = [windowLine (V2 (x/2) 0) (V2 (x/2) (y-60))
                  ]
     , _rmBound = [rectNSWE (y+5) (-5) (-5) (x+5)]
@@ -61,6 +62,11 @@ roomC x y = defaultRoom
         ,( (  20,  0),pi)
         ,( (   0, 20),pi/2)
         ]
+    xn = 4
+    yn = 4
+    yd = (y - 40) / fromIntegral yn
+    xd = (x - 40) / fromIntegral xn
+    pth  = linksAndPath lnks $ translateS (V2 20 20) (makeGrid xd xn yd yn)
 
 roomPadCut :: [Point2] -> Point2 -> Room
 roomPadCut ps p = defaultRoom