xolatile/raylib-ada
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Major refactoring...?

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-04-05 09:56:09 -04:00
parent 967550e0b8
commit 0cf0ed7cd9
1 changed files with 46 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

79
raylib.ads
View File

@ -50,23 +50,23 @@ package Raylib is
) with Convention => C; ) with Convention => C;
for Config_Flags use ( for Config_Flags use (
Flag_None => 16#00000000#, Flag_None => 16#00000000#, -- 0
Flag_Fullscreen_Mode => 16#00000002#, Flag_Fullscreen_Mode => 16#00000002#, -- 2
Flag_Window_Resizable => 16#00000004#, Flag_Window_Resizable => 16#00000004#, -- 4
Flag_Window_Undecorated => 16#00000008#, Flag_Window_Undecorated => 16#00000008#, -- 8
Flag_Window_Transparent => 16#00000010#, Flag_Window_Transparent => 16#00000010#, -- 16
Flag_MSAA_x4_Hint => 16#00000020#, Flag_MSAA_x4_Hint => 16#00000020#, -- 32
Flag_VSync_Hint => 16#00000040#, Flag_VSync_Hint => 16#00000040#, -- 64
Flag_Window_Hidden => 16#00000080#, Flag_Window_Hidden => 16#00000080#, -- 128
Flag_Window_Always_Run => 16#00000100#, Flag_Window_Always_Run => 16#00000100#, -- 256
Flag_Window_Minimized => 16#00000200#, Flag_Window_Minimized => 16#00000200#, -- 512
Flag_Window_Maximized => 16#00000400#, Flag_Window_Maximized => 16#00000400#, -- 1024
Flag_Window_Unfocused => 16#00000800#, Flag_Window_Unfocused => 16#00000800#, -- 2048
Flag_Window_Topmost => 16#00001000#, Flag_Window_Topmost => 16#00001000#, -- 4096
Flag_Window_High_DPI => 16#00002000#, Flag_Window_High_DPI => 16#00002000#, -- 8192
Flag_Window_Mouse_Passthrough => 16#00004000#, Flag_Window_Mouse_Passthrough => 16#00004000#, -- 16384
Flag_Borderless_Windowed_Mode => 16#00008000#, Flag_Borderless_Windowed_Mode => 16#00008000#, -- 32768
Flag_Interlaced_Hint => 16#00010000# Flag_Interlaced_Hint => 16#00010000# -- 65536
); );
type Trace_Log_Level is ( type Trace_Log_Level is (
@ -499,17 +499,17 @@ package Raylib is
) with Convention => C; ) with Convention => C;
for Gesture use ( for Gesture use (
Gesture_None => 0, Gesture_None => 2#0000000000#, -- 0
Gesture_Tap => 1, Gesture_Tap => 2#0000000001#, -- 1
Gesture_Doubletap => 2, Gesture_Doubletap => 2#0000000010#, -- 2
Gesture_Hold => 4, Gesture_Hold => 2#0000000100#, -- 4
Gesture_Drag => 8, Gesture_Drag => 2#0000001000#, -- 8
Gesture_Swipe_Right => 16, Gesture_Swipe_Right => 2#0000010000#, -- 16
Gesture_Swipe_Left => 32, Gesture_Swipe_Left => 2#0000100000#, -- 32
Gesture_Swipe_Up => 64, Gesture_Swipe_Up => 2#0001000000#, -- 64
Gesture_Swipe_Down => 128, Gesture_Swipe_Down => 2#0010000000#, -- 128
Gesture_Pinch_In => 256, Gesture_Pinch_In => 2#0100000000#, -- 256
Gesture_Pinch_Out => 512 Gesture_Pinch_Out => 2#1000000000# -- 512
); );
type Camera_Mode is ( type Camera_Mode is (
@ -637,6 +637,8 @@ package Raylib is
Layout : NPatch_Layout := NPatch_Nine_Patch; Layout : NPatch_Layout := NPatch_Nine_Patch;
end record with Convention => C_Pass_By_Copy; end record with Convention => C_Pass_By_Copy;
No_NPatch_Info : NPatch_Info;
type Glyph_Info is record type Glyph_Info is record
Value : Integer := 0; Value : Integer := 0;
Offset_X : Integer := 0; Offset_X : Integer := 0;
@ -645,6 +647,8 @@ package Raylib is
Data : Image := No_Image; Data : Image := No_Image;
end record with Convention => C_Pass_By_Copy; end record with Convention => C_Pass_By_Copy;
No_Glyph_Info : Glyph_Info;
type Font is record type Font is record
Base_Size : Integer := 0; Base_Size : Integer := 0;
Glyph_Count : Integer := 0; Glyph_Count : Integer := 0;
@ -712,7 +716,8 @@ package Raylib is
type Float_Array_4 is array (0 .. 3) of Float; type Float_Array_4 is array (0 .. 3) of Float;
type Material_Map_Array_4 is array (0 .. 3) of Material_Map; type Material_Map_Array_4 is array (0 .. 3) of Material_Map;
type Material_Map_Array is array (Natural range <>) of Material_Map;
type Material_Map_Array is array (Natural range <>) of Material_Map;
type Material is record type Material is record
Data : Shader := No_Shader; Data : Shader := No_Shader;
@ -728,6 +733,8 @@ package Raylib is
Scale : Vector_3D := (others => 0.0); Scale : Vector_3D := (others => 0.0);
end record with Convention => C_Pass_By_Copy; end record with Convention => C_Pass_By_Copy;
No_Transform : Transform;
type Character_Array_32 is array (0 .. 31) of Character; type Character_Array_32 is array (0 .. 31) of Character;
Empty : Character_Array_32 := (others => Character'Val (0)); Empty : Character_Array_32 := (others => Character'Val (0));
@ -751,7 +758,7 @@ package Raylib is
Mesh_Materials : access Integer := null; Mesh_Materials : access Integer := null;
Bone_Count : Integer := 0; Bone_Count : Integer := 0;
Bones : access Bone_Info := null; Bones : access Bone_Info := null;
--~Bind_Post : access Transform := null; ERROR --ERRORBind_Post : access Transform := null;
end record with Convention => C_Pass_By_Copy; end record with Convention => C_Pass_By_Copy;
No_Model : Model; No_Model : Model;
@ -863,20 +870,26 @@ package Raylib is
Paths : Pointer := null; Paths : Pointer := null;
end record with Convention => C_Pass_By_Copy; end record with Convention => C_Pass_By_Copy;
No_File_Path_List : File_Path_List;
type Integer_Array_4 is array (0 .. 3) of Integer; type Integer_Array_4 is array (0 .. 3) of Integer;
type Automation_Event is record type Automation_Event is record
Frame : Natural := 0; Frame : Natural := 0;
Kind : Natural := 0; Kind : Natural := 0;
Parameters : Integer_Array_4 := (0, 0, 0, 0); Parameters : Integer_Array_4 := (others => 0);
end record with Convention => C_Pass_By_Copy; end record with Convention => C_Pass_By_Copy;
No_Automation_Event : Automation_Event;
type Automation_Event_List is record type Automation_Event_List is record
Capacity : Natural := 0; Capacity : Natural := 0;
Count : Natural := 0; Count : Natural := 0;
Events : access Automation_Event := null; Events : access Automation_Event := null;
end record with Convention => C_Pass_By_Copy; end record with Convention => C_Pass_By_Copy;
No_Automation_Event_List : Automation_Event_List;
------------------------------------------------------------------------ ------------------------------------------------------------------------
Version_Major : constant Integer := 5; Version_Major : constant Integer := 5;
@ -3662,8 +3675,8 @@ package Raylib is
External_Name => "DrawModelWiresEx"; External_Name => "DrawModelWiresEx";
procedure Draw_Bounding_Box ( procedure Draw_Bounding_Box (
Box : BoundingBox := No_Bounding_Box; Box : Bounding_Box := No_Bounding_Box;
Tint : Color := White Tint : Color := White
) with ) with
Import => True, Import => True,
Convention => C, Convention => C,