From 0cf0ed7cd9f6c0b7cb52f32b4552517324db0bdb Mon Sep 17 00:00:00 2001 From: xolatile Date: Fri, 5 Apr 2024 09:56:09 -0400 Subject: [PATCH] Major refactoring...? --- raylib.ads | 79 ++++++++++++++++++++++++++++++++++++-------------------------- 1 file changed, 46 insertions(+), 33 deletions(-) diff --git a/raylib.ads b/raylib.ads index 7afd858..200abb1 100644 --- a/raylib.ads +++ b/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,