Work towards using vertex pulling for lighting caps, alignment issues

src/Preload/Render.hs

@@ -49,6 +49,15 @@ preloadRender = do
     glNamedBufferStorage wallssbo (fromIntegral wallssbosize) nullPtr GL_DYNAMIC_STORAGE_BIT
     glBindBufferBase GL_SHADER_STORAGE_BUFFER 2 wallssbo
 
+    shapessbo <- mglCreate glCreateBuffers
+    let shapessbosize = fromIntegral (sizeOf (0::Float) * 12) * 65536
+    glNamedBufferStorage shapessbo shapessbosize nullPtr GL_DYNAMIC_STORAGE_BIT
+    glBindBufferBase GL_SHADER_STORAGE_BUFFER 3 shapessbo
+    ishapessbo <- mglCreate glCreateBuffers
+    let ishapessbosize = fromIntegral (sizeOf (0::GLushort) * 65536)
+    glNamedBufferStorage ishapessbo ishapessbosize nullPtr GL_DYNAMIC_STORAGE_BIT
+    glBindBufferBase GL_SHADER_STORAGE_BUFFER 4 ishapessbo
+
     dummyvao <- mglCreate glGenVertexArrays
 
     winpull <- makeShaderUsingVAO "pull/window" [vert,frag] pmTriangles (VAO dummyvao)
@@ -86,7 +95,8 @@ preloadRender = do
         --makeShaderUsingVBO "lighting/wallShadow" [vert, geom] (toFloatVAs [4]) pmPoints wallvbo
         makeShaderUsingVAO "lighting/wallShadow" [vert] pmTriangles (VAO dummyvao)
     lightingCapShad <-
-        makeShaderUsingVAO "lighting/cap" [vert, geom] pmTriangles shPosVAO
+        --makeShaderUsingVAO "lighting/cap" [vert, geom] pmTriangles shPosVAO
+        makeShaderUsingVAO "lighting/cap" [vert] pmTriangles (VAO dummyvao)
     lightingLineShadowShad <-
         makeShaderUsingVAO "lighting/lineShadow" [vert, geom] pmLinesAdjacency shedgevao
 
@@ -214,6 +224,8 @@ preloadRender = do
             , _matUBO = theUBO
             , _winSSBO = winssbo
             , _wallSSBO = wallssbo
+            , _shapeSSBO = shapessbo
+            , _ishapeSSBO = ishapessbo
 --            , _lightsUBO = lightsubo
             , _vboWindows = winvbo
             , _vboShapes = shVBO