justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Draw shadows in a framebuffer object

Browse Source
This commit is contained in:
justin
2021-03-16 21:47:00 +01:00
parent 3707954913
commit b68e39ba2f
3 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Loop.hs
+1 -1
View File
@@ -55,7 +55,7 @@ setupLoop wName xSize ySize
(\_ -> bracket customInit initCleanup $ \setup -> do -- setup <- customInit (\_ -> bracket customInit initCleanup $ \setup -> do -- setup <- customInit
-- swapInterval $= ImmediateUpdates -- swapInterval $= ImmediateUpdates
GL.blend $= GL.Enabled GL.blend $= GL.Enabled
GL.depthMask $= GL.Enabled -- GL.depthMask $= GL.Enabled
GL.blendEquation $= GL.FuncAdd GL.blendEquation $= GL.FuncAdd
GL.blendFunc $= (GL.SrcAlpha,GL.OneMinusSrcAlpha) GL.blendFunc $= (GL.SrcAlpha,GL.OneMinusSrcAlpha)
GL.clearColor $= GL.Color4 0 0.5 0 1 GL.clearColor $= GL.Color4 0 0.5 0 1
src/Picture/Preload.hs
+1
View File
@@ -113,6 +113,7 @@ setupFramebuffer = do
bindRenderbuffer Renderbuffer $= fboRBO bindRenderbuffer Renderbuffer $= fboRBO
renderbufferStorage Renderbuffer Depth24Stencil8 (RenderbufferSize 800 600) renderbufferStorage Renderbuffer Depth24Stencil8 (RenderbufferSize 800 600)
-- not sure if the stencil is needed -- not sure if the stencil is needed
framebufferRenderbuffer Framebuffer DepthStencilAttachment Renderbuffer fboRBO
fboStatus <- framebufferStatus Framebuffer fboStatus <- framebufferStatus Framebuffer
putStrLn $ show fboStatus putStrLn $ show fboStatus
src/Picture/Render.hs
+2
View File
@@ -51,9 +51,11 @@ renderPicture' pdata rot zoom (tranx,trany) (winx,winy) wallPoints lightPoints p
-- draw lightmap -- draw lightmap
bindFramebuffer Framebuffer $= (_spareFBO pdata) bindFramebuffer Framebuffer $= (_spareFBO pdata)
depthFunc $= Just Less
clearColor $= Color4 0 0.5 0 1 clearColor $= Color4 0 0.5 0 1
clearDepth $= (200) clearDepth $= (200)
clear [ColorBuffer] clear [ColorBuffer]
-- depthMask $= Enabled
nWalls <- F.foldM (pokeShader (_wallShadowShader pdata)) wallPoints nWalls <- F.foldM (pokeShader (_wallShadowShader pdata)) wallPoints
bindShaderBuffers [_wallShadowShader pdata] [nWalls] bindShaderBuffers [_wallShadowShader pdata] [nWalls]