Remove bezier shader

src/Preload/Render.hs

@@ -128,7 +128,6 @@ preloadRender = do
     --glVertexArrayElementBuffer (bslista ^. shaderVAO . vaoName) shEBOname
     aslist <- makeShader "dualTwoD/arc" [vert, frag] [3, 4, 3] pmTriangles
     eslist <- makeShader "dualTwoD/ellipse" [vert, geom, frag] [3, 4] pmTriangles
-    bezierQuadShader <- makeShader "dualTwoD/bezierQuad" [vert, frag] [3, 4, 4] pmTriangleStrip
     cslist <-
         makeShader "dualTwoD/character" [vert, frag] [3, 4, 2] pmTriangles
             >>= _1 (vaddTextureNoFilter "data/texture/charMap.png")
@@ -194,12 +193,11 @@ preloadRender = do
     -- reset to default framebuffer, ready for drawing direct to screen
     glBindFramebuffer GL_FRAMEBUFFER 0
 
-    shadV <- MV.new 5
+    shadV <- MV.new 4
     zipWithM_
         (MV.write shadV)
-        [0 .. 4]
+        [0 .. 3]
         [ bslist -- note the ordering is very important
-        , bezierQuadShader
         , cslist
         , aslist
         , eslist