Use ssbos for edge shadows

Seems quite slow as is

src/Preload/Render.hs

@@ -58,6 +58,11 @@ preloadRender = do
     glNamedBufferStorage ishapessbo ishapessbosize nullPtr GL_DYNAMIC_STORAGE_BIT
     glBindBufferBase GL_SHADER_STORAGE_BUFFER 4 ishapessbo
 
+    ieshapessbo <- mglCreate glCreateBuffers
+    let ieshapessbosize = fromIntegral (sizeOf (0::GLuint) * 65536)
+    glNamedBufferStorage ieshapessbo ieshapessbosize nullPtr GL_DYNAMIC_STORAGE_BIT
+    glBindBufferBase GL_SHADER_STORAGE_BUFFER 5 ieshapessbo
+
     dummyvao <- mglCreate glGenVertexArrays
 
     winpull <- makeShaderUsingVAO "pull/window" [vert,frag] pmTriangles (VAO dummyvao)
@@ -98,7 +103,8 @@ preloadRender = do
         --makeShaderUsingVAO "lighting/cap" [vert, geom] pmTriangles shPosVAO
         makeShaderUsingVAO "lighting/cap" [vert] pmTriangles (VAO dummyvao)
     lightingLineShadowShad <-
-        makeShaderUsingVAO "lighting/lineShadow" [vert, geom] pmLinesAdjacency shedgevao
+        --makeShaderUsingVAO "lighting/lineShadow" [vert, geom] pmLinesAdjacency shedgevao
+        makeShaderUsingVAO "lighting/lineShadow" [vert] pmTriangles shedgevao
 
     ceilingstencilshader <- makeShaderUsingVAO "ceiling/stencil" [vert] pmTriangles
         (VAO dummyvao)
@@ -226,6 +232,7 @@ preloadRender = do
             , _wallSSBO = wallssbo
             , _shapeSSBO = shapessbo
             , _ishapeSSBO = ishapessbo
+            , _ieshapeSSBO = ieshapessbo
 --            , _lightsUBO = lightsubo
             , _vboWindows = winvbo
             , _vboShapes = shVBO