From e0c32cf9ee2ba11bbb16c9b253ac0d6d7d4570fa Mon Sep 17 00:00:00 2001 From: rexim Date: Sat, 9 Mar 2024 02:17:48 +0700 Subject: Implement placing the bombs --- raylib.ads | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) (limited to 'raylib.ads') diff --git a/raylib.ads b/raylib.ads index da8ae67..d37a432 100644 --- a/raylib.ads +++ b/raylib.ads @@ -3,7 +3,7 @@ with Interfaces.C.Strings; use Interfaces.C.Strings; with Raymath; use Raymath; package Raylib is - procedure Init_Window(Width, Height: int; Title: chars_ptr) + procedure Init_Window(Width, Height: int; Title: in char_array) with Import => True, Convention => C, @@ -121,4 +121,14 @@ package Raylib is Import => True, Convention => C, External_Name => "IsKeyDown"; + function Measure_Text(Text: Char_Array; FontSize: Int) return Int + with + Import => True, + Convention => C, + External_Name => "MeasureText"; + procedure Draw_Text(Text: Char_Array; PosX, PosY: Int; FontSize: Int; C: Color) + with + Import => True, + Convention => C, + External_Name => "DrawText"; end Raylib; -- cgit v1.2.3