Initial bindings and window example...

1 files changed, 22 insertions, 0 deletions

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;