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

75
raylib.ads
View File

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