Basic Graphics (bindings are working! game/graphics/queue packages draft

1 files changed, 26 insertions, 1 deletions

diff --git a/main.adb b/main.adb
index 4105856..e1e9d78 100644
--- a/main.adb
+++ b/main.adb
@@ -2,10 +2,35 @@ with Ada.Text_IO;
 use  Ada.Text_IO;
 
 with SDL;
+with SDL.Error;
+with SDL.Video.Renderers;
+with SDL.Video.Windows;
+
+with SDL.Timers;
+
+with SDL.Video.Windows.Makers;
+use  SDL.Video.Windows.Makers;
+
+with SDL.Video.Renderers.Makers;
+use  SDL.Video.Renderers.Makers;
+
 
 procedure Main is
+	window:   SDL.Video.Windows.Window;
+	renderer: SDL.Video.Renderers.Renderer;
 begin
 	if not SDL.Initialise then
-		Put("Error");
+		Put(SDL.Error.Get);
+		return;
 	end if;
+
+	Create(window, "bonjour", 10, 10, 400, 400);
+	Create(renderer, window);
+
+	SDL.Timers.Wait_Delay(1000);
+
+
+
+
+	SDL.Finalise;
 end Main;