nek0/vulkan-tutorial
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity

some more cleaning

Browse source
This commit is contained in:
nek0 2023-04-29 19:54:52 +02:00
parent 1844775cd0
commit bd578e1d98
1 changed files with 4 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
src/CommandBuffer.hs
View file

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