diff options
| author | xolatile | 2024-04-23 11:44:25 -0400 |
|---|---|---|
| committer | xolatile | 2024-04-23 11:44:25 -0400 |
| commit | 2eafb4d3234dde2e53a099820475fc9ca8e481d4 (patch) | |
| tree | 1448d9db115129cf436e33a13a5328dda417036b /example/preview.adb | |
| parent | b8bcd7014fa1b543e5cf86f0f685efc198d43a75 (diff) | |
| download | xolatile-raylib-ada-2eafb4d3234dde2e53a099820475fc9ca8e481d4.tar.xz xolatile-raylib-ada-2eafb4d3234dde2e53a099820475fc9ca8e481d4.tar.zst | |
Preview example and font...
Diffstat (limited to 'example/preview.adb')
| -rw-r--r-- | example/preview.adb | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/example/preview.adb b/example/preview.adb new file mode 100644 index 0000000..5836ebe --- /dev/null +++ b/example/preview.adb @@ -0,0 +1,24 @@ +with Raylib; +use Raylib; + +procedure Preview is + + Map : Texture := No_Texture; + +begin + Open_Window (1280, 720, "Pandemos Empire" & ASCII.NUL); + -- + Map := Load_Texture ("./example/resource/pandemos.png" & ASCII.NUL); + -- + Main_Loop: loop + exit when Window_Should_Close; + -- + Begin_Drawing; + Draw_Texture (Map); + End_Drawing; + end loop Main_Loop; + -- + Unload_Texture (Map); + -- + Close_Window; +end Preview; |