Initial pass at shadows from level geometry

src/Shader/ExtraPrimitive.hs

@@ -0,0 +1,21 @@
+module Shader.ExtraPrimitive
+    where
+import Shader.Data
+
+import Graphics.GL.Types
+import Graphics.GL.Tokens
+
+marshalEPrimitiveMode :: EPrimitiveMode -> GLenum
+marshalEPrimitiveMode x = case x of
+   EPoints -> GL_POINTS
+   ELines -> GL_LINES
+   ELinesAdjacency -> GL_LINES_ADJACENCY
+   ELineLoop -> GL_LINE_LOOP
+   ELineStrip -> GL_LINE_STRIP
+   ETriangles -> GL_TRIANGLES
+   ETriangleStrip -> GL_TRIANGLE_STRIP
+   ETriangleFan -> GL_TRIANGLE_FAN
+   EQuads -> GL_QUADS
+   EQuadStrip -> GL_QUAD_STRIP
+   EPolygon -> GL_POLYGON
+   EPatches -> GL_PATCHES