24 lines
418 B
Ada
24 lines
418 B
Ada
with Raylib;
|
|
use Raylib;
|
|
|
|
procedure Preview is
|
|
|
|
Map : Texture := No_Texture;
|
|
|
|
begin
|
|
Open_Window (1280, 720, "Pandemos Empire" & ASCII.NUL);
|
|
--
|
|
Map := Load_Texture ("./example/resource/pandemos.png" & ASCII.NUL);
|
|
--
|
|
while not Window_Should_Close
|
|
loop
|
|
Begin_Drawing;
|
|
Draw_Texture (Map);
|
|
End_Drawing;
|
|
end loop;
|
|
--
|
|
Unload_Texture (Map);
|
|
--
|
|
Close_Window;
|
|
end Preview;
|