From ebd9faf5dd21247c1b3f7acdf4e910ffdf32bc37 Mon Sep 17 00:00:00 2001
From: xolatile <xolatile@proton.me>
Date: Tue, 23 Apr 2024 12:15:11 -0400
Subject: [PATCH] New generation example...

---
 compile.sh             |  5 +++++
 example/generation.adb | 51 ++++++++++++++++++++++++++++++++++++++++++++++++++
 example/preview.adb    |  5 ++---
 3 files changed, 58 insertions(+), 3 deletions(-)
 create mode 100644 example/generation.adb

diff --git a/compile.sh b/compile.sh
index c88d79a..e130bef 100644
--- a/compile.sh
+++ b/compile.sh
@@ -12,7 +12,12 @@ gnatmake -c preview.adb
 gnatbind preview.ali
 gnatlink preview.ali -lraylib
 
+gnatmake -c generation.adb
+gnatbind generation.ali
+gnatlink generation.ali -lraylib
+
 mv window ../window
 mv preview ../preview
+mv preview ../generation
 
 exit
diff --git a/example/generation.adb b/example/generation.adb
new file mode 100644
index 0000000..a3ed893
--- /dev/null
+++ b/example/generation.adb
@@ -0,0 +1,51 @@
+with Raylib;
+use  Raylib;
+
+procedure Preview is
+
+   type Texture_Index is (
+      Archery,
+      Barracks,
+      Blacksmith,
+      Castle,
+      House_1,
+      House_2,
+      House_3,
+      Stable,
+      Terrain,
+      Tree_1,
+      Tree_2,
+      Tree_3
+   );
+
+   Texture_Array : array (Texture_Index) of Texture;
+
+begin
+   Open_Window (1280, 720, "Pandemos Empire" & ASCII.NUL);
+   --
+   for I in Texture_Index
+   loop
+      Texture_Array (I) := Load_Texture ("./example/resource/"
+                                        & Texture_Index'Image (I)
+                                        & ".png"
+                                        & ASCII.NUL);
+   end loop;
+   --
+   until Window_Should_Close
+   loop
+      Begin_Drawing;
+      for Y in 0 .. Get_Screen_Height / Terrain.Height - 2
+         for X in 0 .. Get_Screen_Width / Terrain.Width - 2
+            Draw_Texture (Data => Texture_Array (Terrain),
+                          X    => X * Terrain.Width,
+                          Y    => Y * Terrain.Height);
+      End_Drawing;
+   end loop;
+   --
+   for I in Texture_Index
+   loop
+      Unload_Texture (Texture_Array (I));
+   end loop;
+   --
+   Close_Window;
+end Preview;
diff --git a/example/preview.adb b/example/preview.adb
index 5836ebe..0713ad0 100644
--- a/example/preview.adb
+++ b/example/preview.adb
@@ -10,9 +10,8 @@ begin
    --
    Map := Load_Texture ("./example/resource/pandemos.png" & ASCII.NUL);
    --
-   Main_Loop: loop
-      exit when Window_Should_Close;
-      --
+   while not Window_Should_Close
+   loop
       Begin_Drawing;
       Draw_Texture (Map);
       End_Drawing;