Use FIFO for vulkan demo (#188)

This commit is contained in:
Alexander Bondarenko 2023-09-04 13:10:10 +03:00 committed by GitHub
parent d40fa4f6db
commit eec8b57ce8
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23

View File

@ -408,11 +408,9 @@ createSwapchain physicalDevice device surface surfaceFormat imageUsage imageCoun
let
presentMode :: Vulkan.PresentModeKHR
presentMode
| Vulkan.PRESENT_MODE_MAILBOX_KHR `elem` presentModes
= Vulkan.PRESENT_MODE_MAILBOX_KHR
| otherwise
= Vulkan.PRESENT_MODE_FIFO_KHR
presentMode =
Vulkan.PRESENT_MODE_FIFO_KHR -- run at presentation rate
-- Vulkan.PRESENT_MODE_MAILBOX_KHR -- max-FPS alternative for benchmarks, input lag debugging, etc.
Vulkan.SurfaceCapabilitiesKHR{currentExtent, currentTransform} = surfaceCapabilities
Vulkan.SurfaceFormatKHR{format=fmt, colorSpace=csp} = surfaceFormat