Preview example and font...

4 files changed, 15 insertions, 3 deletions

diff --git a/.gitignore b/.gitignore
index 38b4169..0da3e99 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,3 +1,4 @@
 *.o
 *.ali
 window
+preview
diff --git a/compile.sh b/compile.sh
index 9103081..c88d79a 100644
--- a/compile.sh
+++ b/compile.sh
@@ -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
new file mode 100644
index 0000000..9b31826
--- /dev/null
+++ b/example/resource/alagard.png