Update to generation...

diff --git a/example/generation.adb b/example/generation.adb
index 0c36181f5ec91442f38319dbab6aa06764289463..6dbeb82f49a55f235567b1cf11a98d4b016adf31 100644 (file)
--- 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;
       --