From 216c2b6cfcef0038823f45c2bc43d297dcff43be Mon Sep 17 00:00:00 2001
From: stuebinm
Date: Sun, 17 Oct 2021 20:39:55 +0200
Subject: add warning for very large tileset images

---
 lib/Properties.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'lib')

diff --git a/lib/Properties.hs b/lib/Properties.hs
index 877afe1..241a076 100644
--- a/lib/Properties.hs
+++ b/lib/Properties.hs
@@ -76,9 +76,10 @@ checkTileset tileset = do
 
   -- reject tilesets unsuitable for workadventure
   unless (tilesetTilewidth tileset == 32 && tilesetTileheight tileset == 32)
-    $ complain $ "Tileset " <> tilesetName tileset <> " must have tile size 32 by 32"
-
+    $ complain $ "Tileset " <> tilesetName tileset <> " must have tile size 32×32"
 
+  unless (tilesetImageheight tileset < 4096 && tilesetImagewidth tileset < 4096)
+    $ warn $ "Tileset " <> tilesetName tileset <> " should not be larger than 4096×4096 pixels in total"
 
 
 -- | Checks a single (custom) property of a layer
-- 
cgit v1.2.3