Implement background texture

src/Shaders.hs

@@ -8,6 +8,7 @@ module Shaders
     ,makeFadeShader
     ,makeCircleShader
     ,makeArcShader
+    ,makeBackgroundShader
     )
     where
 import Graphics.Rendering.OpenGL
@@ -64,6 +65,16 @@ makeFadeShader = do
     gsSource <- BS.readFile "shader/fadeCircle.geom"
     fsSource <- BS.readFile "shader/fadeCircle.frag"
 
+    makeShaderProgram [(VertexShader,   vsSource )
+                      ,(GeometryShader, gsSource )
+                      ,(FragmentShader, fsSource )
+                      ]
+makeBackgroundShader :: IO Program
+makeBackgroundShader = do
+    vsSource <- BS.readFile "shader/background.vert"
+    gsSource <- BS.readFile "shader/background.geom"
+    fsSource <- BS.readFile "shader/background.frag"
+
     makeShaderProgram [(VertexShader,   vsSource )
                       ,(GeometryShader, gsSource )
                       ,(FragmentShader, fsSource )