Fix normal map transformations for floor

src/Dodge/LevelGen.hs

@@ -33,12 +33,7 @@ generateWorldFromSeed rdata i = do
 postGenerationProcessing :: RenderData -> GenWorld -> IO World
 postGenerationProcessing _ gw = do
     let w' = _gwWorld gw
---    nfloorvxs <- foldM (pokeTile (rdata ^. floorVBO . vboPtr))
---        0
---        (tilesFromRooms . IM.elems $ _genRooms gw)
---    bufferPokedVBO (rdata ^. floorVBO) nfloorvxs
-    let w = w' -- & cWorld . numberFloorVerxs .~ nfloorvxs
-            & cWorld . cwTiles .~ (tilesFromRooms . IM.elems $ _genRooms gw)
+    let w = w' & cWorld . cwTiles .~ (tilesFromRooms . IM.elems $ _genRooms gw)
     return $ foldl' assignPushDoors w (w ^. cWorld . lWorld . doors)
 
 generateGraphs :: IO ()