Cleanup: remove uniforms from shader datatype

src/Dodge/Render/Walls.hs

@@ -13,6 +13,7 @@ import Dodge.Wall.Draw
 import Geometry
 import ShapePicture
 
+-- not necessary: should just poke all walls to their wanted places
 wallsToDraw :: World -> ([((Point2, Point2), Point4)], [((Point2, Point2), Point4)], SPic, [Wall])
 wallsToDraw w = L.fold
             ( (,,,)
@@ -22,9 +23,9 @@ wallsToDraw w = L.fold
                 <*> L.prefilter wlOpaqueDraw L.list
             )
             (w ^. cWorld . lWorld . walls)
+--            (wlsFromIXs w $ zonesExtract (w ^. wlZoning) $ zoneOfSight wlZoneSize cam)
   where
     f wl = (_wlLine wl, _wlColor wl)
---            (wlsFromIXs w $ zonesExtract (w ^. wlZoning) $ zoneOfSight wlZoneSize cam)
 --    cam = w ^. cWorld . camPos
 
 --wallsToDraw