xolatile
/
xhads
1
1
Forka 0
Codice Problemi 0 Pull Requests 0 Rilasci 0 Wiki Attività
Prototype game engine for Heroes of Might & Magic, featuring a gameplay plot-twist...
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
455 Commit
1 Ramo (Branch)
7.0MB
Ramo (Branch): master
Rami (Branch) Tag
${ item.name }
Crea branch ${ searchTerm }
da 'master'
${ noResults }
xhads/source/ray.ads

214 lines
13KB
Originale Permalink Blame Cronologia 

  1. -- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic

  2. --

  3. -- GNU General Public Licence (version 3 or later)

  4. 

  5. with interfaces.c, system;

  6. use  interfaces.c, system;

  7. 

  8. package ray is

  9. 

  10. 	pragma preelaborate;

  11. 

  12. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  13. 

  14. 	type pointer is access all system.address;

  15. 

  16. 	type colour_range is range 0 .. 2 ** 8 - 1;

  17. 	type logical      is new   boolean;

  18. 

  19. 	for logical'size      use 32;

  20. 	for colour_range'size use  8;

  21. 

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

  23. 

  24. 	type window_flag is (

  25. 		flag_none,

  26. 		flag_fullscreen_mode,

  27. 		flag_window_resizable,

  28. 		flag_window_undecorated,

  29. 		flag_window_transparent,

  30. 		flag_msaa_x4_hint,

  31. 		flag_vsync_hint,

  32. 		flag_window_hidden,

  33. 		flag_window_always_run,

  34. 		flag_window_minimized,

  35. 		flag_window_maximized,

  36. 		flag_window_unfocused,

  37. 		flag_window_topmost,

  38. 		flag_window_high_dpi,

  39. 		flag_window_mouse_passthrough,

  40. 		flag_borderless_windowed_mode,

  41. 		flag_interlaced_hint

  42. 	) with convention => c;

  43. 

  44. 	for window_flag use (

  45. 		flag_none                     => 16#00000000#, -- 0

  46. 		flag_fullscreen_mode          => 16#00000002#, -- 2

  47. 		flag_window_resizable         => 16#00000004#, -- 4

  48. 		flag_window_undecorated       => 16#00000008#, -- 8

  49. 		flag_window_transparent       => 16#00000010#, -- 16

  50. 		flag_msaa_x4_hint             => 16#00000020#, -- 32

  51. 		flag_vsync_hint               => 16#00000040#, -- 64

  52. 		flag_window_hidden            => 16#00000080#, -- 128

  53. 		flag_window_always_run        => 16#00000100#, -- 256

  54. 		flag_window_minimized         => 16#00000200#, -- 512

  55. 		flag_window_maximized         => 16#00000400#, -- 1024

  56. 		flag_window_unfocused         => 16#00000800#, -- 2048

  57. 		flag_window_topmost           => 16#00001000#, -- 4096

  58. 		flag_window_high_dpi          => 16#00002000#, -- 8192

  59. 		flag_window_mouse_passthrough => 16#00004000#, -- 16384

  60. 		flag_borderless_windowed_mode => 16#00008000#, -- 32768

  61. 		flag_interlaced_hint          => 16#00010000#  -- 65536

  62. 	);

  63. 

  64. 	type trace_log_level is (

  65. 		log_all,                log_trace,              log_debug,              log_info,               log_warning,            log_error,

  66. 		log_fatal,              log_none

  67. 	) with convention => c;

  68. 

  69. 	type mouse_button is (

  70. 		mouse_button_left,      mouse_button_right,     mouse_button_middle,    mouse_button_side,      mouse_button_extra,     mouse_button_forward,

  71. 		mouse_button_back

  72. 	) with convention => c;

  73. 

  74. 	type vector    is record x, y : float;                                                                    end record with convention => c_pass_by_copy;

  75. 	type colour    is record r, g, b, a : colour_range;                                                       end record with convention => c_pass_by_copy;

  76. 	type rectangle is record x ,y, width, height : float;                                                     end record with convention => c_pass_by_copy;

  77. 	type texture   is record id : natural; width, height, mipmaps, format : integer;                          end record with convention => c_pass_by_copy;

  78. 	type image     is record data : access pixels; width, height, mipmaps : integer; format : integer := 7;   end record with convention => c_pass_by_copy;

  79. 	type font      is record base, count, pad : integer; data : texture; squares : pointer; glyphs : pointer; end record with convention => c_pass_by_copy;

  80. 	type stream    is record buffer, processor : pointer; rate, size, channels : natural;                     end record with convention => c_pass_by_copy;

  81. 	type sound     is record data : stream; frame : natural;                                                  end record with convention => c_pass_by_copy;

  82. 

  83. 	no_texture : texture;

  84. 	no_font    : font;

  85. 	no_sound   : sound;

  86. 

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

  88. 

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

  90. 	procedure close_window                                                 with import => true, convention => c, external_name => "CloseWindow";

  91. 

  92. 	procedure open_audio_device  with import => true, convention => c, external_name => "InitAudioDevice";

  93. 	procedure close_audio_device with import => true, convention => c, external_name => "CloseAudioDevice";

  94. 

  95. 	procedure set_exit_key             (key : in integer)                        with import => true, convention => c, external_name => "SetExitKey";

  96. 	function  exit_key_is_pressed                                 return logical with import => true, convention => c, external_name => "WindowShouldClose";

  97. 	function  get_key_pressed                                     return integer with import => true, convention => c, external_name => "GetKeyPressed";

  98. 	function  mouse_button_is_pressed  (button : in mouse_button) return logical with import => true, convention => c, external_name => "IsMouseButtonPressed";

  99. 	function  mouse_button_is_released (button : in mouse_button) return logical with import => true, convention => c, external_name => "IsMouseButtonReleased";

  100. 	function  get_mouse_x                                         return integer with import => true, convention => c, external_name => "GetMouseX";

  101. 	function  get_mouse_y                                         return integer with import => true, convention => c, external_name => "GetMouseY";

  102. 	function  get_mouse_vector                                    return vector  with import => true, convention => c, external_name => "GetMousePosition";

  103. 	function  get_screen_width                                    return integer with import => true, convention => c, external_name => "GetScreenWidth";

  104. 	function  get_screen_height                                   return integer with import => true, convention => c, external_name => "GetScreenHeight";

  105. 

  106. 	procedure clear_background (tint : in colour) with import => true, convention => c, external_name => "ClearBackground";

  107. 	procedure begin_drawing                       with import => true, convention => c, external_name => "BeginDrawing";

  108. 	procedure end_drawing                         with import => true, convention => c, external_name => "EndDrawing";

  109. 

  110. 	procedure set_target_fps (fps : in integer)                             with import => true, convention => c, external_name => "SetTargetFPS";

  111. 	function  get_fps                                        return integer with import => true, convention => c, external_name => "GetFPS";

  112. 	procedure draw_fps       (x, y : in integer)                            with import => true, convention => c, external_name => "DrawFPS";

  113. 	procedure randomization  (seed : in natural)                            with import => true, convention => c, external_name => "SetRandomSeed";

  114. 	function  get_random     (minimum, maximum : in integer) return integer with import => true, convention => c, external_name => "GetRandomValue";

  115. 

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

  117. 

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

  119. 

  120. 	function load_texture (file_path : in string) return texture with import => true, convention => c, external_name => "LoadTexture";

  121. 	function load_sound   (file_path : in string) return sound   with import => true, convention => c, external_name => "LoadSound";

  122. 	function load_font    (file_path : in string) return font    with import => true, convention => c, external_name => "LoadFont";

  123. 	function load_image   (file_path : in string) return image   with import => true, convention => c, external_name => "LoadImage";

  124. 

  125. 	procedure unload_texture (data : in texture) with import => true, convention => c, external_name => "UnloadTexture";

  126. 	procedure unload_sound   (data : in sound)   with import => true, convention => c, external_name => "UnloadSound";

  127. 	procedure unload_font    (data : in font)    with import => true, convention => c, external_name => "UnloadFont";

  128. 	procedure unload_image   (data : in image)   with import => true, convention => c, external_name => "UnloadImage";

  129. 

  130. 	function  image_colour (width, height : in integer; tint : in colour) return image   with import => true, convention => c, external_name => "GenImageColor";

  131. 	function  image_import (data : in texture)                            return image   with import => true, convention => c, external_name => "LoadImageFromTexture";

  132. 	function  image_deport (data : in image)                              return texture with import => true, convention => c, external_name => "LoadTextureFromImage";

  133. 	procedure image_delete (data : in image)                                             with import => true, convention => c, external_name => "UnloadImage";

  134. 	function  image_export (data : in image; file_path : in string)       return integer with import => true, convention => c, external_name => "ExportImage";

  135. 

  136. 	procedure image_pixel (data : in out image; x, y : in integer; tint : in colour) with import => true, convention => c, external_name => "ImageDrawPixel";

  137. 

  138. 	procedure image_render (data : in out image;

  139. 	                        copy : in     image;

  140. 	                        from : in     rectangle := (others => 0.0);

  141. 	                        to   : in     rectangle := (others => 0.0);

  142. 	                        tint : in     colour    := (others => 255)

  143. 	) with import => true, convention => c, external_name => "ImageDraw";

  144. 

  145. 	procedure draw_line      (x0, y0, x1, y1      : in integer; tint : in colour) with import => true, convention => c, external_name => "DrawLine";

  146. 	procedure draw_rectangle (x, y, width, height : in integer; tint : in colour) with import => true, convention => c, external_name => "DrawRectangle";

  147. 

  148. 	procedure draw_text (

  149. 		data   : in font   := no_font;

  150. 		text   : in string := "--";

  151. 		view   : in vector := (0.0, 0.0);

  152. 		origin : in vector := (0.0, 0.0);

  153. 		rotate : in float  := 0.0;

  154. 		scale  : in float  := 0.0;

  155. 		space  : in float  := 0.0;

  156. 		tint   : in colour := (others => 255)

  157. 	) with import => true, convention => c, external_name => "DrawTextPro";

  158. 

  159. 	procedure draw_texture (

  160. 		data   : in texture   := no_texture;

  161. 		uv     : in rectangle := (others => 0.0);

  162. 		view   : in rectangle := (others => 0.0);

  163. 		origin : in vector    := (0.0, 0.0);

  164. 		rotate : in float     := 0.0;

  165. 		tint   : in colour    := (others => 255)

  166. 	) with import => true, convention => c, external_name => "DrawTexturePro";

  167. 

  168. 	procedure play_sound   (data : in sound) with import => true, convention => c, external_name => "PlaySound";

  169. 	procedure stop_sound   (data : in sound) with import => true, convention => c, external_name => "StopSound";

  170. 	procedure pause_sound  (data : in sound) with import => true, convention => c, external_name => "PauseSound";

  171. 	procedure resume_sound (data : in sound) with import => true, convention => c, external_name => "ResumeSound";

  172. 

  173. 	procedure toggle_fullscreen with import => true, convention => c, external_name => "ToggleFullscreen";

  174. 

  175. 	procedure window_icon (icon : in image) with import => true, convention => c, external_name => "SetWindowIcon";

  176. 

  177. 	procedure show_cursor with import => true, convention => c, external_name => "ShowCursor";

  178. 	procedure hide_cursor with import => true, convention => c, external_name => "HideCursor";

  179. 

  180. 	procedure set_window_minimal_size (width, height : in integer) with import => true, convention => c, external_name => "SetWindowMinSize";

  181. 	procedure set_window_maximal_size (width, height : in integer) with import => true, convention => c, external_name => "SetWindowMaxSize";

  182. 	procedure set_window_size         (width, height : in integer) with import => true, convention => c, external_name => "SetWindowSize";

  183. 

  184. 	function get_time return long_float with import => true, convention => c, external_name => "GetTime";

  185. 

  186. 	function load_text (file : in string) return access char_array with import => true, convention => c, external_name => "LoadFileText";

  187. 

  188. 	function mouse_wheel_move return float with import => true, convention => c, external_name => "GetMouseWheelMove";

  189. 

  190. 	--~void OpenURL(const char *url);

  191. 

  192. 	--~procedure unload_file (data : in access string) with import => true, convention => c, external_name => "UnloadFileText";

  193. 	--~bool SaveFileText(const char *fileName, char *text);

  194. 	--~FilePathList LoadDirectoryFilesEx(const char *basePath, const char *filter, bool scanSubdirs);

  195. 	--~void UnloadDirectoryFiles(FilePathList files);

  196. 

  197. 	function compress   (data : in pointer; size : in integer; used : out integer) return pointer with import => true, convention => c, external_name => "CompressData";

  198. 	function decompress (data : in pointer; size : in integer; used : out integer) return pointer with import => true, convention => c, external_name => "DecompressData";

  199. 

  200. 	--~Vector2 MeasureTextEx(Font font, const char *text, float fontSize, float spacing);

  201. 	--~void SetMasterVolume(float volume);

  202. 	--~Music LoadMusicStream(const char *fileName);

  203. 	--~void UnloadMusicStream(Music music);

  204. 	--~void PlayMusicStream(Music music);

  205. 	--~void PauseMusicStream(Music music);

  206. 	--~void ResumeMusicStream(Music music);

  207. 	--~void SetMusicVolume(Music music, float volume);

  208. 	--~float GetMusicTimeLength(Music music);

  209. 	--~RLAPI float GetMusicTimePlayed(Music music);

  210. 

  211. ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

  212. 

  213. end ray;