window.adb


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

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 (Blue);
		--
		End_Drawing;
	end loop Main_Loop;

	Close_Window;

end Window;