Preview example and font...

diff --git a/.gitignore b/.gitignore
index 38b4169480bb88dd9629e1ee1b6e433f34755541..0da3e994e1eefc7706196d6a95895aac49fd50bf 100644 (file)
--- a/.gitignore
+++ b/.gitignore
@@ -1,3 +1,4 @@
 *.o
 *.ali
 window
+preview

diff --git a/compile.sh b/compile.sh
index 910308119f81e43ce82c932253e540ca9283b507..c88d79ad40fa1bfb14fffff1cbad7e45cf9ff4a1 100644 (file)
--- 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/preview.adb b/example/preview.adb
new file mode 100644 (file)
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;

diff --git a/example/resource/alagard.png b/example/resource/alagard.png
new file mode 100644 (file)
index 0000000..9b31826
Binary files /dev/null and b/example/resource/alagard.png differ

diff --git a/example/texture.adb b/example/texture.adb
deleted file mode 100644 (file)
index c4fa5e2..0000000
--- a/example/texture.adb
+++ /dev/null
@@ -1,18 +0,0 @@
-with Raylib;
-use  Raylib;
-
-procedure Window is
-
-begin
-   Open_Window (1280, 720, "Pandemos Empire" & ASCII.NUL);
-   --
-   Main_Loop: loop
-      exit when Window_Should_Close;
-      --
-      Begin_Drawing;
-      Clear_Background;
-      End_Drawing;
-   end loop Main_Loop;
-   --
-   Close_Window;
-end Window;