|
|
@@ -20,8 +20,10 @@ procedure Generation is |
|
|
|
|
|
|
|
Texture_Array : array (Texture_Index) of Texture; |
|
|
|
|
|
|
|
Tile_Size : Natural := 64; -- Texture_Array (Terrain).Height/Width |
|
|
|
|
|
|
|
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_Target_FPS (1); |
|
|
@@ -36,11 +38,11 @@ begin |
|
|
|
loop exit when Window_Should_Close; |
|
|
|
Begin_Drawing; |
|
|
|
-- |
|
|
|
for Y in 0 .. Get_Screen_Height / Texture_Array (Terrain).Height loop |
|
|
|
for X in 0 .. Get_Screen_Width / Texture_Array (Terrain).Width loop |
|
|
|
for Y in 0 .. Get_Screen_Height / Tile_Size loop |
|
|
|
for X in 0 .. Get_Screen_Width / Tile_Size loop |
|
|
|
Draw_Texture (Data => Texture_Array (Terrain), |
|
|
|
X => X * Texture_Array (Terrain).Width, |
|
|
|
Y => Y * Texture_Array (Terrain).Height); |
|
|
|
X => X * Tile_Size, |
|
|
|
Y => Y * Tile_Size); |
|
|
|
end loop; |
|
|
|
end loop; |
|
|
|
-- |
|
|
|