Bind dummy vao once during preloadRender; fix texture shader normals

src/Preload/Render.hs

@@ -92,6 +92,8 @@ preloadRender = do
     let cloudvbo = VBO cloudbo cloudptr cvsize
 
     dummyvao <- mglCreate glGenVertexArrays
+    glBindVertexArray dummyvao
+    --dummyvao <- mglCreate glGenVertexArrays
 
     winpull <- makeSourcedShader "pull/window" [vert, frag]
     wallpull <- makeSourcedShader "pull/wall" [vert, frag]
@@ -221,7 +223,6 @@ preloadRender = do
             , _winVBO = winvbo
             , _cloudVBO = cloudvbo
             , _cloudShader = cloudshader
-            , _dummyVAO = dummyvao
             }
 
 --------------------end preloadRender
@@ -234,17 +235,6 @@ cornerList = concat
     br = [ 3, -1, 2, 0]
     tl = [-1,  3, 0, 2]
 
-cornerList' :: [Float]
-cornerList' = concat
-    [ bl, br, tl
-    , tl, br, tr
-    ]
-  where
-    bl = [-1, -1, 0, 0]
-    br = [ 1, -1, 1, 0]
-    tl = [-1,  1, 0, 1]
-    tr = [ 1,  1, 1, 1]
-
 --cornerListForTriangles :: [[Float]]
 --cornerListForTriangles =
 --    [ [-1, 1, 0, 1]