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;