diff --git a/src/CommandBuffer.hs b/src/CommandBuffer.hs index 17b7234..fd72d13 100644 --- a/src/CommandBuffer.hs +++ b/src/CommandBuffer.hs @@ -28,7 +28,7 @@ frameOverlap :: Int frameOverlap = 2 maxObjects :: Int -maxObjects = 10000 +maxObjects = 10 ^ 6 createFrames :: (MonadResource m, MonadFail m) diff --git a/src/Init.hs b/src/Init.hs index 497bbbc..8be1fa8 100644 --- a/src/Init.hs +++ b/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