Add general smooth scrolling, move camera into world

src/Dodge/Data/Input.hs

@@ -23,6 +23,7 @@ data Input = Input
     , _mouseButtons :: M.Map MouseButton Int -- counts number of frames held down
     , _scrollAmount :: Int
     , _previousScrollAmount :: Int
+    , _smoothScrollAmount :: Int
     , _lLine :: (Point2, Point2)
     , _rLine :: (Point2, Point2)
     , _lrLine :: (Point2, Point2)
@@ -31,7 +32,7 @@ data Input = Input
     , _clickMousePos :: Point2  -- is this in world or screen coords?
     , _clickPos :: M.Map MouseButton Point2 -- updates when mouse button is pressed
     , _heldPos :: M.Map MouseButton Point2 -- updates when mouse button is held
-            -- ideally, lags ONE FRAME BEHIND the stored mouse position
+            -- lags ONE FRAME BEHIND the stored mouse position
     , _textInput :: [Either TermSignal Char]
     , _scrollTestFloat :: Float
     , _scrollTestInt :: Int