Preview example and font...

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;