|
|
@@ -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; |