-- 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 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 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 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 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"; 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;