Implement shading for more types of shapes (cylinders, boxes)

src/Dodge/Render.hs

@@ -141,11 +141,14 @@ doDrawing' win pdata u = do
     let fs = _shapeShader pdata
     glUseProgram (_shadName fs)
     glBindVertexArray $ fs ^. shadVAO . vaoName
+--    glEnable GL_CULL_FACE
+--    glCullFace GL_BACK
     glDrawElements
         (marshalEPrimitiveMode $ _shadPrim' fs)
         (fromIntegral nIndices)
         GL_UNSIGNED_SHORT
         nullPtr
+--    glDisable GL_CULL_FACE
     --draw floor onto base buffer
     drawShader (fst $ _textureArrayShader pdata) nFls
     --draw lightmap into its own buffer