Working cloud shadows (slow)

2021-09-01 12:20:01 +01:00
parent f3ea46d7d0
commit ecaa5c48d0
12 changed files with 90 additions and 51 deletions
@@ -139,14 +139,16 @@ doDrawing pdata w = do
    drawBuffers $= [FBOColorAttachment 0,NoBuffers]
    clear [ColorBuffer]
    renderLayer 2 shadV layerCounts
-    renderWindows pdata windowPoints
+    --renderWindows pdata windowPoints
    
    ----render transparency depths
    depthMask $= Enabled
    blend $= Disabled
    drawBuffers $= [NoBuffers,FBOColorAttachment 1]
+    clearColor $= Color4 0 0 0 0
+    clear [ColorBuffer]
    renderLayer 2 shadV layerCounts
-    renderWindows pdata windowPoints
+    --renderWindows pdata windowPoints
    depthMask $= Disabled
    blend $= Enabled