Implement text rendering using geometry shader

2021-02-15 14:03:15 +01:00
parent 9747b5b876
commit 9f4497fb39
4 changed files with 27 additions and 12 deletions
@@ -54,9 +54,11 @@ setupFadeShader = do
 makeTextureShader :: IO Program
 makeTextureShader = do
    vsSource <- BS.readFile "shader/basicTexture.vert"
+    gsSource <- BS.readFile "shader/basicTexture.geom"
    fsSource <- BS.readFile "shader/basicTexture.frag"

    makeShaderProgram [(VertexShader,   vsSource )
+                      ,(GeometryShader, gsSource )
                      ,(FragmentShader, fsSource )
                      ]