Improve shadows for static walls

2021-03-05 13:40:34 +01:00
parent e4c51bc47a
commit 5f8b5881e5
8 changed files with 62 additions and 34 deletions
@@ -96,8 +96,8 @@ doLoop setup window startWorld
            endSimTicks <- ticks
            performGC
            endLoopTicks <- ticks -- it might be better to use System.Clock (monotonic)
-            let delay = max 0 (10 + fromIntegral startLoopTicks - fromIntegral endLoopTicks)
-            threadDelay (delay * 1000)
+            let delay = max 0 (20 + fromIntegral startLoopTicks - fromIntegral endLoopTicks)
+            threadDelay (delay * 1000 )
            endTime <- ticks
            let newNewParams = newParams & idleTime +~ (endTime - endLoopTicks)
                                         & gcTime +~ (endLoopTicks - endSimTicks)