Work on mouse wheel scrolling

2022-10-25 22:59:01 +01:00
parent 86a9ab7582
commit 4ffd361f11
15 changed files with 143 additions and 57 deletions
@@ -22,6 +22,8 @@ defaultWorld =
        , _keys = S.empty
        , _mouseButtons = mempty
        , _mousePos = V2 0 0
+        , _scrollAmount = 0
+        , _previousScrollAmount = 0
        , _hammers = defaultWorldHammers
        , _testFloat = 0
        , _lrLine = (0, 0)
@@ -133,7 +135,8 @@ defaultCWTime =
    CWTime
        { _worldClock = 0
        , _maybeWorld = Nothing'
-        , _rewindWorlds = []
+        , _pastWorlds = []
+        , _pastWorldsNum = 0
        , _futureWorlds = []
        , _deathDelay = Nothing
        }