Drezil/dear-imgui.hs
1
0
Fork 0
mirror of https://github.com/Drezil/dear-imgui.hs.git synced 2024-11-22 08:56:59 +00:00
Code Issues Packages Projects Releases Wiki Activity

Use FIFO for vulkan demo (#188)

Browse Source
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
1 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
examples/vulkan/Backend.hs
View File

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