Window example and texture...

diff --git a/example/resource/texture.png b/example/resource/texture.png
new file mode 100644 (file)
index 0000000..e9b69e9
Binary files /dev/null and b/example/resource/texture.png differ

diff --git a/example/window.adb b/example/window.adb
new file mode 100644 (file)
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;