Initial pass at shadows from level geometry

src/Shader.hs

@@ -7,11 +7,13 @@ module Shader
 --import Geometry.Data
 import Shader.Data
 import Shader.Parameters
+import Shader.ExtraPrimitive
 --import MatrixHelper
 
 import Foreign
 import Control.Monad
 import Graphics.Rendering.OpenGL hiding (Point,translate,scale,imageHeight)
+import Graphics.GL.Core43
 --import Text.RawString.QQ
 --import Linear.Matrix
 --import Linear.V4
@@ -40,7 +42,7 @@ drawShader fs i = do
         Just ShaderTexture{_textureObject = txo}
             -> textureBinding Texture2D $= Just txo
         _   -> return ()
-    drawArrays (_shaderDrawPrimitive fs) 0 (fromIntegral i)
+    glDrawArrays (marshalEPrimitiveMode $ _shaderDrawPrimitive fs) 0 (fromIntegral i)
 
 freeShaderPointers :: FullShader -> IO ()
 freeShaderPointers fs = free $ _vboPointer $ _vaoVBO $ _shaderVAO fs