Add alternate shadow volume rendering pathway (layered geo)

src/Preload/Render.hs

@@ -149,7 +149,7 @@ preloadRender = do
         [1] 1
         EPoints
     shadowcombineshader <- makeShaderSized "shadow/combine" [vert,geom,frag] [1] 1 EPoints
-    pokeArray (shadVBOptr' shadowlightshader) $ concat cornerListForTriangles
+    poke (shadVBOptr' shadowlightshader) 1
 
     -- positional shader
     positionalBlankShad <- makeShader "positional/blank" [vert, frag] [3] ETriangles
@@ -291,15 +291,15 @@ cornerList =
     , [1, 1, 1, 1]
     , [1, -1, 1, 0]
     ]
-cornerListForTriangles :: [[Float]]
-cornerListForTriangles =
-    [ [-1, 1, 0, 1]
-    , [-1, -1, 0, 0]
-    , [1, 1, 1, 1]
-    , [-1, -1, 0, 0]
-    , [1, 1, 1, 1]
-    , [1, -1, 1, 0]
-    ]
+--cornerListForTriangles :: [[Float]]
+--cornerListForTriangles =
+--    [ [-1, 1, 0, 1]
+--    , [-1, -1, 0, 0]
+--    , [1, 1, 1, 1]
+--    , [-1, -1, 0, 0]
+--    , [1, 1, 1, 1]
+--    , [1, -1, 1, 0]
+--    ]
 
 cleanUpRenderPreload :: RenderData -> IO ()
 cleanUpRenderPreload pd = do