Implement low res shadows

src/Picture/Preload.hs

@@ -21,7 +21,8 @@ data RenderData = RenderData
     { _lightingFloorShader :: FullShader (Float,Float,Float,Float)
     , _lightingOccludeShader  :: FullShader (Point2,Point2)
     , _lightingWallShader   :: FullShader (Point2,Point2)
-    , _wallFaceShader    :: FullShader ((Point2,Point2),Point4)
+    , _wallBlankShader    :: FullShader ((Point2,Point2),Point4)
+    , _wallTextureShader    :: FullShader ((Point2,Point2),Point4)
     , _backgroundShader  :: FullShader (Point2,Point2,Point2,Point2)
     , _fullscreenShader  :: FullShader ()
     , _pictureShaders :: [FullShader RenderType]
@@ -68,8 +69,12 @@ preloadRender = do
     bgShad <- makeShader "background" [vert,geom,frag] [(0,4),(1,2)] Points pokeBGStrat
                 >>= addTexture "data/texture/smudgedDirt.png"
 
--- wallShader
-    wlFace <- makeShader "wall/blank" [vert,geom,frag] [(0,4),(1,4)] Points pokeWPColStrat
+-- blank wallShader
+    wlBlank <- makeShader "wall/blank" [vert,geom,frag] [(0,4),(1,4)] Points pokeWPColStrat
+--                >>= addTexture "data/texture/grayscaleDirt.png"
+                >>= addUniforms ["perpMat"]
+-- textured wallShader
+    wlTexture <- makeShader "wall/texture" [vert,geom,frag] [(0,4),(1,4)] Points pokeWPColStrat
                 >>= addTexture "data/texture/grayscaleDirt.png"
                 >>= addUniforms ["perpMat"]
 
@@ -80,16 +85,17 @@ preloadRender = do
     bindFramebuffer Framebuffer $= defaultFramebufferObject
     
     return $ RenderData
-        { _pictureShaders       = [bslist,lslist,cslist,aslist,eslist,bezierQuadShader]
-        , _lightingFloorShader    = lsShad
-        , _lightingOccludeShader     = wsShad
-        , _lightingWallShader   = wlLightShad
-        , _wallFaceShader       = wlFace
-        , _backgroundShader     = bgShad
-        , _fullscreenShader     = fsShad
-        , _spareFBO              = fbo
-        , _fboTexture            = fboTO
-        , _fboRenderbufferObject = fboRBO
+        { _pictureShaders           = [bslist,lslist,cslist,aslist,eslist,bezierQuadShader]
+        , _lightingFloorShader      = lsShad
+        , _lightingOccludeShader    = wsShad
+        , _lightingWallShader       = wlLightShad
+        , _wallBlankShader          = wlBlank
+        , _wallTextureShader        = wlTexture
+        , _backgroundShader         = bgShad
+        , _fullscreenShader         = fsShad
+        , _spareFBO                 = fbo
+        , _fboTexture               = fboTO
+        , _fboRenderbufferObject    = fboRBO
         }
 
 -- potential drawing setup
@@ -113,6 +119,7 @@ setupFramebuffer = do
     fboTO <- genObjectName
     textureBinding Texture2D $= Just fboTO
     texImage2D Texture2D NoProxy 0 RGBA8 (TextureSize2D 800 600) 0 (PixelData RGBA UnsignedByte nullPtr)
+    texImage2D Texture2D NoProxy 0 RGBA8 (TextureSize2D 8 6) 0 (PixelData RGBA UnsignedByte nullPtr)
     textureFilter Texture2D $= ((Linear',Just Linear') , Nearest)
     generateMipmap' Texture2D
     framebufferTexture2D Framebuffer (ColorAttachment 0) Texture2D fboTO 0