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
|
with Ada.Text_IO;
use Ada.Text_IO;
with Graphics;
use Graphics;
with Queue;
with Game;
procedure Main is
state: T_State;
begin
-- SDL.Initialise;
-- Create(window, "bonjour", 10, 10, 400, 400);
-- Create(renderer, window);
-- Set_Draw_Colour(renderer, (0, 0, 0, 255));
-- Clear(renderer);
-- Set_Draw_Colour(renderer, (255, 255, 255, 255));
-- r := (10, 10, 100, 100);
-- Fill(renderer, r);
-- Present(renderer);
-- SDL.Timers.Wait_Delay(1000);
-- SDL.Finalise;
--
Init(state);
Run(state);
Quit(state);
end Main;
|
