diff options
| author | xolatile | 2024-04-23 15:34:14 -0400 |
|---|---|---|
| committer | xolatile | 2024-04-23 15:34:14 -0400 |
| commit | ad15946d12814bd04473f31ec0bea650e67cf8e8 (patch) | |
| tree | e49b1b273577ff97233dbb8a3d6a380b8fcc94c4 /example/generation.adb | |
| parent | 9b449a07b780c7a86fa52c708496b0cf8d37499c (diff) | |
| download | xolatile-raylib-ada-master.tar.xz xolatile-raylib-ada-master.tar.zst | |
Diffstat (limited to 'example/generation.adb')
| -rw-r--r-- | example/generation.adb | 12 |
1 files changed, 7 insertions, 5 deletions
diff --git a/example/generation.adb b/example/generation.adb index 0c36181..6dbeb82 100644 --- a/example/generation.adb +++ b/example/generation.adb @@ -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; -- |