Initial bindings and window example...
This commit is contained in:
parent
d933329180
commit
2d12d1d819
3
.gitignore
vendored
Normal file
3
.gitignore
vendored
Normal file
@ -0,0 +1,3 @@
|
||||
*.o
|
||||
*.ali
|
||||
window
|
22
README.md
22
README.md
@ -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
9
compile.sh
Normal 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
3842
raylib.ads
Normal file
File diff suppressed because it is too large
Load Diff
22
window.adb
Normal file
22
window.adb
Normal 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;
|
Loading…
Reference in New Issue
Block a user