Play with floor textures

src/Dodge/Room/Corridor.hs

@@ -23,7 +23,7 @@ corridor =
           _rmPath = foldMap (doublePairSet . (,) (V2 20 60)) [V2 20 70, V2 20 10]
         , _rmPmnts = [spanLightI (V2 0 39.5) (V2 40 39.5)]
         , _rmBound = [rectNSWE 50 30 (-5) 45]
-        , _rmFloor = Tiled [makeTileFromPoly poly 2]
+        , _rmFloor = Tiled [makeTileFromPoly poly 6]
         , _rmRandPSs = [psRandRanges (10, 30) (30, 60) (0, 2 * pi)]
         , _rmName = "Corridor"
         }

src/Dodge/Room/Ngon.hs

@@ -19,7 +19,7 @@ roomNgon n x =
         , _rmPath = mempty -- TODO
         , _rmPmnts = [mntLightLnkCond $ resetPLUse $ rprBool $ const . isInLnk]
         , _rmBound = [poly]
-        , _rmFloor = Tiled [makeTileFromPoly poly 9]
+        , _rmFloor = Tiled [makeTileFromPoly poly 2]
         , _rmName = show n ++ "gon"
         }
   where

src/Dodge/Room/Procedural.hs

@@ -61,8 +61,8 @@ roomRect x y xn yn =
                 [ Tile
                     { _tilePoly = rectNSWE y 0 0 x
                     , _tileZero = V2 0 0
-                    , _tileTangentPos = V2 32 0
-                    , _tileZ = 16
+                    , _tileTangentPos = V2 64 0
+                    , _tileArrayZ = 3
                     }
                 ]
         , _rmRandPSs = [psRandRanges (10, x -10) (10, y -10) (0, 2 * pi)]