main.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36

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(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;