Window example and texture...

This commit is contained in:
Ognjen Milan Robovic 2024-04-23 08:59:03 -04:00
parent f05a1e26cd
commit fba5a57989
2 changed files with 19 additions and 0 deletions

Binary file not shown.

After

Width:  |  Height:  |  Size: 212 KiB

19
example/window.adb Normal file
View File

@ -0,0 +1,19 @@
with Raylib;
use Raylib;
procedure Window is
begin
Open_Window (720, 360, "Heyo Raylib!" & Character'Val (0));
--
Main_Loop: loop
exit when Window_Should_Close;
--
Begin_Drawing;
Clear_Background (Ray_White);
Draw_Text ("Heyo Raylib, greetings from Ada!" & Character'Val (0), 4, 4, 32, Black);
Draw_Text ("Press Escape key to exit program." & Character'Val (0), 4, 36, 32, Black);
End_Drawing;
end loop Main_Loop;
--
Close_Window;
end Window;