diff options
Diffstat (limited to 'example/window.adb')
| -rw-r--r-- | example/window.adb | 19 |
1 files changed, 19 insertions, 0 deletions
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; |