example/texture.adb


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

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;