xolatile/raylib-ada
1
0
Fork 0
Code Issues Pull Requests Activity

More font functions and C_String function...

Browse Source
This commit is contained in:
xolatile
2024-04-05 06:52:11 -04:00
parent c6e1b398a9
commit 345ff1de07
2 changed files with 78 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
window.adb
View File

@ -3,7 +3,12 @@ use Raylib;
procedure Window is
Text : String := "Heyo world!" & Character'Val (0);
function C_String (Data : String) return String is
begin
return (Data & Character'Val (0));
end C_String;
Text : String := C_String ("Heyo world!");
Dragdown : Texture;
@ -12,12 +17,12 @@ procedure Window is
begin
Open_Window (720, 360, "Heyo Raylib!" & Character'Val (0));
Open_Window (720, 360, C_String ("Heyo Raylib!"));
Set_Exit_Key (Key_Q); -- Default is Key_Escape
Set_Target_FPS (72); -- Default is 60
Dragdown := Load_Texture ("./texture.png" & Character'Val (0));
Dragdown := Load_Texture (C_String ("./texture.png"));
Main_Loop: loop
exit when Window_Should_Close;