From 2d12d1d81986d1451261b5393615a5af015e1468 Mon Sep 17 00:00:00 2001
From: xolatile
Date: Mon, 18 Mar 2024 08:06:11 -0400
Subject: Initial bindings and window example...

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

(limited to 'window.adb')

diff --git a/window.adb b/window.adb
new file mode 100644
index 0000000..f50781c
--- /dev/null
+++ b/window.adb
@@ -0,0 +1,22 @@
+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 (Blue);
+		--
+		End_Drawing;
+	end loop Main_Loop;
+
+	Close_Window;
+
+end Window;
-- 
cgit v1.2.3