From 525b5641fee7154d5be1a66420ca15d54bb6f6ce Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Fri, 18 Apr 2025 20:13:41 +1200
Subject: Consolidated image data

---
 src/things.ads | 20 +++++---------------
 1 file changed, 5 insertions(+), 15 deletions(-)

(limited to 'src/things.ads')

diff --git a/src/things.ads b/src/things.ads
index 4f35b64..c594c95 100644
--- a/src/things.ads
+++ b/src/things.ads
@@ -8,9 +8,8 @@
 
 private with
 
-    Ada.Directories,
-    FLTK.Images.RGB.PNG,
-    Misc;
+    Data,
+    FLTK.Images.RGB.PNG;
 
 
 package Things is
@@ -43,20 +42,11 @@ private
     end record;
 
 
-    Man_Image      : aliased FLTK.Images.RGB.PNG.PNG_Image := FLTK.Images.RGB.PNG.Forge.Create
-        (Ada.Directories.Compose (Misc.Image_Path, "man.png"));
-    Treasure_Image : aliased FLTK.Images.RGB.PNG.PNG_Image := FLTK.Images.RGB.PNG.Forge.Create
-        (Ada.Directories.Compose (Misc.Image_Path, "treasure.png"));
+    Nothing : constant Thing := (Self_Image => null);
 
 
-    Nothing : constant Thing :=
-        (Self_Image => null);
-
-
-    Man      : constant Thing :=
-        (Self_Image => Man_Image'Access);
-    Treasure : constant Thing :=
-        (Self_Image => Treasure_Image'Access);
+    Man      : constant Thing := (Self_Image => Data.Man_Image);
+    Treasure : constant Thing := (Self_Image => Data.Treasure_Image);
 
 
 end Things;
-- 
cgit