xolatile
/
raylib-ada
1
0
Vork 0
Code Kwesties 0 Pull-aanvragen 0 Publicaties 0 Wiki Activiteit
Bladeren bron

More functions that I started writing 16 days ago...

master
Ognjen Milan Robovic 3 weken geleden
bovenliggende
16ebe6a915
commit
58a94b047f
1 gewijzigde bestanden met toevoegingen van 193 en 106 verwijderingen
Zij-aan-zij weergave
Diff Options
Show Stats Download Patch File Download Diff File
  1. +193
    -106
      raylib.ads

+ 193
- 106
raylib.ads Bestand weergeven

@@ -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);


Schrijf Voorbeeld
Laden…
Annuleren
Opslaan