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

File reordering, installation script, more...

Browse Source
This commit is contained in:
Ognjen Milan Robovic 2024-04-23 08:58:19 -04:00
parent 2987e6fb0d
commit f05a1e26cd
4 changed files with 11 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compile.sh
View File

@ -2,8 +2,12 @@
set -xe
cd example
gnatmake -c window.adb
gnatbind window.ali
gnatlink window.ali -lraylib
mv window ../window
exit

7
install.sh Normal file
View File

@ -0,0 +1,7 @@
#!/bin/bash
set -xe
cp raylib.ads /usr/lib/gcc/x86_64-linux-gnu/8/adainclude/raylib.ads
exit

BIN
texture.png
View File

Binary file not shown.
Side by Side

Before

Width:  |  Height:  |  Size: 212 KiB

51
window.adb
View File

@ -1,51 +0,0 @@
with Raylib;
use Raylib;
procedure Window is
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;
X : Integer := 120;
Y : Integer := 120;
begin
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 (C_String ("./texture.png"));
Main_Loop: loop
exit when Window_Should_Close;
--
Begin_Drawing;
--
Clear_Background (Sky_Blue);
Draw_Texture (Dragdown, 100, 100, White);
Draw_Text (Text, 90, 90);
Draw_FPS (X, Y);
Draw_Line (0, 0, 300, 300, Black);
Draw_Rectangle (120, 120, 30, 60, Blue);
--
if Is_Key_Pressed (Key_W) then Y := Y - 10; end if;
if Is_Key_Pressed (Key_S) then Y := Y + 10; end if;
if Is_Key_Pressed (Key_A) then X := X - 10; end if;
if Is_Key_Pressed (Key_D) then X := X + 10; end if;
--
End_Drawing;
end loop Main_Loop;
Unload_Texture (Dragdown);
Close_Window;
end Window;