Add new files

src/Dodge/Render.hs

@@ -7,17 +7,13 @@ module Dodge.Render
 import Dodge.Data
 import Dodge.Config.Data
 import Dodge.Base.Window
---import Dodge.Render.HUD
---import Dodge.Render.MenuScreen
 import Dodge.Render.Picture
---import Dodge.Render.PerspectiveMatrix
 import Geometry
---import Geometry.Data
---import Picture
 import Render
 import Data.Preload.Render
 import Shader
 import Shader.Poke
+import Shader.Bind
 import Shader.Data
 import MatrixHelper
 --import Polyhedra.Data
@@ -50,6 +46,7 @@ doDrawing pdata w = do
         (wallPointsCol,windowPoints) = wallsAndWindows w
         lightPoints     = lightsForGloom w
         viewFroms = _cameraViewFrom w
+        shadV = _pictureShaders pdata
     -- bind as much data into vbos as feasible at this point
     -- poke wall points and colors
     nWalls <- poke224s (shadVBOptr $ _wallTextureShader pdata) wallPointsCol
@@ -60,7 +57,6 @@ doDrawing pdata w = do
     nsurfVs <- pokePoint3s (shadVBOptr $ _lightingSurfaceShader pdata)
         $ polyToTris (map addC $ screenPolygon w)
         ++ concatMap polyToGeoRender (foregroundPics w)
-
     -- bind wall points, silhouette data, surface geometry
     uncurry bindShaderBuffers $ unzip
         [ ( _wallTextureShader pdata, nWalls)
@@ -77,7 +73,6 @@ doDrawing pdata w = do
         then renderTextureWalls pdata nWalls
         else renderBlankWalls pdata nWalls
 
-    let shadV = _pictureShaders pdata
     renderFoldable shadV $ polysToPic $ foregroundPics w
 
     layerCounts <- UMV.replicate (6*6) 0