Add shading for shapes and the floor

2023-03-15 18:24:09 +00:00
parent 21f87b96d8
commit 989140d46e
16 changed files with 158 additions and 69 deletions
@@ -3,6 +3,7 @@ module Framebuffer.Setup (
    setupTextureFramebuffer,
    setupFramebufferGivenStencil,
    setupFramebuffer2GivenStencil,
+    setupFramebuffer3GivenStencil,
    setupShadowFramebuffer,
 ) where

@@ -75,3 +76,15 @@ setupFramebuffer2GivenStencil rboName = do
    glNamedFramebufferRenderbuffer fboName GL_DEPTH_STENCIL_ATTACHMENT GL_RENDERBUFFER rboName
    checkFBO $ FBO fboName
    return (FBO fboName, (TO to1, TO to2))
+
+setupFramebuffer3GivenStencil ::
+    GLuint -> -- RenderbufferObject
+    IO (FBO, (TO, TO, TO))
+setupFramebuffer3GivenStencil rboName = do
+    fboName <- mglCreate glCreateFramebuffers
+    to1 <- mglCreate (glCreateTextures GL_TEXTURE_2D)
+    to2 <- mglCreate (glCreateTextures GL_TEXTURE_2D)
+    to3 <- mglCreate (glCreateTextures GL_TEXTURE_2D)
+    glNamedFramebufferRenderbuffer fboName GL_DEPTH_STENCIL_ATTACHMENT GL_RENDERBUFFER rboName
+    checkFBO $ FBO fboName
+    return (FBO fboName, (TO to1, TO to2, TO to3))