Initial bindings and window example...

This commit is contained in:
Ognjen Milan Robovic 2024-03-18 08:06:11 -04:00
parent d933329180
commit 2d12d1d819
5 changed files with 3897 additions and 1 deletions

3
.gitignore vendored Normal file
View File

@ -0,0 +1,3 @@
*.o
*.ali
window

View File

@ -1,3 +1,23 @@
# raylib-ada
Ada bindings for Raylib 5.1 library.
Ada bindings for Raylib 5.1 library.
```ada
with Raylib;
use Raylib;
procedure Window is
begin
Open_Window (720, 360, "Heyo Raylib!" & Character'Val (0));
--
Main_Loop: loop
exit when Window_Should_Close;
--
Begin_Drawing;
Clear_Background (Blue);
End_Drawing;
end loop Main_Loop;
--
Close_Window;
end Window;
```

9
compile.sh Normal file
View File

@ -0,0 +1,9 @@
#!/bin/bash
set -xe
gnatmake -c window.adb
gnatbind window.ali
gnatlink window.ali -lraylib
exit

3842
raylib.ads Normal file

File diff suppressed because it is too large Load Diff

22
window.adb Normal file
View File

@ -0,0 +1,22 @@
with Raylib;
use Raylib;
procedure Window is
begin
Open_Window (720, 360, "Heyo Raylib!" & Character'Val (0));
Main_Loop: loop
exit when Window_Should_Close;
--
Begin_Drawing;
--
Clear_Background (Blue);
--
End_Drawing;
end loop Main_Loop;
Close_Window;
end Window;