Generation example and rescaling...

.gitignore

@@ -2,3 +2,4 @@
 *.ali
 window
 preview
+generation

compile.sh

@@ -18,6 +18,6 @@ gnatlink generation.ali -lraylib
 
 mv window ../window
 mv preview ../preview
-mv preview ../generation
+mv generation ../generation
 
 exit

example/generation.adb

@@ -1,7 +1,7 @@
 with Raylib;
 use  Raylib;
 
-procedure Preview is
+procedure Generation is
 
    type Texture_Index is (
       Archery,
@@ -23,29 +23,43 @@ procedure Preview is
 begin
    Open_Window (1280, 720, "Pandemos Empire" & ASCII.NUL);
    --
-   for I in Texture_Index
+   Set_Exit_Key (Key_Q);
-   loop
+   Set_Target_FPS (1);
+   --
+   for I in Texture_Index loop
       Texture_Array (I) := Load_Texture ("./example/resource/"
                                         & Texture_Index'Image (I)
                                         & ".png"
                                         & ASCII.NUL);
    end loop;
    --
-   until Window_Should_Close
+   loop exit when Window_Should_Close;
-   loop
       Begin_Drawing;
-      for Y in 0 .. Get_Screen_Height / Terrain.Height - 2
+      --
-         for X in 0 .. Get_Screen_Width / Terrain.Width - 2
+      for Y in 0 .. Get_Screen_Height / Texture_Array (Terrain).Height loop
+         for X in 0 .. Get_Screen_Width / Texture_Array (Terrain).Width loop
             Draw_Texture (Data => Texture_Array (Terrain),
-                          X    => X * Terrain.Width,
+                          X    => X * Texture_Array (Terrain).Width,
-                          Y    => Y * Terrain.Height);
+                          Y    => Y * Texture_Array (Terrain).Height);
+         end loop;
+      end loop;
+      --
+      for Building in Archery .. Stable loop
+         Draw_Texture (Data => Texture_Array (Building),
+                       X    => Get_Random_Value(0, Get_Screen_Width),
+                       Y    => Get_Random_Value(0, Get_Screen_Height));
+      end loop;
+      --
+      Draw_Texture (Texture_Array (Tree_1));
+      Draw_Texture (Texture_Array (Tree_2), 640, 360);
+      Draw_Texture (Texture_Array (Tree_3), 960, 360);
+      --
       End_Drawing;
    end loop;
    --
-   for I in Texture_Index
+   for I in Texture_Index loop
-   loop
       Unload_Texture (Texture_Array (I));
    end loop;
    --
    Close_Window;
-end Preview;
+end Generation;

example/preview.adb

@@ -15,7 +15,7 @@ begin
       Begin_Drawing;
       Draw_Texture (Map);
       End_Drawing;
-   end loop Main_Loop;
+   end loop;
    --
    Unload_Texture (Map);
    --