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 ++++-
 src/Game/Hud.hs | 4 ++--
 src/Game/Map.hs | 4 ++++
 3 files changed, 10 insertions(+), 3 deletions(-)

(limited to 'src')

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
diff --git a/src/Game/Hud.hs b/src/Game/Hud.hs
index dd72bb3..1e51993 100644
--- a/src/Game/Hud.hs
+++ b/src/Game/Hud.hs
@@ -19,6 +19,6 @@ render :: SDL.Renderer -> Hud -> IO ()
 render renderer hud = do
   state <- readIORef hud.stateRef
   let xs = [0 .. state.totalBatteries - 1]
-   in mapM_ (\x -> S.render renderer hud.sprite (4 + x * 8) 178 0 (if state.batteries <= x then 0 else 1)) xs
+   in mapM_ (\x -> S.render renderer hud.sprite (4 + x * 8) 4 0 (if state.batteries <= x then 0 else 1)) xs
   let xs = [0 .. state.totalLives - 1]
-   in mapM_ (\x -> S.render renderer hud.sprite (320 - 4 - state.totalLives * 8 + x * 8) 178 0 (if state.lives <= x then 2 else 3)) xs
+   in mapM_ (\x -> S.render renderer hud.sprite (320 - 4 - state.totalLives * 8 + x * 8) 4 0 (if state.lives <= x then 2 else 3)) xs
diff --git a/src/Game/Map.hs b/src/Game/Map.hs
index 47dc31c..e1dd673 100644
--- a/src/Game/Map.hs
+++ b/src/Game/Map.hs
@@ -2,6 +2,7 @@ module Game.Map
   ( Map (..),
     Object (..),
     objects,
+    height,
     totalBatteries,
     load,
     render,
@@ -154,6 +155,9 @@ isPlayer :: Object -> Bool
 isPlayer (PlayerEntity _ _) = True
 isPlayer _ = False
 
+height :: Map -> Int
+height (Map md _) = md.height * md.tileset.height
+
 -- | Return the number of batteries in a map.
 totalBatteries :: Map -> Int
 totalBatteries m = length $ filter isBattery (objects m)
-- 
cgit v1.2.3