Mapper, ARHUD, radar sweeps update. Add dropper items

2025-01-03 10:43:06 +00:00
parent e9f5a39ed7
commit 386d6f47b0
27 changed files with 802 additions and 700 deletions
@@ -1,4 +1,8 @@
-module Dodge.SmoothScroll where
+module Dodge.SmoothScroll (
+    getSmoothScrollValue,
+    calcSmoothScroll,
+    advanceSmoothScroll,
+) where

 import Control.Lens
 import Dodge.Data.Input
@@ -33,5 +37,5 @@ advanceSmoothScroll y
    | y > 0 = y - 1
    | y == 0 = 0
    | y > (-10) = y + 1
-    | y > (-20) = y+2
-    | otherwise = y+3
+    | y > (-20) = y + 2
+    | otherwise = y + 3