Work on mouse wheel scrolling

src/Dodge/Data/World.hs

@@ -34,6 +34,8 @@ data World = World
     , _mousePos :: Point2
     , _keys :: S.Set Scancode
     , _mouseButtons :: M.Map MouseButton Bool
+    , _scrollAmount         :: Int
+    , _previousScrollAmount :: Int
     , _hammers :: M.Map WorldHammer HammerPosition
     , _testFloat :: Float
     , _lLine :: (Point2, Point2)
@@ -53,6 +55,7 @@ data TimeFlowStatus
     | RewindingLastFrame
     | NormalTimeFlow
     | ScrollTimeFlow
+        { _scrollSmoothing :: Int }
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data WorldHammer
@@ -62,7 +65,8 @@ data WorldHammer
 
 data CWTime = CWTime
     { _maybeWorld :: Maybe' CWorld
-    , _rewindWorlds :: [CWorld]
+    , _pastWorlds :: [CWorld]
+    , _pastWorldsNum :: Int
     , _futureWorlds :: [CWorld]
     , _worldClock :: Int
     , _deathDelay :: Maybe Int
@@ -70,3 +74,4 @@ data CWTime = CWTime
 
 makeLenses ''World
 makeLenses ''CWTime
+makeLenses ''TimeFlowStatus