Work on cloud/window transparency

2025-11-09 11:00:12 +00:00
parent 7c62479f30
commit e9ffeeaea7
16 changed files with 221 additions and 168 deletions
@@ -23,15 +23,12 @@ updatePreload u =
        (renderDataResizeUpdate (u ^. uvConfig))
        u

-renderDataResizeUpdate ::
-    Config ->
-    RenderData ->
-    IO RenderData
+renderDataResizeUpdate :: Config -> RenderData -> IO RenderData
 renderDataResizeUpdate cfig rdata = do
    rdata' <- sizeFBOs cfig rdata
    bbVert <- BS.readFile "shader/texture/bloomBlur.vert"
    bbFrag <- BS.readFile "shader/texture/bloomBlur.frag"
-    let (xsize, ysize) = getWindowSize _graphics_downsize_resolution cfig :: (Int, Int)
+    let (xsize, ysize) = getWindowSize _gr_downsize_res cfig :: (Int, Int)
        (bh, bmid) = BS.breakSubstring "(" bbFrag
        (_, btt) = BS.breakSubstring ")" bmid
        bbFrag' = BS.append bh $ BS.append (BSC.pack $ '(' : show xsize ++ "," ++ show ysize) btt