|
- -- 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";
- function load_image (file_path : in string) return image with import => true, convention => c, external_name => "LoadImage";
-
- 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 unload_image (data : in image) with import => true, convention => c, external_name => "UnloadImage";
-
- 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";
-
- procedure toggle_fullscreen with import => true, convention => c, external_name => "ToggleFullscreen";
-
- procedure window_icon (icon : in image) with import => true, convention => c, external_name => "SetWindowIcon";
-
- --~void SetWindowMinSize(int width, int height);
- --~void SetWindowMaxSize(int width, int height);
- --~void SetWindowSize(int width, int height);
- --~void ShowCursor(void);
- --~void HideCursor(void);
- --~double GetTime(void);
- --~void OpenURL(const char *url);
- function load_text (file : in string) return char_array with import => true, convention => c, external_name => "LoadFileText";
-
- function mouse_wheel_move return float with import => true, convention => c, external_name => "GetMouseWheelMove";
-
- --~procedure unload_file (data : in access string) with import => true, convention => c, external_name => "UnloadFileText";
- --~bool SaveFileText(const char *fileName, char *text);
- --~FilePathList LoadDirectoryFilesEx(const char *basePath, const char *filter, bool scanSubdirs);
- --~void UnloadDirectoryFiles(FilePathList files);
- --~unsigned char *CompressData(const unsigned char *data, int dataSize, int *compDataSize);
- --~unsigned char *DecompressData(const unsigned char *compData, int compDataSize, int *dataSize);
- --~void ImageDrawPixel(Image *dst, int posX, int posY, Color color);
- --~void SetTextLineSpacing(int spacing);
- --~Vector2 MeasureTextEx(Font font, const char *text, float fontSize, float spacing);
- --~bool CheckCollisionBoxes(BoundingBox box1, BoundingBox box2);
- --~void SetMasterVolume(float volume);
- --~Music LoadMusicStream(const char *fileName);
- --~void UnloadMusicStream(Music music);
- --~void PlayMusicStream(Music music);
- --~void PauseMusicStream(Music music);
- --~void ResumeMusicStream(Music music);
- --~void SetMusicVolume(Music music, float volume);
- --~float GetMusicTimeLength(Music music);
- --~RLAPI float GetMusicTimePlayed(Music music);
-
- ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
- end ray;
|