Cleanup

2023-03-24 12:06:54 +00:00
parent d524a14da4
commit bd9f32875e
7 changed files with 21 additions and 36 deletions
@@ -240,7 +240,7 @@ instanceLightMap ::
    IO ()
 instanceLightMap cfig nWalls nSils nCaps toPos tanormals lightPoints pdata = do
    let lcapShad = _shadowCapShader pdata
-        (xsize, ysize) = getWindowSize cfig
+        (xsize, ysize) = getWindowSize _graphics_world_resolution cfig
    withArray (lightsToArray lightPoints) $ \ptr ->
        glNamedBufferSubData (pdata ^. lightsUBO) 0 620 ptr
    forM_ [0 .. 19] $ \i ->
@@ -257,8 +257,8 @@ instanceLightMap cfig nWalls nSils nCaps toPos tanormals lightPoints pdata = do
            0
            0
            i
-            (fromIntegral xsize)
-            (fromIntegral ysize)
+            xsize
+            ysize
            1
    glBindFramebuffer GL_FRAMEBUFFER $ pdata ^. fboShadow . _1 . unFBO
    glDepthMask GL_FALSE