Window example and texture...
This commit is contained in:
parent
f05a1e26cd
commit
fba5a57989
BIN
example/resource/texture.png
Normal file
BIN
example/resource/texture.png
Normal file
Binary file not shown.
After Width: | Height: | Size: 212 KiB |
19
example/window.adb
Normal file
19
example/window.adb
Normal 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;
|
Loading…
Reference in New Issue
Block a user