test.adb

with raylib;
with raylib.UI;
with Ada.Strings.Fixed;
with Ada.Text_IO;
with Interfaces.C.Extensions;

procedure test is
   use raylib;
   use raylib.core;

   package FS renames Ada.Strings.Fixed;
   package TIO renames Ada.Text_IO;

   FPS : constant := 30;

   padding : constant int := 10;
   font_size : constant int := 18;

   type tests is (Lines, Perspective, GUI);
   current_test : tests := Lines;
   procedure select_next_test is
   begin
      current_test := (if current_test = tests'Last
                       then tests'First
                       else tests'Succ (current_test));
   end select_next_test;

   gui_ctrl_toggle : Boolean := False;
   gui_ctrl_checkbox : Boolean := True;
   gui_ctrl_textbox : Boolean := False;
   gui_value_textbox : String (1 .. 25);

   use type raylib.UI.Control_State;
   use type Interfaces.C.Extensions.bool;
begin
   Ada.Strings.Fixed.Move ("Hello !", gui_value_textbox);

   raylib.window.init (800, 400, "test");

   raylib.set_target_FPS (FPS);
   --  raylib.window.hide_cursor;

   raylib.UI.set_alpha (0.85);

   while not window.should_close loop

      if is_key_pressed (raylib.KEY_TAB) then
         select_next_test;
      end if;

      raylib.begin_drawing;
      raylib.clear_background (raylib.RAYWHITE);

      case current_test is
      when Lines =>
         text.draw (
            "raylib.shapes.draw_line",
            padding,
             10,
             font_size,
             raylib.BLACK);

         shapes.draw_line (
            start_posX => padding,
            start_posY => 28,
            end_posX   => 300,
            end_posy   => 28,
            c => raylib.RED);
         --
         text.draw ("raylib.shapes.draw_line_v", padding, 38, font_size, BLACK);
         raylib.shapes.draw_line_v (
            start_pos => (Float (padding), 56.0),
            end_pos   => (300.0, 56.0),
            c => raylib.RED);

         --
         text.draw ("raylib.shapes.draw_line_ex", padding, 66, font_size, BLACK);
         raylib.shapes.draw_line_ex (
            start_pos => (Float (padding), 84.0),
            end_pos   => (300.0, 84.0),
            thick => 2.5,
            c => RED);

      when Perspective =>
         text.draw ("Perspective test not yet implemented", 1, 38, font_size, BLACK);
      when GUI =>
         if Boolean(is_key_pressed (raylib.KEY_D)) then
            if raylib.UI.get_state = raylib.UI.NORMAL
            then raylib.UI.set_state (raylib.UI.DISABLED);
            else raylib.UI.set_state (raylib.UI.NORMAL);
            end if;
         end if;
         raylib.UI.statusbar ((0.0, 0.0, 800.0, 32.0), "UI test, press key 'D' to disable");
         if gui_ctrl_toggle then
            raylib.UI.toggle ((100.0, 48.0, 100.0, 24.0), "Active button", gui_ctrl_toggle);
         else
            raylib.UI.toggle ((100.0, 48.0, 120.0, 24.0), "Deactivated button", gui_ctrl_toggle);
         end if;
         raylib.UI.panel ((598.0, 48.0, 84.0, 36.0));
         if raylib.UI.button ((600.0, 50.0, 80.0, 32.0), "Next test")
         then select_next_test;
         end if;
         raylib.UI.checkbox (bounds  => (100.0, 150.0, 24.0, 24.0),
                             text    => (if gui_ctrl_checkbox then "Checked" else "Unchecked"),
                             checked => gui_ctrl_checkbox);
         if raylib.UI.textbox ((100.0, 200.0, 80.0, 32.0), gui_value_textbox, gui_ctrl_textbox) then
            gui_ctrl_textbox := not gui_ctrl_textbox;
         end if;
      end case;

      raylib.end_drawing;
   end loop;

   raylib.window.close;

end test;