More font functions, doing smaller tested pushes now.

1 files changed, 44 insertions, 25 deletions

diff --git a/raylib.ads b/raylib.ads
index 7af44a3..abf3323 100644
--- a/raylib.ads
+++ b/raylib.ads
@@ -3056,35 +3056,54 @@ package Raylib is
 		--~Convention    => C,
 		--~External_Name => "";
 
-	--~procedure SetTextLineSpacing (int spacing) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
-
-	--~function int MeasureText (const char *text, int fontSize) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	procedure Set_Text_Line_Spacing (
+		Spacing : Integer := 0
+	) with
+		Import        => True,
+		Convention    => C,
+		External_Name => "SetTextLineSpacing";
 
-	--~function Vector2 MeasureTextEx (Font font, const char *text, float fontSize, float spacing) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	function Measure_Text (
+		Text      : String  := "";
+		Font_Size : Integer := 0
+	) return Integer with
+		Import        => True,
+		Convention    => C,
+		External_Name => "MeasureText";
 
-	--~function int GetGlyphIndex (Font font, int codepoint) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	function Measure_Text_Ex (
+		Data      : Font   := Get_Font_Default;
+		Text      : String := "";
+		Font_Size : Float  := 0.0;
+		Spacing   : Float  := 0.0
+	) return Vector_2D with
+		Import        => True,
+		Convention    => C,
+		External_Name => "MeasureTextEx";
+--~################################################################
+	function Get_Glyph_Index (
+		Data       : Font    := Get_Font_Default;
+		Code_Point : Integer := 0
+	) return Integer with
+		Import        => True,
+		Convention    => C,
+		External_Name => "GetGlyphIndex";
 
-	--~function GlyphInfo GetGlyphInfo (Font font, int codepoint) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	function Get_Glyph_Info (
+		Data       : Font    := Get_Font_Default;
+		Code_Point : Integer := 0
+	) return Glyph_Info with
+		Import        => True,
+		Convention    => C,
+		External_Name => "GetGlyphInfo";
 
-	--~function Rectangle GetGlyphAtlasRec (Font font, int codepoint) with
-		--~Import        => True,
-		--~Convention    => C,
-		--~External_Name => "";
+	function Get_Glyph_Atlas_Rec (
+		Data       : Font    := Get_Font_Default;
+		Code_Point : Integer := 0
+	) return Rectangle with
+		Import        => True,
+		Convention    => C,
+		External_Name => "GetGlyphAtlasRec";
 
 	--~function char *LoadUTF8 (const int *codepoints, int length) with
 		--~Import        => True,