diff options
| author | xolatile | 2024-04-23 08:59:03 -0400 |
|---|---|---|
| committer | xolatile | 2024-04-23 08:59:03 -0400 |
| commit | fba5a579897a9ce35d452a6ca0352aff04b3880d (patch) | |
| tree | 3b13ba6c2c8b01e64e4183c4db6a735ef914dcd8 | |
| parent | f05a1e26cdce8e38c5767591e1d3e853adc5807e (diff) | |
| download | xolatile-raylib-ada-fba5a579897a9ce35d452a6ca0352aff04b3880d.tar.xz xolatile-raylib-ada-fba5a579897a9ce35d452a6ca0352aff04b3880d.tar.zst | |
Window example and texture...
| -rw-r--r-- | example/resource/texture.png | bin | 0 -> 216896 bytes | |||
| -rw-r--r-- | example/window.adb | 19 |
2 files changed, 19 insertions, 0 deletions
diff --git a/example/resource/texture.png b/example/resource/texture.png Binary files differnew file mode 100644 index 0000000..e9b69e9 --- /dev/null +++ b/example/resource/texture.png diff --git a/example/window.adb b/example/window.adb new file mode 100644 index 0000000..52f6c17 --- /dev/null +++ b/example/window.adb @@ -0,0 +1,19 @@ +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 (Ray_White); + Draw_Text ("Heyo Raylib, greetings from Ada!" & Character'Val (0), 4, 4, 32, Black); + Draw_Text ("Press Escape key to exit program." & Character'Val (0), 4, 36, 32, Black); + End_Drawing; + end loop Main_Loop; + -- + Close_Window; +end Window; |
