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
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
|
with Ada.Text_IO;
use Ada.Text_IO;
with SDL;
with SDL.Timers;
with SDL.Video.Rectangles;
with SDL.Events;
with SDL.Events.Events;
with SDL.Events.Keyboards;
with SDL.Video.Windows;
with SDL.Video.Windows.Makers;
with SDL.Video.Renderers;
with SDL.Video.Renderers.Makers;
use SDL.Video;
with Interfaces.C;
use Interfaces.C;
package body Graphics is
use P_Position_Queue;
procedure Init(state: out T_State) is
begin
if not SDL.Initialise then
Put("Error");
end if;
Windows.Makers.Create(state.window, WINDOW_TITLE, WINDOW_X, WINDOW_Y,
WINDOW_WIDTH, WINDOW_HEIGHT);
Renderers.Makers.Create(state.renderer, state.window);
state.running := true;
Init(state.game, 10, 10);
end Init;
procedure Quit(state: T_State) is
begin
SDL.Finalise;
end Quit;
procedure Run(state: in out T_State) is
use SDL.Timers;
last_time: SDL.Timers.Milliseconds := SDL.Timers.Ticks;
current_time: SDL.Timers.Milliseconds;
begin
Update(state);
while state.running loop
current_time := SDL.Timers.Ticks;
Event_Handler(state);
if current_time >= last_time then
last_time := current_time + TIME_STEP;
state.running := Next(state.game);
Update(state);
end if;
SDL.Timers.Wait_Delay(3);
end loop;
end Run;
procedure Event_Handler(state: in out T_State) is
use SDL.Events.Keyboards;
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 SDL.Events.Keyboards.Key_Down =>
case event.keyboard.key_sym.scan_code is
when Scan_Code_Escape => state.running := false;
when Scan_Code_Up =>
Change_Direction(state.game, DIRECTION_UP);
when Scan_Code_Down =>
Change_Direction(state.game, DIRECTION_DOWN);
when Scan_Code_Left =>
Change_Direction(state.game, DIRECTION_LEFT);
when Scan_Code_Right =>
Change_Direction(state.game, DIRECTION_RIGHT);
when others => null;
end case;
when others => null;
end case;
end loop;
null;
end Event_Handler;
procedure Update(state: in out T_State) is
cursor: T_List := state.game.snake.front;
begin
Renderers.Set_Draw_Colour(state.renderer, COLOR_BLACK);
Renderers.Clear(state.renderer);
Renderers.Set_Draw_Colour(state.renderer, COLOR_GREEN);
while cursor /= null loop
Draw_Square(state, cursor.all.data);
cursor := cursor.all.next;
end loop;
Renderers.Set_Draw_Colour(state.renderer, COLOR_RED);
Draw_Square(state, state.game.food);
Renderers.Present(state.renderer);
end Update;
procedure Draw_Square(state: in out T_State;
pos: T_Position) is
rect: Rectangles.Rectangle;
begin
rect := ((C.int(pos.x) - 1) * 20, (C.int(pos.y) - 1) * 20, 20, 20);
Renderers.Fill(state.renderer, rect);
end Draw_Square;
end Graphics;
|
