Improve normal maps on ground and walls

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 6]
+        , _rmFloor = Tiled [makeTileFromPoly poly 5]
         , _rmRandPSs = [psRandRanges (10, 30) (30, 60) (0, 2 * pi)]
         , _rmName = "Corridor"
         }

src/Dodge/Room/Procedural.hs

@@ -10,6 +10,7 @@ module Dodge.Room.Procedural (
     makeGrid,
 ) where
 
+import Tile
 import qualified Data.Set as S
 import Data.Tile
 import Dodge.Creature
@@ -61,8 +62,8 @@ roomRect x y xn yn =
                 [ Tile
                     { _tilePoly = rectNSWE y 0 0 x
                     , _tileZero = V2 0 0
-                    , _tileTangentPos = V2 64 0
-                    , _tileArrayZ = 4
+                    , _tileTangentPos = V2 baseFloorTileSize 0
+                    , _tileArrayZ = 5
                     }
                 ]
         , _rmRandPSs = [psRandRanges (10, x -10) (10, y -10) (0, 2 * pi)]