blob: 2cdea691d3e0bfeb06abbba981b4833aef0f358d (
plain)
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
with Ada.Text_IO;
use Ada.Text_IO;
with Graphics;
use Graphics;
with SDL;
with SDL.Timers;
with SDL.Events;
with SDL.Events.Events;
with SDL.Video.Windows;
with SDL.Video.Windows.Makers;
with SDL.Video.Renderers;
with SDL.Video.Renderers.Makers;
package body Graphics is
procedure Init(state: out T_State) is
begin
if not SDL.Initialise then
Put("Error");
end if;
SDL.Video.Windows.Makers.Create(state.window, WINDOW_TITLE, WINDOW_X, WINDOW_Y,
WINDOW_WIDTH, WINDOW_HEIGHT);
SDL.Video.Renderers.Makers.Create(state.renderer, state.window);
state.running := true;
end Init;
procedure Quit(state: T_State) is
begin
SDL.Finalise;
end Quit;
procedure Run(state: in out T_State) is
begin
while state.running loop
Event_Handler(state);
Update(state);
SDL.Timers.Wait_Delay(3);
end loop;
end Run;
procedure Event_Handler(state: in out T_State) is
event: SDL.Events.Events.Events;
begin
while SDL.Events.Events.Poll(event) loop
case event.common.event_type is
when SDL.Events.Quit => state.running := false;
when others => null;
end case;
end loop;
null;
end Event_Handler;
procedure Update(state: T_State) is
begin
null;
end Update;
end Graphics;
|
