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

7 files changed, 64 insertions, 1 deletions

diff --git a/game.adb b/game.adb
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/game.adb
diff --git a/game.ads b/game.ads
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/game.ads
diff --git a/graphics.adb b/graphics.adb
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/graphics.adb
diff --git a/graphics.ads b/graphics.ads
new file mode 100644
index 0000000..78a4542
--- /dev/null
+++ b/graphics.ads
@@ -0,0 +1,17 @@
+with SDL;
+
+with Game;
+
+
+package Graphics is
+
+	type T_State is record
+		running:  Boolean;
+		window:   SDL.Window;
+		renderer: SDL.Renderer;
+		game:     T_Game;
+	end record;
+
+	procedure EventHandler(
+
+end Graphics;
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;
diff --git a/queue.adb b/queue.adb
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/queue.adb
diff --git a/queue.ads b/queue.ads
new file mode 100644
index 0000000..e0da54c
--- /dev/null
+++ b/queue.ads
@@ -0,0 +1,21 @@
+generic
+	type T_Data is limited private;
+package Queue is
+
+	type T_Queue is record
+		front: T_List;
+		back:  T_List;
+	end record;
+
+	type T_List_Cell;
+	type T_List is access T_List_Cell;
+	type T_List_Cell is record
+		data: T_Data;
+		next: T_List;
+	end record;
+
+	procedure Enqueue(queue: T_Queue;
+		              data: T_Data);
+	procedure Dequeue(queue: T_Queue);
+
+end Queue;