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
|
# 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