Use FIFO for vulkan demo (#188)

haskell-game · Sep 4, 2023 · eec8b57 · eec8b57
1 parent d40fa4f
commit eec8b57
Showing 1 changed file with 3 additions and 5 deletions.
diff --git a/examples/vulkan/Backend.hs b/examples/vulkan/Backend.hs
@@ -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