Working shadows from foreground, not optimised

2021-06-29 16:47:16 +02:00
parent 3d16c33d33
commit 3056e6384b
6 changed files with 23 additions and 16 deletions
@@ -63,8 +63,9 @@ doDrawing pdata w = do

    -- store floor position into buffer
    let addC (xx,yy) = (xx,yy,0)
-    nsurfVs <- F.foldM (pokeShader (_lightingSurfaceShader pdata)) [Render3 
-        $ polyToTris $ map addC $ screenPolygon w ]
+    nsurfVs <- F.foldM (pokeShader (_lightingSurfaceShader pdata)) 
+        $ [Render3 $ polyToTris $ map addC $ screenPolygon w ]
+        ++ concatMap polyToGeoRender (foregroundPics w)
    bindShaderBuffers [_lightingSurfaceShader pdata] [nsurfVs]

    depthFunc $= Just Less