diff options
| -rw-r--r-- | .gitignore | 1 | ||||
| -rw-r--r-- | compile.sh | 5 | ||||
| -rw-r--r-- | example/preview.adb (renamed from example/texture.adb) | 12 | ||||
| -rw-r--r-- | example/resource/alagard.png | bin | 0 -> 49037 bytes |
4 files changed, 15 insertions, 3 deletions
@@ -1,3 +1,4 @@ *.o *.ali window +preview @@ -8,6 +8,11 @@ gnatmake -c window.adb gnatbind window.ali gnatlink window.ali -lraylib +gnatmake -c preview.adb +gnatbind preview.ali +gnatlink preview.ali -lraylib + mv window ../window +mv preview ../preview exit diff --git a/example/texture.adb b/example/preview.adb index c4fa5e2..5836ebe 100644 --- a/example/texture.adb +++ b/example/preview.adb @@ -1,18 +1,24 @@ with Raylib; use Raylib; -procedure Window is +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; - Clear_Background; + Draw_Texture (Map); End_Drawing; end loop Main_Loop; -- + Unload_Texture (Map); + -- Close_Window; -end Window; +end Preview; diff --git a/example/resource/alagard.png b/example/resource/alagard.png Binary files differnew file mode 100644 index 0000000..9b31826 --- /dev/null +++ b/example/resource/alagard.png |
