some more cleaning

This commit is contained in:
nek0 2023-04-29 19:54:52 +02:00
parent 1844775cd0
commit bd578e1d98

View file

@ -178,7 +178,7 @@ recordCommandBuffer
commandBuffer
renderPass
frameBuffer
(V2 width height)
dimensions@(V2 width height)
graphicsPipeline
frame
= do
@ -212,7 +212,7 @@ recordCommandBuffer
Vk.cmdUseRenderPass commandBuffer renderPassInfo Vk.SUBPASS_CONTENTS_INLINE $ do
liftIO $
prepareRecording width height commandBuffer graphicsPipeline
prepareRecording dimensions commandBuffer graphicsPipeline
renderObjects <- (liftIO . STM.atomically . STM.readTMVar) =<< asks renderables
meshMap <- (liftIO . STM.atomically . STM.readTMVar) =<< asks meshLibrary
@ -271,12 +271,11 @@ recordCommandBuffer
)
prepareRecording
:: CInt
-> CInt
:: V2 CInt
-> Vk.CommandBuffer
-> Vk.Pipeline
-> IO ()
prepareRecording width height commandBuffer graphicsPipeline = do
prepareRecording (V2 width height) commandBuffer graphicsPipeline = do
Vk.cmdBindPipeline commandBuffer Vk.PIPELINE_BIND_POINT_GRAPHICS graphicsPipeline
let viewport = Vk.zero