Add wall shadow shaders

src/Picture/Preload.hs

@@ -25,12 +25,14 @@ data PreloadData = PreloadData
     , _arcShader  :: Program
     , _fadeCircleShader :: Program
     , _backShader :: Program
+    , _wallShadowShader :: Program
     , _triVAO :: VAO
     , _lineVAO :: VAO
     , _textVAO :: VAO
     , _circVAO :: VAO
     , _arcVAO  :: VAO
     , _backVAO :: VAO
+    , _wallVAO :: VAO
     , _posVBO :: BufferObject
     , _colVBO :: BufferObject
     , _texVBO :: BufferObject
@@ -103,11 +105,13 @@ doPreload' = do
     as <- makeArcShader
     fcs <- makeFadeShader
     bgs <- makeBackgroundShader
+    wss <- makeWallShadowShader
 
     winSizeUni <- GL.uniformLocation cs "winSize"
     zoomUni    <- GL.uniformLocation cs "zoom"
     asWinSizeUniLoc <- GL.uniformLocation as "winSize"
     asZoomUniLoc    <- GL.uniformLocation as "zoom"
+    wssLightPosUniLoc   <- GL.uniformLocation wss "lightPos"
 -- get uniform locations
 
 --setup vbos
@@ -159,6 +163,7 @@ doPreload' = do
     circvao <- setupVAO [(posVBO,0,3),(colVBO,1,4),(texVBO,2,1)]
     arcvao  <- setupVAO [(posVBO,0,3),(colVBO,1,4),(texVBO,2,4)]
     backgroundvao <- setupVAO [(posVBO,0,4),(colVBO,1,2)]
+    wallvao <- setupVAO [(posVBO,0,4),(colVBO,1,4)]
     
     return $ PreloadData
         { -- _charMap      = convertRGBA8 cmap
@@ -169,12 +174,14 @@ doPreload' = do
         , _arcShader = as
         , _fadeCircleShader = fcs
         , _backShader = bgs
+        , _wallShadowShader = wss
         , _triVAO  = trivao
         , _textVAO = textvao
         , _circVAO = circvao
         , _arcVAO  = arcvao
         , _lineVAO = linevao
         , _backVAO = backgroundvao
+        , _wallVAO = wallvao
         , _posVBO = posVBO
         , _colVBO = colVBO
         , _texVBO = texVBO