From fba5a579897a9ce35d452a6ca0352aff04b3880d Mon Sep 17 00:00:00 2001
From: xolatile
Date: Tue, 23 Apr 2024 08:59:03 -0400
Subject: Window example and texture...

---
 example/window.adb | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 example/window.adb

(limited to 'example/window.adb')

diff --git a/example/window.adb b/example/window.adb
new file mode 100644
index 0000000..52f6c17
--- /dev/null
+++ b/example/window.adb
@@ -0,0 +1,19 @@
+with Raylib;
+use  Raylib;
+
+procedure Window is
+begin
+	Open_Window (720, 360, "Heyo Raylib!" & Character'Val (0));
+	--
+	Main_Loop: loop
+		exit when Window_Should_Close;
+		--
+		Begin_Drawing;
+		Clear_Background (Ray_White);
+		Draw_Text ("Heyo Raylib, greetings from Ada!"  & Character'Val (0), 4,  4, 32, Black);
+		Draw_Text ("Press Escape key to exit program." & Character'Val (0), 4, 36, 32, Black);
+		End_Drawing;
+	end loop Main_Loop;
+	--
+	Close_Window;
+end Window;
-- 
cgit v1.2.3