diff options
Diffstat (limited to 'test.adb')
-rw-r--r-- | test.adb | 18 |
1 files changed, 2 insertions, 16 deletions
@@ -1,19 +1,5 @@ -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; + null; + return 69; end; |