From 9b04633e09a80d33456f545baf1fa910f0986db7 Mon Sep 17 00:00:00 2001
From: "Juan J. Martinez" <jjm@usebox.net>
Date: Sun, 26 Feb 2023 00:26:54 +0000
Subject: Draw the HUB on the top of the screen

---
 src/Game.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/Game.hs')

diff --git a/src/Game.hs b/src/Game.hs
index a1f0e2a..85445b8 100644
--- a/src/Game.hs
+++ b/src/Game.hs
@@ -180,15 +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
 
       -- render map and entities
       void $ do
+        SDL.rendererViewport renderer $= Just mapRect
         M.render renderer map'
-        H.render renderer hud
         E.render renderer updated
+        SDL.rendererViewport renderer $= Nothing
+        H.render renderer hud
 
     gameOverLoop :: Env -> IO ()
     gameOverLoop env = do
-- 
cgit v1.2.3