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,
|
Convention => C,
|
||||||
External_Name => "UnloadUTF8";
|
External_Name => "UnloadUTF8";
|
||||||
|
|
||||||
--~function int *LoadCodepoints (const char *text, int *count) with
|
function Load_Code_Points (
|
||||||
--~Import => True,
|
Text : String := "";
|
||||||
--~Convention => C,
|
Count : access Integer := null
|
||||||
--~External_Name => "";
|
) return access Integer with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "LoadCodepoints";
|
||||||
|
|
||||||
--~procedure UnloadCodepoints (int *codepoints) with
|
procedure Unload_Code_Points (
|
||||||
--~Import => True,
|
Code_Points : access Integer := null
|
||||||
--~Convention => C,
|
) with
|
||||||
--~External_Name => "";
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "UnloadCodepoints";
|
||||||
|
|
||||||
--~function int GetCodepointCount (const char *text) with
|
function Get_Code_Point_Count (
|
||||||
--~Import => True,
|
Text : String := ""
|
||||||
--~Convention => C,
|
) return Integer with
|
||||||
--~External_Name => "";
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "GetCodepointCount";
|
||||||
|
|
||||||
--~function int GetCodepoint (const char *text, int *codepointSize) with
|
function Get_Code_Point (
|
||||||
--~Import => True,
|
Text : String := "";
|
||||||
--~Convention => C,
|
Code_Point_Size : access Integer := null
|
||||||
--~External_Name => "";
|
) return Integer with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "GetCodepoint";
|
||||||
|
|
||||||
--~function int GetCodepointNext (const char *text, int *codepointSize) with
|
function Get_Code_Point_Next (
|
||||||
--~Import => True,
|
Text : String := "";
|
||||||
--~Convention => C,
|
Code_Point_Size : access Integer := null
|
||||||
--~External_Name => "";
|
) return Integer with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "GetCodepointNext";
|
||||||
|
|
||||||
--~function int GetCodepointPrevious (const char *text, int *codepointSize) with
|
function Get_Code_Point_Previous (
|
||||||
--~Import => True,
|
Text : String := "";
|
||||||
--~Convention => C,
|
Code_Point_Size : access Integer := null
|
||||||
--~External_Name => "";
|
) return Integer with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "GetCodepointPrevious";
|
||||||
|
|
||||||
--~function const char *CodepointToUTF8 (int codepoint, int *utf8Size) with
|
function Code_Point_To_UTF8 (
|
||||||
--~Import => True,
|
Code_Point : Integer := 0;
|
||||||
--~Convention => C,
|
UTF8_Size : access Integer := null
|
||||||
--~External_Name => "";
|
) return Strings with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "CodepointToUTF8";
|
||||||
|
|
||||||
--~function int TextCopy (char *dst, const char *src) with
|
function Text_Copy (
|
||||||
--~Import => True,
|
Destination : Strings := null;
|
||||||
--~Convention => C,
|
Source : Strings := null
|
||||||
--~External_Name => "";
|
) return Integer with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "TextCopy";
|
||||||
|
|
||||||
--~function bool TextIsEqual (const char *text1, const char *text2) with
|
function Text_Is_Equal (
|
||||||
--~Import => True,
|
Text_1 : Strings := null;
|
||||||
--~Convention => C,
|
Text_2 : Strings := null
|
||||||
--~External_Name => "";
|
) return Logical with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "TextIsEqual";
|
||||||
|
|
||||||
--~function unsigned int TextLength (const char *text) with
|
function Text_Length (
|
||||||
--~Import => True,
|
Text : String := ""
|
||||||
--~Convention => C,
|
) return Natural with
|
||||||
--~External_Name => "";
|
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,
|
--~Import => True,
|
||||||
--~Convention => C,
|
--~Convention => C,
|
||||||
--~External_Name => "";
|
--~External_Name => "TextFormat";
|
||||||
|
|
||||||
--~function const char *TextSubtext (const char *text, int position, int length) with
|
function Text_Subtext (
|
||||||
--~Import => True,
|
Text : String := "";
|
||||||
--~Convention => C,
|
Position : Integer := 0;
|
||||||
--~External_Name => "";
|
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
|
function Text_Replace (
|
||||||
--~Import => True,
|
Text : Strings := null;
|
||||||
--~Convention => C,
|
Replace : String := "";
|
||||||
--~External_Name => "";
|
By : String := ""
|
||||||
|
) return Strings with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "TextReplace";
|
||||||
|
|
||||||
--~function char *TextInsert (const char *text, const char *insert, int position) with
|
function Text_Insert (
|
||||||
--~Import => True,
|
Text : String := "";
|
||||||
--~Convention => C,
|
Insert : String := "";
|
||||||
--~External_Name => "";
|
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
|
function Text_Join (
|
||||||
--~Import => True,
|
Text : Strings := null;
|
||||||
--~Convention => C,
|
Count : Integer := 0;
|
||||||
--~External_Name => "";
|
Delimiter : String := ""
|
||||||
|
) return Strings with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "TextJoin";
|
||||||
|
|
||||||
--~function const char **TextSplit (const char *text, char delimiter, int *count) with
|
function Text_Split (
|
||||||
--~Import => True,
|
Text : String := "";
|
||||||
--~Convention => C,
|
Delimiter : Character := ' ';
|
||||||
--~External_Name => "";
|
Count : access Integer := null
|
||||||
|
) return Strings with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "TextSplit";
|
||||||
|
|
||||||
--~procedure TextAppend (char *text, const char *append, int *position) with
|
procedure Text_Append (
|
||||||
--~Import => True,
|
Text : Strings := null;
|
||||||
--~Convention => C,
|
Append : String := "";
|
||||||
--~External_Name => "";
|
Position : access Integer := null
|
||||||
|
) with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "TextAppend";
|
||||||
|
|
||||||
--~function int TextFindIndex (const char *text, const char *find) with
|
function Text_Find_Index (
|
||||||
--~Import => True,
|
Text : String := "";
|
||||||
--~Convention => C,
|
Find : String := ""
|
||||||
--~External_Name => "";
|
) return Integer with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "TextFindIndex";
|
||||||
|
|
||||||
--~function const char *TextToUpper (const char *text) with
|
function Text_To_Upper (
|
||||||
--~Import => True,
|
Text : String := ""
|
||||||
--~Convention => C,
|
) return Strings with
|
||||||
--~External_Name => "";
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "TextToUpper";
|
||||||
|
|
||||||
--~function const char *TextToLower (const char *text) with
|
function Text_To_Lower (
|
||||||
--~Import => True,
|
Text : String := ""
|
||||||
--~Convention => C,
|
) return Strings with
|
||||||
--~External_Name => "";
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "TextToLower";
|
||||||
|
|
||||||
--~function const char *TextToPascal (const char *text) with
|
function Text_To_Pascal (
|
||||||
--~Import => True,
|
Text : String := ""
|
||||||
--~Convention => C,
|
) return Strings with
|
||||||
--~External_Name => "";
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "TextToPascal";
|
||||||
|
|
||||||
--~function int TextToInteger (const char *text) with
|
function Text_To_Integer (
|
||||||
--~Import => True,
|
Text : String := ""
|
||||||
--~Convention => C,
|
) return Integer with
|
||||||
--~External_Name => "";
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "TextToInteger";
|
||||||
|
|
||||||
--~procedure DrawLine3D (Vector3 startPos, Vector3 endPos, Color color) with
|
procedure Draw_Line_3D (
|
||||||
--~Import => True,
|
From : Vector_3D := (others => 0.0);
|
||||||
--~Convention => C,
|
To : Vector_3D := (others => 0.0);
|
||||||
--~External_Name => "";
|
Tint : Color := Black
|
||||||
|
) with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "DrawLine3D";
|
||||||
|
|
||||||
--~procedure DrawPoint3D (Vector3 position, Color color) with
|
procedure Draw_Point_3D (
|
||||||
--~Import => True,
|
Position : Vector_3D := (others => 0.0);
|
||||||
--~Convention => C,
|
Tint : Color := Black
|
||||||
--~External_Name => "";
|
) with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "DrawPoint3D";
|
||||||
|
|
||||||
--~procedure DrawCircle3D (Vector3 center, float radius, Vector3 rotationAxis, float rotationAngle, Color color) with
|
procedure Draw_Circle_3D (
|
||||||
--~Import => True,
|
Center : Vector_3D := (others => 0.0);
|
||||||
--~Convention => C,
|
Radius : Float := 0.0;
|
||||||
--~External_Name => "";
|
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
|
procedure Draw_Triangle_3D (
|
||||||
--~Import => True,
|
Point_1 : Vector_3D := (others => 0.0);
|
||||||
--~Convention => C,
|
Point_2 : Vector_3D := (others => 0.0);
|
||||||
--~External_Name => "";
|
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
|
procedure Draw_Triangle_Strip_3D (
|
||||||
--~Import => True,
|
Points : access Vector_3D := null;
|
||||||
--~Convention => C,
|
Point_Count : Integer := 0;
|
||||||
--~External_Name => "";
|
Tint : Color := Black
|
||||||
|
) with
|
||||||
|
Import => True,
|
||||||
|
Convention => C,
|
||||||
|
External_Name => "DrawTriangleStrip3D";
|
||||||
|
|
||||||
procedure Draw_Cube (
|
procedure Draw_Cube (
|
||||||
Position : Vector_3D := (others => 0.0);
|
Position : Vector_3D := (others => 0.0);
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user