From 396c80a13928859ce3d447ec84226b297dfaa3ce Mon Sep 17 00:00:00 2001 From: rexim Date: Sun, 24 Mar 2024 00:42:33 +0700 Subject: Icon for Windows Build --- test.adb | 18 ++---------------- 1 file changed, 2 insertions(+), 16 deletions(-) (limited to 'test.adb') diff --git a/test.adb b/test.adb index 4b994ba..411b84c 100644 --- a/test.adb +++ b/test.adb @@ -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; -- cgit v1.2.3