Implement slowed down aim turning

2023-01-08 11:10:42 +00:00
parent 44bb6e7e02
commit 05d081497d
11 changed files with 46 additions and 26 deletions
@@ -335,7 +335,12 @@ menuWheelStep i u = fromMaybe u $ do
 --  where
 --    y = w ^. input . scrollAmount
 updateWheelEvents :: World -> World
-updateWheelEvents w = updateWheelEvent (w ^. input . scrollAmount) w
+updateWheelEvents w 
+    | yi == 0 = w
+    | otherwise = updateWheelEvent yi w
+  where
+    yi = w ^. input . scrollAmount
+

 advanceScrollAmount :: Universe -> Universe
 advanceScrollAmount u =