Reorganise render collections

src/Dodge/Render.hs

@@ -8,8 +8,9 @@ import Dodge.Data
 import Dodge.Config.Data
 import Dodge.Base.Window
 import Dodge.Render.Picture
-import Dodge.Render.Shape
 import Dodge.Render.ShapePicture
+import Dodge.Render.Walls
+import Dodge.Render.Lights
 import Geometry
 import Render
 import Data.Preload.Render
@@ -52,7 +53,6 @@ doDrawing pdata w = do
     -- attempt to poke in parallel
     let (ws,wp) = worldSPic w
     MP.bindM3 (\ _ _ _ -> return ())
-        --( pokeBindFoldableLayer shadV layerCounts $ worldPictures w )
         ( pokeBindFoldableLayer shadV layerCounts wp)
         ( pokeWallsWindowsFloor
             (shadVBOptr $ _wallTextureShader pdata) 
@@ -68,7 +68,6 @@ doDrawing pdata w = do
             (_eboPtr $ _shapeEBO pdata)
             (_eboPtr $ _silhouetteEBO pdata)
             shapeCounts
-            -- $ worldShape w
             ws
         )
     nShapeVs    <- UMV.read shapeCounts 0