Scroll using SDL's viewport

Horizontal needs testing.

1 files changed, 6 insertions, 4 deletions

diff --git a/src/Game.hs b/src/Game.hs
index 85445b8..8f921e9 100644
--- a/src/Game.hs
+++ b/src/Game.hs
@@ -180,16 +180,18 @@ gameLoop = do
           map' = env.map
           entities = env.entities
           hud = env.hud
-          mapRect = U.rect 0 (fromIntegral gameHeight - M.height map') (fromIntegral gameWidth) (M.height map')
 
       updated <- E.updateAll =<< readIORef entities
       entities $= updated
 
+      -- update the map viewport
+      let (px, py) = E.playerPosition updated
+
       -- render map and entities
       void $ do
-        SDL.rendererViewport renderer $= Just mapRect
-        M.render renderer map'
-        E.render renderer updated
+        viewport <- M.viewport renderer map' px py (fromIntegral gameWidth) (fromIntegral gameHeight - H.height)
+        M.render renderer map' viewport
+        E.renderVisible renderer updated viewport
         SDL.rendererViewport renderer $= Nothing
         H.render renderer hud