Browse Source

Initial bindings and window example...

master
Ognjen Milan Robovic 2 months ago
parent
commit
2d12d1d819
5 changed files with 3897 additions and 1 deletions
  1. +3
    -0
      .gitignore
  2. +21
    -1
      README.md
  3. +9
    -0
      compile.sh
  4. +3842
    -0
      raylib.ads
  5. +22
    -0
      window.adb

+ 3
- 0
.gitignore View File

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

+ 21
- 1
README.md 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
- 0
compile.sh View File

@@ -0,0 +1,9 @@
#!/bin/bash

set -xe

gnatmake -c window.adb
gnatbind window.ali
gnatlink window.ali -lraylib

exit

+ 3842
- 0
raylib.ads
File diff suppressed because it is too large
View File


+ 22
- 0
window.adb 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;

Loading…
Cancel
Save