Add normal maps to the floor

src/Preload/Render.hs

@@ -5,6 +5,7 @@ module Preload.Render (
     cleanUpRenderPreload,
 ) where
 
+import Shader.AuxAddition
 import Shape.Data
 import Geometry.Data
 import MatrixHelper
@@ -16,7 +17,6 @@ import qualified Data.Vector.Mutable as MV
 import Foreign
 import Framebuffer.Setup
 import Shader
-import Shader.AuxAddition
 import Shader.Bind
 import Shader.Compile
 import Shader.Data
@@ -145,9 +145,6 @@ preloadRender = do
             >>= _1 (vaddTextureNoFilter "data/texture/charMap.png")
     -- this should really be a 2d texture array
     basicTweakZShad <- makeShader "dualTwoD/basicTweakZ" [vert, frag] [4, 4] ETriangles
-    -- fullscreen shaders
-    --fullscreenAlphaHalveShad <- makeShaderSized "fullscreen/alphaHalve" [vert,frag] [2] 4 ETriangleStrip
-    --pokeArray (shadVBOptr fullscreenAlphaHalveShad) $ concat cornerListNoCoord
     -- texture shaders, no textures attached
     fsShad <- makeShaderSized "texture/simple" [vert, frag] [2, 2] 4 ETriangleStrip
     -- note we directly poke the shader vertex data here
@@ -212,6 +209,8 @@ preloadRender = do
         , eslist
         ]
     initializeGLState
+
+    tonormalmap <- initTexture 3 GL_LINEAR_MIPMAP_LINEAR GL_LINEAR "data/normalMaps/verticalRidge.png"
     return $
         RenderData
             { _pictureShaders = shadV
@@ -255,6 +254,7 @@ preloadRender = do
             , _vboWalls = wpVBO
             , _vboWindows = winVBO
             , _vboShapes = shVBO
+            , _toNormalMaps = tonormalmap
             }
 
 --------------------end preloadRender