More functions that I started writing 16 days ago...
This commit is contained in:
parent
16ebe6a915
commit
58a94b047f
299
raylib.ads
299
raylib.ads
@ -3492,140 +3492,227 @@ package Raylib is
|
||||
Convention => C,
|
||||
External_Name => "UnloadUTF8";
|
||||
|
||||
--~function int *LoadCodepoints (const char *text, int *count) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Load_Code_Points (
|
||||
Text : String := "";
|
||||
Count : access Integer := null
|
||||
) return access Integer with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "LoadCodepoints";
|
||||
|
||||
--~procedure UnloadCodepoints (int *codepoints) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Unload_Code_Points (
|
||||
Code_Points : access Integer := null
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "UnloadCodepoints";
|
||||
|
||||
--~function int GetCodepointCount (const char *text) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Get_Code_Point_Count (
|
||||
Text : String := ""
|
||||
) return Integer with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "GetCodepointCount";
|
||||
|
||||
--~function int GetCodepoint (const char *text, int *codepointSize) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Get_Code_Point (
|
||||
Text : String := "";
|
||||
Code_Point_Size : access Integer := null
|
||||
) return Integer with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "GetCodepoint";
|
||||
|
||||
--~function int GetCodepointNext (const char *text, int *codepointSize) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Get_Code_Point_Next (
|
||||
Text : String := "";
|
||||
Code_Point_Size : access Integer := null
|
||||
) return Integer with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "GetCodepointNext";
|
||||
|
||||
--~function int GetCodepointPrevious (const char *text, int *codepointSize) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Get_Code_Point_Previous (
|
||||
Text : String := "";
|
||||
Code_Point_Size : access Integer := null
|
||||
) return Integer with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "GetCodepointPrevious";
|
||||
|
||||
--~function const char *CodepointToUTF8 (int codepoint, int *utf8Size) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Code_Point_To_UTF8 (
|
||||
Code_Point : Integer := 0;
|
||||
UTF8_Size : access Integer := null
|
||||
) return Strings with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "CodepointToUTF8";
|
||||
|
||||
--~function int TextCopy (char *dst, const char *src) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Text_Copy (
|
||||
Destination : Strings := null;
|
||||
Source : Strings := null
|
||||
) return Integer with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "TextCopy";
|
||||
|
||||
--~function bool TextIsEqual (const char *text1, const char *text2) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Text_Is_Equal (
|
||||
Text_1 : Strings := null;
|
||||
Text_2 : Strings := null
|
||||
) return Logical with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "TextIsEqual";
|
||||
|
||||
--~function unsigned int TextLength (const char *text) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Text_Length (
|
||||
Text : String := ""
|
||||
) return Natural with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "TextLength";
|
||||
|
||||
--~function const char *TextFormat (const char *text, ...) with
|
||||
--~function Text_Format (
|
||||
--~Text : String := "";
|
||||
--~...
|
||||
--~) return Strings with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
--~External_Name => "TextFormat";
|
||||
|
||||
--~function const char *TextSubtext (const char *text, int position, int length) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Text_Subtext (
|
||||
Text : String := "";
|
||||
Position : Integer := 0;
|
||||
Length : Integer := 0
|
||||
) return Strings with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "TextSubtext";
|
||||
|
||||
--~function char *TextReplace (char *text, const char *replace, const char *by) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Text_Replace (
|
||||
Text : Strings := null;
|
||||
Replace : String := "";
|
||||
By : String := ""
|
||||
) return Strings with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "TextReplace";
|
||||
|
||||
--~function char *TextInsert (const char *text, const char *insert, int position) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Text_Insert (
|
||||
Text : String := "";
|
||||
Insert : String := "";
|
||||
Position : Integer := 0
|
||||
) return Strings with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "TextInsert";
|
||||
|
||||
--~function const char *TextJoin (const char **textList, int count, const char *delimiter) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Text_Join (
|
||||
Text : Strings := null;
|
||||
Count : Integer := 0;
|
||||
Delimiter : String := ""
|
||||
) return Strings with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "TextJoin";
|
||||
|
||||
--~function const char **TextSplit (const char *text, char delimiter, int *count) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Text_Split (
|
||||
Text : String := "";
|
||||
Delimiter : Character := ' ';
|
||||
Count : access Integer := null
|
||||
) return Strings with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "TextSplit";
|
||||
|
||||
--~procedure TextAppend (char *text, const char *append, int *position) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Text_Append (
|
||||
Text : Strings := null;
|
||||
Append : String := "";
|
||||
Position : access Integer := null
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "TextAppend";
|
||||
|
||||
--~function int TextFindIndex (const char *text, const char *find) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Text_Find_Index (
|
||||
Text : String := "";
|
||||
Find : String := ""
|
||||
) return Integer with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "TextFindIndex";
|
||||
|
||||
--~function const char *TextToUpper (const char *text) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Text_To_Upper (
|
||||
Text : String := ""
|
||||
) return Strings with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "TextToUpper";
|
||||
|
||||
--~function const char *TextToLower (const char *text) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Text_To_Lower (
|
||||
Text : String := ""
|
||||
) return Strings with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "TextToLower";
|
||||
|
||||
--~function const char *TextToPascal (const char *text) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Text_To_Pascal (
|
||||
Text : String := ""
|
||||
) return Strings with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "TextToPascal";
|
||||
|
||||
--~function int TextToInteger (const char *text) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
function Text_To_Integer (
|
||||
Text : String := ""
|
||||
) return Integer with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "TextToInteger";
|
||||
|
||||
--~procedure DrawLine3D (Vector3 startPos, Vector3 endPos, Color color) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Line_3D (
|
||||
From : Vector_3D := (others => 0.0);
|
||||
To : Vector_3D := (others => 0.0);
|
||||
Tint : Color := Black
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawLine3D";
|
||||
|
||||
--~procedure DrawPoint3D (Vector3 position, Color color) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Point_3D (
|
||||
Position : Vector_3D := (others => 0.0);
|
||||
Tint : Color := Black
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawPoint3D";
|
||||
|
||||
--~procedure DrawCircle3D (Vector3 center, float radius, Vector3 rotationAxis, float rotationAngle, Color color) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Circle_3D (
|
||||
Center : Vector_3D := (others => 0.0);
|
||||
Radius : Float := 0.0;
|
||||
Rotation_Axis : Vector_3D := (others => 0.0);
|
||||
Rotation_Angle : Float := 0.0;
|
||||
Tint : Color := Black
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawCircle3D";
|
||||
|
||||
--~procedure DrawTriangle3D (Vector3 v1, Vector3 v2, Vector3 v3, Color color) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Triangle_3D (
|
||||
Point_1 : Vector_3D := (others => 0.0);
|
||||
Point_2 : Vector_3D := (others => 0.0);
|
||||
Point_3 : Vector_3D := (others => 0.0);
|
||||
Tint : Color := Black
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawTriangle3D";
|
||||
|
||||
--~procedure DrawTriangleStrip3D (Vector3 *points, int pointCount, Color color) with
|
||||
--~Import => True,
|
||||
--~Convention => C,
|
||||
--~External_Name => "";
|
||||
procedure Draw_Triangle_Strip_3D (
|
||||
Points : access Vector_3D := null;
|
||||
Point_Count : Integer := 0;
|
||||
Tint : Color := Black
|
||||
) with
|
||||
Import => True,
|
||||
Convention => C,
|
||||
External_Name => "DrawTriangleStrip3D";
|
||||
|
||||
procedure Draw_Cube (
|
||||
Position : Vector_3D := (others => 0.0);
|
||||
|
||||
Loading…
Reference in New Issue
Block a user