Add various helpers for creating polyhedra

src/Preload/Render.hs

@@ -26,8 +26,6 @@ preloadRender = do
     bindBufferBase IndexedUniformBuffer 0 $= Just theUBO
 
 -- lighting shaders
-    lightingFloorShad <- makeShader "lighting/floor" [vert,geom,frag] [4] Points 
-                    pokeLightingFloorStrat
     wsShad <- makeShader "lighting/occlude" [vert,geom,frag] [4] Points pokeWPStrat
                 >>= addUniforms ["lightPos"]
     wlLightShad 
@@ -80,7 +78,6 @@ preloadRender = do
         { _pictureShaders           = [bslist,lslist,cslist,aslist,eslist,bezierQuadShader]
         , _lightingSurfaceShader    = lightingSurfaceShad
         , _lightingLineShadowShader = lightingLineShadowShad
-        , _lightingFloorShader      = lightingFloorShad
         , _lightingOccludeShader    = wsShad
         , _lightingWallShader       = wlLightShad
         , _wallBlankShader          = wlBlank
@@ -153,7 +150,6 @@ setupFramebuffer = do
 cleanUpRenderPreload :: RenderData -> IO ()
 cleanUpRenderPreload pd = do
     mapM_ freeShaderPointers $ _pictureShaders pd
-    freeShaderPointers $ _lightingFloorShader pd
     freeShaderPointers $ _lightingOccludeShader pd
     freeShaderPointers $ _fullscreenShader pd
 
@@ -169,10 +165,6 @@ pokeTriStrat,pokeCharStrat,pokeArcStrat,pokeLineStrat,pokeEllStrat :: RenderType
 pokeTriStrat (RenderPoly vs) = fmap (\(p,co) -> flat3 p ++ flat4 co) vs
 pokeTriStrat _ = []
 
-pokeLightingFloorStrat :: RenderType -> [[Float]]
-pokeLightingFloorStrat Render1111{_unRender1111=x} = [flat4 x]
-pokeLightingFloorStrat _ = undefined
-
 pokeCharStrat (RenderText vs) = fmap (\(a,b,c) -> concat [flat3 a, flat4 b, flat2 c]) vs
 pokeCharStrat _ = []