19 lines
306 B
Ada
19 lines
306 B
Ada
|
with Raylib;
|
||
|
|
use Raylib;
|
||
|
|
|
||
|
|
procedure Window is
|
||
|
|
|
||
|
|
begin
|
||
|
|
Open_Window (1280, 720, "Pandemos Empire" & ASCII.NUL);
|
||
|
|
--
|
||
|
|
Main_Loop: loop
|
||
|
|
exit when Window_Should_Close;
|
||
|
|
--
|
||
|
|
Begin_Drawing;
|
||
|
|
Clear_Background;
|
||
|
|
End_Drawing;
|
||
|
|
end loop Main_Loop;
|
||
|
|
--
|
||
|
|
Close_Window;
|
||
|
|
end Window;
|