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 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)
 create mode 100644 example/preview.adb

(limited to 'example/preview.adb')

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;
-- 
cgit v1.2.3