Move shape parameters into separate file

src/Preload/Render.hs

@@ -5,6 +5,7 @@ module Preload.Render (
     cleanUpRenderPreload,
 ) where
 
+import Shape.Parameters
 import Shader.Parameters
 import Control.Concurrent
 import Control.Lens
@@ -18,7 +19,6 @@ import Graphics.GL.Core45
 import Shader.AuxAddition
 import Shader.Compile
 import Shader.Data
-import Shape.Data
 
 {- BINDING LIST:
 0   base
@@ -73,10 +73,7 @@ preloadRender = do
     -- note the shape shader vao is distinct from the position vao, but they
     -- share an EBO
     shapeshader <- makeShaderUsingVBO "shape/basic" [vert, frag] 
-        [VertexAttribute 4 GL_FLOAT GL_FALSE 0 
-        ,VertexAttribute 4 GL_UNSIGNED_BYTE GL_TRUE (fromIntegral 4 * fromIntegral floatSize) 
-        ,VertexAttribute 4 GL_FLOAT GL_FALSE (fromIntegral 4 * fromIntegral (floatSize + ubyteSize))
-        ]
+        shapeVerxAttributes
         pmTriangles shVBO
     glVertexArrayElementBuffer (shapeshader ^. shaderVAO . vaoName) (shEBO ^. eboName)