Various refactoring

src/Render.hs

@@ -131,7 +131,7 @@ drawTextureOnFramebuffer fs fbo to = do
 
 renderFoldable
     :: MV.MVector (PrimState IO) FullShader
-    -> [Verx]
+    -> Picture
     -> IO ()
 renderFoldable shadV struct = do
     counts <- UMV.replicate 6 0
@@ -140,7 +140,7 @@ renderFoldable shadV struct = do
 
 renderFoldableTimed
     :: MV.MVector (PrimState IO) FullShader
-    -> [Verx]
+    -> Picture
     -> IO Word32
 renderFoldableTimed shadV struct = do
     pokeStartTicks <- SDL.ticks