Separate cloud & surface lighting

2025-11-20 14:01:54 +00:00
parent 1f1fa36b72
commit 602b162d41
5 changed files with 15 additions and 7 deletions
@@ -127,6 +127,7 @@ preloadRender = do
 --    transcompshader <- makeSourcedShader "fullscreen/transparencyComp" [vert, frag]
    bloomBlurShad <- makeSourcedShader "texture/bloomBlur" [vert, frag]
    lightingTextureShad <- makeSourcedShader "lighting/texture" [vert, frag]
+    lightingCloudShad <- makeSourcedShader "lighting/cloud" [vert, frag]

    distbo <- mglCreate glCreateBuffers
    let distbosize = sizeOf (0 :: Float) * 8 * 1024
@@ -189,6 +190,7 @@ preloadRender = do
 --            , _transparencyCompShader = transcompshader
            , _alphaDivideShader = alphadivideshader
            , _lightingTextureShader = lightingTextureShad
+            , _lightingCloudShader = lightingCloudShad
            , _bloomBlurShader = bloomBlurShad
            , _barrelShader = (barrelShad,distvbo)
            , _fbo2 = framebuf2