Allow more control over cloud shadows

2025-11-14 11:19:34 +00:00
parent 0eb2fe50a6
commit 836fefb9a5
5 changed files with 22 additions and 16 deletions
@@ -28,6 +28,7 @@ import Shader.Data
 createLightMap ::
    Camera ->
    Config ->
+    ShadowRendering ->
    -- | number of walls
    GLsizei ->
    -- | number of silhoutte lines to draw
@@ -41,12 +42,12 @@ createLightMap ::
    [(Point3, Float, Point3)] -> -- Lights
    RenderData ->
    IO ()
-createLightMap cam cfig = case shadrendertype of
+createLightMap cam cfig shadrendertype = case shadrendertype of
    NoShadows -> const . const . const renderLightingNoShadows
    NoLighting -> const . const . const . const . const . const renderFlatLighting
    _ -> renderShadows cam cfig shadrendertype
-  where
-    shadrendertype = cfig ^. gr_shadow_rendering
+--  where
+--    shadrendertype = cfig ^. gr_shadow_rendering

 renderLightingNoShadows ::
    TO ->