Improve normal maps on ground and walls

src/Tile.hs

@@ -1,6 +1,7 @@
 module Tile
     ( tileTexCoords
     , makeTileFromPoly
+    , baseFloorTileSize
     )
      where
 import Data.Tile
@@ -28,8 +29,11 @@ makeTileFromPoly :: [Point2] -> Float -> Tile
 makeTileFromPoly poly z = Tile
     { _tilePoly = poly
     , _tileZero = c
-    , _tileTangentPos = c + (64 * normalizeV (d -.- c))
+    , _tileTangentPos = c + (baseFloorTileSize *.* normalizeV (d -.- c))
     , _tileArrayZ = z
     }
   where
     (c:d:_) = poly
+
+baseFloorTileSize :: Float
+baseFloorTileSize = 50