Pack shape normals into a word8

src/Dodge/Render.hs

@@ -4,6 +4,7 @@ module Dodge.Render (
     getWindowSize,
 ) where
 
+import Shape.Parameters
 import Control.Lens
 import Control.Monad
 import qualified Control.Monad.Parallel as MP
@@ -114,10 +115,10 @@ doDrawing' win pdata u = do
     glNamedBufferSubData (pdata ^. wallVBO . vboName) 0 
         (fromIntegral $ trueNWalls * sizeOf (0::Float) * 8)
         (pdata ^. wallVBO . vboPtr)
-    glNamedBufferSubData (pdata ^. shapeSSBO) 0
-        (fromIntegral $ nShapeVs * (sizeOf (0::Float)*12))
+    glNamedBufferSubData (pdata ^. vboShapes . vboName) 0
+        (fromIntegral $ nShapeVs * shapeVerxSize)
         (pdata ^. vboShapes . vboPtr)
-    glNamedBufferSubData (pdata ^. ishapeSSBO) 0
+    glNamedBufferSubData (pdata ^. shapeEBO . uiboName) 0
         (fromIntegral $ nIndices * (sizeOf (0::GLuint)))
         (pdata ^. shapeEBO . uiboPtr)
     bufferEBO (pdata ^. silhouetteEBO) nSilIndices
@@ -176,13 +177,7 @@ doDrawing' win pdata u = do
     --draw object shapes onto base buffer
     let fs = _shapeShader pdata
     glUseProgram (_shaderUINT fs)
---    glBindVertexArray $ fs ^. shaderVAO . vaoName
     glDrawArrays GL_TRIANGLES 0 (fromIntegral nIndices)
---    glDrawElements
---        (_unPrimitiveMode $ _shaderPrimitive fs)
---        (fromIntegral nIndices)
---        GL_UNSIGNED_INT
---        nullPtr
     -- draw chasm shader blocking floor
     glUseProgram (pdata ^. chasmShader . shaderUINT)
     glBindVertexArray $ pdata ^. chasmShader . shaderVAO . vaoName