More font functions, doing smaller tested pushes now.

diff --git a/raylib.ads b/raylib.ads
index 7af44a320f7f2eac230fe366383ade7da4e14cfb..abf33235684359b90c7108fbfeef378664f06842 100644 (file)
--- 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,