Draw circles without using a geometry shader, layer offset broken

src/Shader.hs

@@ -13,13 +13,16 @@ drawShaderLay l countsVector shadIn fs = do
     i <- UMV.read countsVector shadIn
     glUseProgram (_shaderUINT $ fst fs)
     glBindVertexArray $ fs ^. _1 . shaderVAO . unVAO
+    glUniform1i 0 . fromIntegral $ (l * numSubElements)
     glDrawArrays
         GL_TRIANGLES
         (fromIntegral $ l * numSubElements)
+        --(drawCountMod shadIn i)
         (drawCountMod shadIn i)
         --(fromIntegral i)
 
 drawCountMod :: Int -> Int -> GLsizei
 drawCountMod i n
-    | i == 3 = fromIntegral n  -- modifies ellipse draw count
+--    | i == 3 = fromIntegral $ 2 * n  -- modifies ellipse draw count
+    | i == 3 = fromIntegral $ 2 * n  -- modifies ellipse draw count
     | otherwise = fromIntegral n