let's try upping the numbers

src/CommandBuffer.hs

@@ -28,7 +28,7 @@ frameOverlap :: Int
 frameOverlap = 2
 
 maxObjects :: Int
-maxObjects = 10000
+maxObjects = 10 ^ 6
 
 createFrames
   :: (MonadResource m, MonadFail m)

src/Init.hs

@@ -218,9 +218,9 @@ initScene device descriptorPool texturedSetLayout = do
                   , objectMatrix   = translationMatrix !*! scaleMatrix
                   }
               )
-            (V.fromList [-20 .. 20])
+            (V.fromList [-100 .. 100])
           )
-        (V.fromList [-20 .. 20])
+        (V.fromList [-100 .. 100])
 
   renderableContainer <- asks renderables
   renderableVector <- liftIO $ STM.atomically $ STM.readTMVar renderableContainer