Support for dynamically loading shaders

rafraser · Nov 7, 2019 · f3f1016 · f3f1016
1 parent 4b82a77
commit f3f1016
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 3 deletions.
diff --git a/opengl/src/Main.hs b/opengl/src/Main.hs
@@ -36,16 +36,22 @@ display = do
     flush
     swapBuffers
 
+getShaderName :: [String] -> String
+getShaderName [] = "test"
+getShaderName args = do head args
+
 main :: IO()
 main = do
-    _ <- getArgsAndInitialize
+    (name, args) <- getArgsAndInitialize
     initialDisplayMode $= [RGBMode, WithDepthBuffer, DoubleBuffered]
     initialWindowSize $= Size 500 500
     _ <- createWindow "Shader Test"
 
+    let shaderName = getShaderName args
+
     -- Shaders?
-    vs <- readCompileShader VertexShader "test.vert"
-    fs <- readCompileShader FragmentShader "test.frag"
+    vs <- readCompileShader VertexShader ("shaders/" ++ shaderName ++ ".vert")
+    fs <- readCompileShader FragmentShader ("shaders/" ++ shaderName ++ ".frag")
     loadShaders [vs, fs]
 
     displayCallback $= display

diff --git a/opengl/src/test.frag → opengl/src/shaders/test.frag b/opengl/src/test.frag → opengl/src/shaders/test.frag
diff --git a/opengl/src/test.vert → opengl/src/shaders/test.vert b/opengl/src/test.vert → opengl/src/shaders/test.vert