Major refactoring...?
This commit is contained in:
parent
967550e0b8
commit
0cf0ed7cd9
79
raylib.ads
79
raylib.ads
@ -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,7 +716,8 @@ 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_Map_Array is array (Natural range <>) of Material_Map;
|
||||
|
||||
type Material is record
|
||||
Data : Shader := No_Shader;
|
||||
@ -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,8 +3675,8 @@ package Raylib is
|
||||
External_Name => "DrawModelWiresEx";
|
||||
|
||||
procedure Draw_Bounding_Box (
|
||||
Box : BoundingBox := No_Bounding_Box;
|
||||
Tint : Color := White
|
||||
Box : Bounding_Box := No_Bounding_Box;
|
||||
Tint : Color := White
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
|
||||
Loading…
Reference in New Issue
Block a user