Remove bottom and mid layer pictures

src/Picture/Data.hs

@@ -20,9 +20,9 @@ data Verx = Verx
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data Layer
-    = BottomLayer
+--    = BottomLayer
-    | MidLayer
+--    | MidLayer
-    | BloomLayer
+    = BloomLayer
     | BloomNoZWrite
     | DebugLayer
     | FixedCoordLayer

src/Shader/Bind.hs

@@ -4,6 +4,7 @@ module Shader.Bind (
     bufferEBO,
 ) where
 
+import Picture.Data
 import Control.Lens
 import Control.Monad.Primitive
 import qualified Data.Vector.Fusion.Stream.Monadic as VFSM
@@ -38,10 +39,11 @@ bufferShaderLayers shads counts = MV.imapM_ f shads
     f i shad = do
         let theVBO = snd shad
             stride = _vboVertexBytes theVBO `div` floatSize
-        VFSM.mapM_ (g stride theVBO) $ VFSM.enumFromStepN 0 1 6 -- [0..5]
+        --VFSM.mapM_ (g stride theVBO) $ VFSM.enumFromStepN 0 1 6 -- [0..5]
+        VFSM.mapM_ (g stride theVBO) $ VFSM.enumFromStepN 0 1 numLayers -- [0..5]
       where
         g stride theVBO lay = do
-            numVs <- UMV.unsafeRead counts $ lay * 6 + i
+            numVs <- UMV.unsafeRead counts $ lay * numLayers + i
             glNamedBufferSubDataH
                 (_vboName theVBO)
                 (fromIntegral $ floatSize * stride * numSubElements * lay)