From 9b47ade2394becce870d195f198c235b3275ed34 Mon Sep 17 00:00:00 2001 From: Charles Date: Sat, 7 Dec 2019 11:22:54 +0100 Subject: Basic Graphics (bindings are working! game/graphics/queue packages draft --- main.adb | 27 ++++++++++++++++++++++++++- 1 file changed, 26 insertions(+), 1 deletion(-) (limited to 'main.adb') 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; -- cgit