Fix tile depth

src/Preload/Render.hs

@@ -33,6 +33,9 @@ preloadRender = do
     wlLightShad 
          <- makeShader "lighting/wall" [vert,geom,frag] [4] Points pokeWPStrat
                 >>= addUniforms ["lightPos","radLum"]
+    lightingSurfaceShad
+         <- makeShader "lighting/surface" [vert,frag] [3] Points poke3
+                >>= addUniforms ["lightPos","radLum"]
 -- 2D draw shaders
     bslist <- makeShader "twoD/basic"   [vert,frag]      [3,4]   Triangles pokeTriStrat
     lslist <- makeShader "twoD/basic"   [vert,frag]      [3,4]   Lines     pokeLineStrat
@@ -72,6 +75,7 @@ preloadRender = do
 
     return $ RenderData
         { _pictureShaders           = [bslist,lslist,cslist,aslist,eslist,bezierQuadShader]
+        , _lightingSurfaceShader    = lightingSurfaceShad
         , _lightingFloorShader      = lightingFloorShad
         , _lightingOccludeShader    = wsShad
         , _lightingWallShader       = wlLightShad
@@ -182,6 +186,10 @@ vert = VertexShader
 geom = GeometryShader
 frag = FragmentShader
 
+poke3 :: RenderType -> [[Float]]
+poke3 (Render3 vs) = map flat3 vs
+poke3 _ = undefined
+
 pokeWPStrat :: RenderType -> [[Float]]
 pokeWPStrat Render22{_unRender22 = ((x,y),(z,w))} = [[x,y,z,w]]
 pokeWPStrat _ = undefined