xhads/source/ray.ads

-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
--
-- GNU General Public Licence (version 3 or later)

with interfaces.c, system;
use  interfaces.c, system;

package ray is

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

	type pointer is access all system.address;

	type colour_range is range 0 .. 2 ** 8 - 1;
	type logical      is new   boolean;

	for logical'size      use 32;
	for colour_range'size use  8;

	type pixels is array (natural range <>) of colour_range;

	type window_flag is (
		flag_none,
		flag_fullscreen_mode,
		flag_window_resizable,
		flag_window_undecorated,
		flag_window_transparent,
		flag_msaa_x4_hint,
		flag_vsync_hint,
		flag_window_hidden,
		flag_window_always_run,
		flag_window_minimized,
		flag_window_maximized,
		flag_window_unfocused,
		flag_window_topmost,
		flag_window_high_dpi,
		flag_window_mouse_passthrough,
		flag_borderless_windowed_mode,
		flag_interlaced_hint
	) with convention => c;

	for window_flag use (
		flag_none                     => 16#00000000#, -- 0
		flag_fullscreen_mode          => 16#00000002#, -- 2
		flag_window_resizable         => 16#00000004#, -- 4
		flag_window_undecorated       => 16#00000008#, -- 8
		flag_window_transparent       => 16#00000010#, -- 16
		flag_msaa_x4_hint             => 16#00000020#, -- 32
		flag_vsync_hint               => 16#00000040#, -- 64
		flag_window_hidden            => 16#00000080#, -- 128
		flag_window_always_run        => 16#00000100#, -- 256
		flag_window_minimized         => 16#00000200#, -- 512
		flag_window_maximized         => 16#00000400#, -- 1024
		flag_window_unfocused         => 16#00000800#, -- 2048
		flag_window_topmost           => 16#00001000#, -- 4096
		flag_window_high_dpi          => 16#00002000#, -- 8192
		flag_window_mouse_passthrough => 16#00004000#, -- 16384
		flag_borderless_windowed_mode => 16#00008000#, -- 32768
		flag_interlaced_hint          => 16#00010000#  -- 65536
	);

	type trace_log_level is (
		log_all,                log_trace,              log_debug,              log_info,               log_warning,            log_error,
		log_fatal,              log_none
	) with convention => c;

	type mouse_button is (
		mouse_button_left,      mouse_button_right,     mouse_button_middle,    mouse_button_side,      mouse_button_extra,     mouse_button_forward,
		mouse_button_back
	) with convention => c;

	type vector    is record x, y : float;                                                                    end record with convention => c_pass_by_copy;
	type colour    is record r, g, b, a : colour_range;                                                       end record with convention => c_pass_by_copy;
	type rectangle is record x ,y, width, height : float;                                                     end record with convention => c_pass_by_copy;
	type texture   is record id : natural; width, height, mipmaps, format : integer;                          end record with convention => c_pass_by_copy;
	type image     is record data : access pixels; width, height, mipmaps : integer; format : integer := 7;   end record with convention => c_pass_by_copy;
	type font      is record base, count, pad : integer; data : texture; squares : pointer; glyphs : pointer; end record with convention => c_pass_by_copy;
	type stream    is record buffer, processor : pointer; rate, size, channels : natural;                     end record with convention => c_pass_by_copy;
	type sound     is record data : stream; frame : natural;                                                  end record with convention => c_pass_by_copy;

	no_texture : texture;
	no_font    : font;
	no_sound   : sound;

	procedure set_window_flags (flags : window_flag := flag_none) with import => true, convention => c, external_name => "SetConfigFlags";

	procedure open_window  (width, height : in integer; title : in string) with import => true, convention => c, external_name => "InitWindow";
	procedure close_window                                                 with import => true, convention => c, external_name => "CloseWindow";

	procedure open_audio_device  with import => true, convention => c, external_name => "InitAudioDevice";
	procedure close_audio_device with import => true, convention => c, external_name => "CloseAudioDevice";

	procedure set_exit_key             (key : in integer)                        with import => true, convention => c, external_name => "SetExitKey";
	function  exit_key_is_pressed                                 return logical with import => true, convention => c, external_name => "WindowShouldClose";
	function  get_key_pressed                                     return integer with import => true, convention => c, external_name => "GetKeyPressed";
	function  mouse_button_is_pressed  (button : in mouse_button) return logical with import => true, convention => c, external_name => "IsMouseButtonPressed";
	function  mouse_button_is_released (button : in mouse_button) return logical with import => true, convention => c, external_name => "IsMouseButtonReleased";
	function  get_mouse_x                                         return integer with import => true, convention => c, external_name => "GetMouseX";
	function  get_mouse_y                                         return integer with import => true, convention => c, external_name => "GetMouseY";
	function  get_mouse_vector                                    return vector  with import => true, convention => c, external_name => "GetMousePosition";
	function  get_screen_width                                    return integer with import => true, convention => c, external_name => "GetScreenWidth";
	function  get_screen_height                                   return integer with import => true, convention => c, external_name => "GetScreenHeight";

	procedure clear_background (tint : in colour) with import => true, convention => c, external_name => "ClearBackground";
	procedure begin_drawing                       with import => true, convention => c, external_name => "BeginDrawing";
	procedure end_drawing                         with import => true, convention => c, external_name => "EndDrawing";

	procedure set_target_fps (fps : in integer)                             with import => true, convention => c, external_name => "SetTargetFPS";
	function  get_fps                                        return integer with import => true, convention => c, external_name => "GetFPS";
	procedure draw_fps       (x, y : in integer)                            with import => true, convention => c, external_name => "DrawFPS";
	procedure randomization  (seed : in natural)                            with import => true, convention => c, external_name => "SetRandomSeed";
	function  get_random     (minimum, maximum : in integer) return integer with import => true, convention => c, external_name => "GetRandomValue";

	procedure take_screenshot (file_path : in string := "screenshot.png") with import => true, convention => c, external_name => "TakeScreenshot";

	procedure set_trace_log_level (level : in trace_log_level) with import => true, convention => c, external_name => "SetTraceLogLevel";

	function load_texture (file_path : in string) return texture with import => true, convention => c, external_name => "LoadTexture";
	function load_sound   (file_path : in string) return sound   with import => true, convention => c, external_name => "LoadSound";
	function load_font    (file_path : in string) return font    with import => true, convention => c, external_name => "LoadFont";

	procedure unload_texture (data : in texture) with import => true, convention => c, external_name => "UnloadTexture";
	procedure unload_sound   (data : in sound)   with import => true, convention => c, external_name => "UnloadSound";
	procedure unload_font    (data : in font)    with import => true, convention => c, external_name => "UnloadFont";

	function  image_colour (width, height : in integer; tint : in colour) return image   with import => true, convention => c, external_name => "GenImageColor";
	function  image_import (data : in texture)                            return image   with import => true, convention => c, external_name => "LoadImageFromTexture";
	procedure image_delete (data : in image)                                             with import => true, convention => c, external_name => "UnloadImage";
	function  image_export (data : in image; file_path : in string)       return integer with import => true, convention => c, external_name => "ExportImage";

	procedure image_render (data : in out image;
	                        copy : in     image;
	                        from : in     rectangle := (others => 0.0);
	                        to   : in     rectangle := (others => 0.0);
	                        tint : in     colour    := (others => 255)
	) with import => true, convention => c, external_name => "ImageDraw";

	procedure draw_line      (x0, y0, x1, y1      : in integer; tint : in colour) with import => true, convention => c, external_name => "DrawLine";
	procedure draw_rectangle (x, y, width, height : in integer; tint : in colour) with import => true, convention => c, external_name => "DrawRectangle";

	procedure draw_text (
		data   : in font   := no_font;
		text   : in string := "--";
		view   : in vector := (0.0, 0.0);
		origin : in vector := (0.0, 0.0);
		rotate : in float  := 0.0;
		scale  : in float  := 0.0;
		space  : in float  := 0.0;
		tint   : in colour := (others => 255)
	) with import => true, convention => c, external_name => "DrawTextPro";

	procedure draw_texture (
		data   : in texture   := no_texture;
		uv     : in rectangle := (others => 0.0);
		view   : in rectangle := (others => 0.0);
		origin : in vector    := (0.0, 0.0);
		rotate : in float     := 0.0;
		tint   : in colour    := (others => 255)
	) with import => true, convention => c, external_name => "DrawTexturePro";

	procedure play_sound   (data : in sound) with import => true, convention => c, external_name => "PlaySound";
	procedure stop_sound   (data : in sound) with import => true, convention => c, external_name => "StopSound";
	procedure pause_sound  (data : in sound) with import => true, convention => c, external_name => "PauseSound";
	procedure resume_sound (data : in sound) with import => true, convention => c, external_name => "ResumeSound";

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

end ray;