Commit before removing geometry shader from ellipses

src/Shader.hs

@@ -14,6 +14,12 @@ drawShaderLay l countsVector shadIn fs = do
     glUseProgram (_shaderUINT $ fst fs)
     glBindVertexArray $ fs ^. _1 . shaderVAO . unVAO
     glDrawArrays
-        (_unPrimitiveMode $ _shaderPrimitive $ fst fs)
+        GL_TRIANGLES
         (fromIntegral $ l * numSubElements)
-        (fromIntegral i)
+        (drawCountMod shadIn i)
+        --(fromIntegral i)
+
+drawCountMod :: Int -> Int -> GLsizei
+drawCountMod i n
+    | i == 3 = fromIntegral n  -- modifies ellipse draw count
+    | otherwise = fromIntegral n