Remove unused shader code

This commit is contained in:
2025-11-14 11:27:16 +00:00
parent 836fefb9a5
commit 91917dbddd
9 changed files with 20 additions and 120 deletions
+5 -1
View File
@@ -1,5 +1,9 @@
{-# OPTIONS -fno-warn-missing-signatures #-}
module Dodge.Menu.OptionType where
module Dodge.Menu.OptionType (
boolOption,
enumOption,
makeSubmenuOption,
) where
import Control.Lens
import Dodge.Data.Universe
+2 -2
View File
@@ -121,7 +121,7 @@ doDrawing' win pdata u = do
glEnable GL_CULL_FACE
unless (debugOn Remove_LOS cfig) $ do
glUseProgram (pdata ^. ceilingStencilShader)
glBindVertexArray $ pdata ^. dummyVAO . vaoName
glBindVertexArray $ pdata ^. dummyVAO
glEnable GL_DEPTH_CLAMP
glDrawArrays GL_TRIANGLES 0 (fromIntegral (trueNWalls * 6))
glDisable GL_DEPTH_CLAMP
@@ -311,7 +311,7 @@ doDrawing' win pdata u = do
glEnable GL_BLEND
glBlendFunc GL_SRC_ALPHA GL_ONE
glUseProgram $ pdata ^. windowPullShader
glBindVertexArray $ pdata ^. dummyVAO . vaoName
glBindVertexArray $ pdata ^. dummyVAO
glDrawArrays GL_TRIANGLES 0 (fromIntegral nWins * 6)
glDisable GL_DEPTH_CLAMP
glDisable GL_CULL_FACE