-- 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"; procedure image_clear_background (data : in out image; tint : in colour) with import => true, convention => c, external_name => "ImageClearBackground"; function dump_image (data : in image; file_path : in string) return integer with import => true, convention => c, external_name => "ExportImage"; 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;