Implement (not fully working) alternate shadow volumes

src/Shader/AuxAddition.hs

@@ -8,9 +8,10 @@ module Shader.AuxAddition
     ) where
 import Shader.Data
 
+import qualified Data.Vector as V
 import Data.List.Extra
 import Codec.Picture
-import qualified Data.Vector.Storable as V
+import qualified Data.Vector.Storable as VS
 import Control.Lens
 import Graphics.Rendering.OpenGL hiding (Point,translate,scale,imageHeight)
 import Graphics.GL.Core43
@@ -26,7 +27,7 @@ addTexture texturePath shad = do
     let wtex = fromIntegral $ imageWidth  tex
         htex = fromIntegral $ imageHeight tex
     glTexStorage2D GL_TEXTURE_2D 3 GL_RGBA8 wtex htex
-    V.unsafeWith (imageData tex) $ \ptr -> do
+    VS.unsafeWith (imageData tex) $ \ptr -> do
         glTexSubImage2D GL_TEXTURE_2D 0 0 0 wtex htex GL_RGBA GL_UNSIGNED_BYTE ptr
     textureFilter Texture2DArray $= ((Linear',Just Linear') , Linear')
     generateMipmap' Texture2D
@@ -42,7 +43,7 @@ vaddTextureNoFilter texturePath shad = do
     let wtex = fromIntegral $ imageWidth  tex
         htex = fromIntegral $ imageHeight tex
     glTexStorage2D GL_TEXTURE_2D 1 GL_RGBA8 wtex htex
-    V.unsafeWith (imageData tex) $ \ptr -> do
+    VS.unsafeWith (imageData tex) $ \ptr -> do
         glTexSubImage2D GL_TEXTURE_2D 0 0 0 wtex htex GL_RGBA GL_UNSIGNED_BYTE ptr
     return $ shad & shadTex ?~ ShaderTexture {_textureObject = textureOb}
 
@@ -56,7 +57,7 @@ addTextureNoFilter texturePath shad = do
     let wtex = fromIntegral $ imageWidth  tex
         htex = fromIntegral $ imageHeight tex
     glTexStorage2D GL_TEXTURE_2D 1 GL_RGBA8 wtex htex
-    V.unsafeWith (imageData tex) $ \ptr -> do
+    VS.unsafeWith (imageData tex) $ \ptr -> do
         glTexSubImage2D GL_TEXTURE_2D 0 0 0 wtex htex GL_RGBA GL_UNSIGNED_BYTE ptr
     return $ shad & shadTex ?~ ShaderTexture {_textureObject = textureOb}
 
@@ -75,7 +76,7 @@ addTextureArray texturePath shad = do
     glTexStorage3D GL_TEXTURE_2D_ARRAY 3 GL_RGBA8 32 32 64
     --writePng "atest.png" ((Image 256 256 (V.fromList texData)) :: Image PixelRGBA8)
     --withArray texData $ \ptr -> do
-    V.unsafeWith (imageData tex) $ \ptr -> do
+    VS.unsafeWith (imageData tex) $ \ptr -> do
         --glTexSubImage3D GL_TEXTURE_2D_ARRAY 0 0 0 0 32 32 64 GL_RGBA GL_UNSIGNED_BYTE ptr
         glTexSubImage3D GL_TEXTURE_2D_ARRAY 0 0 0 0 32 32 64 GL_RGBA GL_UNSIGNED_BYTE ptr
     textureFilter Texture2DArray $= ((Linear',Just Linear') , Linear')
@@ -93,4 +94,4 @@ tilesToLine n w = concat . concat . transpose . chunksOf n . chunksOf w
 addUniforms :: [String] -> FullShader -> IO FullShader
 addUniforms uniStrings shad = do
     uniLocs <- mapM (uniformLocation $ _shadProg shad) uniStrings
-    return $ shad & shadUnis %~ (++ uniLocs)
+    return $ shad & shadUnis %~ (V.++ V.fromList uniLocs)