1 geänderte Dateien mit 46 neuen und 33 gelöschten Zeilen
-
+46 -33raylib.ads
+ 46
- 33
raylib.ads
Datei anzeigen
| @@ -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, | |||