test.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

with Text_IO; use Text_IO;
with Raylib; use Raylib;
with Interfaces.C; use Interfaces.C;
with Ada.Unchecked_Conversion;

function Test return Integer is
    Sample: Sound;
begin
    Init_Window(800, 600, To_C("Test"));
    Init_Audio_Device;
    Sample := Load_Sound(To_C("assets/footsteps/boots/1.ogg"));
    Play_Sound(Sample);
    while not Window_Should_Close loop
        Begin_Drawing;
        End_Drawing;
    end loop;
    Close_Window;
    return 0;
end;