diff options
Diffstat (limited to 'raylib.ads')
| -rw-r--r-- | raylib.ads | 43 |
1 files changed, 18 insertions, 25 deletions
@@ -668,21 +668,12 @@ package Raylib is No_Image : Image; - --~type Texture is record - --~Id : Natural := 0; - --~Width : Integer := 0; - --~Height : Integer := 0; - --~Mipmaps : Integer := 1; - --~Format : Pixel_Format := Pixel_Format_None; - --~end record with Convention => C_Pass_By_Copy; - type Texture is record - Id : Natural; - Width : Integer; - Height : Integer; - Mipmaps : Integer; - --~Format : Pixel_Format; - Format : Integer; + Id : Natural := 0; + Width : Integer := 0; + Height : Integer := 0; + Mipmaps : Integer := 1; + Format : Pixel_Format := Pixel_Format_None; end record with Convention => C_Pass_By_Copy; No_Texture : Texture; @@ -824,12 +815,12 @@ package Raylib is Distance : Float := 0.0; Point : Vector_3D := (0.0, 0.0, 0.0); Normal : Vector_3D := (0.0, 0.0, 0.0); - end record; + end record with Convention => C_Pass_By_Copy; type Bounding_Box is record Min : Vector_3D := (0.0, 0.0, 0.0); Max : Vector_3D := (0.0, 0.0, 0.0); - end record; + end record with Convention => C_Pass_By_Copy; type Wave is record Frame_Count : Natural := 0; @@ -837,7 +828,7 @@ package Raylib is Sample_Size : Natural := 0; Channels : Natural := 0; Data : Pointer := null; - end record; + end record with Convention => C_Pass_By_Copy; type Audio_Stream is record Buffer : Pointer := null; @@ -845,14 +836,14 @@ package Raylib is Sample_Rate : Natural := 0; Sample_Size : Natural := 0; Channels : Natural := 0; - end record; + end record with Convention => C_Pass_By_Copy; No_Audio_Stream : Audio_Stream; type Sound is record Stream : Audio_Stream := No_Audio_Stream; Frame_Count : Natural := 0; - end record; + end record with Convention => C_Pass_By_Copy; type Music is record Stream : Audio_Stream := No_Audio_Stream; @@ -860,7 +851,7 @@ package Raylib is Looping : Logical := False; Context_Type : Integer := 0; Context_Data : Pointer := null; - end record; + end record with Convention => C_Pass_By_Copy; type VR_Device_Info is record Horizontal_Resoultion : Integer := 0; @@ -873,7 +864,7 @@ package Raylib is Interpupillary_Distance : Float := 0.0; Lens_Distortion_Values : Float_Array_4 := (0.0, 0.0, 0.0, 0.0); Chroma_Abberation_Correction : Float_Array_4 := (0.0, 0.0, 0.0, 0.0); - end record; + end record with Convention => C_Pass_By_Copy; No_VR_Device_Info : VR_Device_Info; @@ -889,7 +880,7 @@ package Raylib is Right_Screen_Center : Float_Array_2 := (0.0, 0.0); Scale : Float_Array_2 := (0.0, 0.0); Scale_In : Float_Array_2 := (0.0, 0.0); - end record; + end record with Convention => C_Pass_By_Copy; No_VR_Stereo_Config : VR_Stereo_Config; @@ -897,7 +888,7 @@ package Raylib is Capacity : Natural := 0; Count : Natural := 0; Paths : Pointer := null; - end record; + end record with Convention => C_Pass_By_Copy; type Integer_Array_4 is array (0 .. 3) of Integer; @@ -905,13 +896,13 @@ package Raylib is Frame : Natural := 0; Kind : Natural := 0; Parameters : Integer_Array_4 := (0, 0, 0, 0); - end record; + end record with Convention => C_Pass_By_Copy; type Automation_Event_List is record Capacity : Natural := 0; Count : Natural := 0; Events : access Automation_Event := null; - end record; + end record with Convention => C_Pass_By_Copy; ------------------------------------------------------------------------ @@ -2871,6 +2862,8 @@ package Raylib is Convention => C, External_Name => "DrawTexturePro"; + --~RLAPI void DrawTexturePro(Texture2D texture, Rectangle source, Rectangle dest, Vector2 origin, float rotation, Color tint); + --~procedure DrawTextureNPatch (Texture2D texture, NPatchInfo nPatchInfo, Rectangle dest, Vector2 origin, float rotation, Color tint) with --~Import => True, --~Convention => C, |