Refactor vao preload

src/Shaders.hs

@@ -6,6 +6,8 @@ module Shaders
     ,makeTextureShader
     ,makeBasicShader
     ,makeFadeShader
+    ,makeCircleShader
+    ,makeArcShader
     )
     where
 import Graphics.Rendering.OpenGL
@@ -34,6 +36,28 @@ setupBasicShader = do
     shaderProgram <- makeBasicShader
     currentProgram $= (Just shaderProgram)
 
+makeCircleShader :: IO Program
+makeCircleShader = do
+    vsSource <- BS.readFile "shader/circle.vert"
+    gsSource <- BS.readFile "shader/circle.geom"
+    fsSource <- BS.readFile "shader/circle.frag"
+
+    makeShaderProgram [(VertexShader,   vsSource )
+                      ,(GeometryShader, gsSource )
+                      ,(FragmentShader, fsSource )
+                      ]
+
+makeArcShader :: IO Program
+makeArcShader = do
+    vsSource <- BS.readFile "shader/arc.vert"
+    gsSource <- BS.readFile "shader/arc.geom"
+    fsSource <- BS.readFile "shader/arc.frag"
+
+    makeShaderProgram [(VertexShader,   vsSource )
+                      ,(GeometryShader, gsSource )
+                      ,(FragmentShader, fsSource )
+                      ]
+
 makeFadeShader :: IO Program
 makeFadeShader = do
     vsSource <- BS.readFile "shader/fadeCircle.vert"