From: xolatile <xolatile@proton.me>
Date: Tue, 23 Apr 2024 12:59:03 +0000 (-0400)
Subject: Window example and texture...
X-Git-Url: https://git.xolatile.top/?a=commitdiff_plain;h=fba5a579897a9ce35d452a6ca0352aff04b3880d;p=xolatile-raylib-ada.git

Window example and texture...
---

diff --git a/example/resource/texture.png b/example/resource/texture.png
new file mode 100644
index 0000000..e9b69e9
Binary files /dev/null and b/example/resource/texture.png differ
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;