Preview example and font...

.gitignore

@@ -1,3 +1,4 @@
 *.o
 *.ali
 window
+preview

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

example/texture.adb → 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;