Add line shadow shader

src/Preload/Render.hs

@@ -36,6 +36,9 @@ preloadRender = do
     lightingSurfaceShad
          <- makeShader "lighting/surface" [vert,frag] [3] Triangles poke3
                 >>= addUniforms ["lightPos","radLum"]
+    lightingLineShadowShad
+        <- makeShader "lighting/lineShadow" [vert,geom,frag] [3] Lines poke3
+                >>= addUniforms ["lightPos"]
 -- 2D draw shaders
     bslist <- makeShader "twoD/basic"   [vert,frag]      [3,4]   Triangles pokeTriStrat
     lslist <- makeShader "twoD/basic"   [vert,frag]      [3,4]   Lines     pokeLineStrat
@@ -76,6 +79,7 @@ preloadRender = do
     return $ RenderData
         { _pictureShaders           = [bslist,lslist,cslist,aslist,eslist,bezierQuadShader]
         , _lightingSurfaceShader    = lightingSurfaceShad
+        , _lightingLineShadowShader = lightingLineShadowShad
         , _lightingFloorShader      = lightingFloorShad
         , _lightingOccludeShader    = wsShad
         , _lightingWallShader       = wlLightShad