From 2eafb4d3234dde2e53a099820475fc9ca8e481d4 Mon Sep 17 00:00:00 2001
From: xolatile
Date: Tue, 23 Apr 2024 11:44:25 -0400
Subject: Preview example and font...

---
 example/preview.adb          |  24 ++++++++++++++++++++++++
 example/resource/alagard.png | Bin 0 -> 49037 bytes
 example/texture.adb          |  18 ------------------
 3 files changed, 24 insertions(+), 18 deletions(-)
 create mode 100644 example/preview.adb
 create mode 100644 example/resource/alagard.png
 delete mode 100644 example/texture.adb

(limited to 'example')

diff --git a/example/preview.adb b/example/preview.adb
new file mode 100644
index 0000000..5836ebe
--- /dev/null
+++ b/example/preview.adb
@@ -0,0 +1,24 @@
+with Raylib;
+use  Raylib;
+
+procedure Preview is
+
+   Map : Texture := No_Texture;
+
+begin
+   Open_Window (1280, 720, "Pandemos Empire" & ASCII.NUL);
+   --
+   Map := Load_Texture ("./example/resource/pandemos.png" & ASCII.NUL);
+   --
+   Main_Loop: loop
+      exit when Window_Should_Close;
+      --
+      Begin_Drawing;
+      Draw_Texture (Map);
+      End_Drawing;
+   end loop Main_Loop;
+   --
+   Unload_Texture (Map);
+   --
+   Close_Window;
+end Preview;
diff --git a/example/resource/alagard.png b/example/resource/alagard.png
new file mode 100644
index 0000000..9b31826
Binary files /dev/null and b/example/resource/alagard.png differ
diff --git a/example/texture.adb b/example/texture.adb
deleted file mode 100644
index c4fa5e2..0000000
--- a/example/texture.adb
+++ /dev/null
@@ -1,18 +0,0 @@
-with Raylib;
-use  Raylib;
-
-procedure Window is
-
-begin
-   Open_Window (1280, 720, "Pandemos Empire" & ASCII.NUL);
-   --
-   Main_Loop: loop
-      exit when Window_Should_Close;
-      --
-      Begin_Drawing;
-      Clear_Background;
-      End_Drawing;
-   end loop Main_Loop;
-   --
-   Close_Window;
-end Window;
-- 
cgit v1.2.3