Broken binding of central picture in one pass

src/Shader/Parameters.hs

@@ -1,6 +1,7 @@
 module Shader.Parameters
     ( floatSize
     , numDrawableElements
+    , numSubElements
     ) where
 import Graphics.Rendering.OpenGL hiding (Point,translate,scale,imageHeight)
 import Foreign
@@ -11,5 +12,8 @@ floatSize = sizeOf (0.5 :: GLfloat)
 
 numDrawableElements :: Int
 {-# INLINE numDrawableElements #-}
-numDrawableElements = 50000
+numDrawableElements = 70000
 
+numSubElements :: Int
+{-# INLINE numSubElements #-}
+numSubElements = 10000