raylib-ada/example/generation.adb

with Raylib;
use  Raylib;

procedure Generation is

   type Texture_Index is (
      Archery,
      Barracks,
      Blacksmith,
      Castle,
      House_1,
      House_2,
      House_3,
      Stable,
      Terrain,
      Tree_1,
      Tree_2,
      Tree_3
   );

   Texture_Array : array (Texture_Index) of Texture;

   Tile_Size : Natural := 64; -- Texture_Array (Terrain).Height/Width

begin
   Open_Window (1280, 720, "Demo 1440 <Q to Quit>" & ASCII.NUL);
   --
   Set_Exit_Key (Key_Q);
   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;
   --
   loop exit when Window_Should_Close;
      Begin_Drawing;
      --
      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 * Tile_Size,
                          Y    => Y * Tile_Size);
         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 loop
      Unload_Texture (Texture_Array (I));
   end loop;
   --
   Close_Window;
end Generation;