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/Map.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/Game/Map.hs')

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