xolatile/raylib-ada
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update to generation...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-04-23 15:34:14 -04:00
parent 9b449a07b7
commit ad15946d12
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
example/generation.adb
View File

@ -20,8 +20,10 @@ procedure Generation is
Texture_Array : array (Texture_Index) of Texture; Texture_Array : array (Texture_Index) of Texture;
Tile_Size : Natural := 64; -- Texture_Array (Terrain).Height/Width
begin begin
Open_Window (1280, 720, "Pandemos Empire" & ASCII.NUL); Open_Window (1280, 720, "Demo 1440 <Q to Quit>" & ASCII.NUL);
-- --
Set_Exit_Key (Key_Q); Set_Exit_Key (Key_Q);
Set_Target_FPS (1); Set_Target_FPS (1);
@ -36,11 +38,11 @@ begin
loop exit when Window_Should_Close; loop exit when Window_Should_Close;
Begin_Drawing; Begin_Drawing;
-- --
for Y in 0 .. Get_Screen_Height / Texture_Array (Terrain).Height loop for Y in 0 .. Get_Screen_Height / Tile_Size loop
for X in 0 .. Get_Screen_Width / Texture_Array (Terrain).Width loop for X in 0 .. Get_Screen_Width / Tile_Size loop
Draw_Texture (Data => Texture_Array (Terrain), Draw_Texture (Data => Texture_Array (Terrain),
X => X * Texture_Array (Terrain).Width, X => X * Tile_Size,
Y => Y * Texture_Array (Terrain).Height); Y => Y * Tile_Size);
end loop; end loop;
end loop; end loop;
-- --