Minor Core drawing changes and 4 new item sprites...

source/core.adb

@@ -336,10 +336,10 @@ package body core is
 		ray.set_window_flags (ray.flag_window_resizable);
 		--
 		echo (comment, "-- Initializing Raylib window data...");
-		echo (comment, "-- -- Window title  : Chads of Might & Magic");
+		echo (comment, "-- -- Window title  : Xorana");
 		echo (comment, "-- -- Window width  : 1800");
 		echo (comment, "-- -- Window height : 900");
-		ray.open_window (1800, 900, "Chads of Might & Magic");
+		ray.open_window (1800, 900, "Xorana");
 		--
 		echo (comment, "-- Initializing Raylib audio device data...");
 		ray.open_audio_device;

source/ui.adb

@@ -85,15 +85,11 @@ package body ui is
                                              ------------------------------------------------------------------------------------------
 
 	procedure draw_horizontally (index : in element; x, y, width : in integer; action : core.pointer := core.idle_skip'access) is
-		step : constant integer := sprite (active, index).width;
+		save_zoom : natural := core.zoom;
 	begin
-		for move in 0 .. width / step - 1 loop
+		core.zoom := 1;
-			draw (index, x + move * step,y);
+		core.draw_horizontally (sprite (active, index), x, y, width);
-		end loop;
+		core.zoom := save_zoom;
-		--
-		if width mod step > 0 then
-			draw (index, x + (width / step) * step, y, width mod step, sprite (active, index).height);
-		end if;
 		--
 		--~if core.cursor_mode = 1 and cursor_inside (x, y, width, sprite (active, index).height) then
 			--~action.all;
@@ -104,15 +100,11 @@ package body ui is
                                              ------------------------------------------------------------------------------------------
 
 	procedure draw_vertically (index : in element; x, y, height : in integer; action : core.pointer := core.idle_skip'access) is
-		step : constant integer := sprite (active, index).height;
+		save_zoom : natural := core.zoom;
 	begin
-		for move in 0 .. height / step - 1 loop
+		core.zoom := 1;
-			draw (index, x, y + move * step);
+		core.draw_vertically (sprite (active, index), x, y, height);
-		end loop;
+		core.zoom := save_zoom;
-		--
-		if height mod step > 0 then
-			draw (index, x, y + (height / step) * step, sprite (active, index).width, height mod step);
-		end if;
 		--
 		--~if core.cursor_mode = 1 and cursor_inside (x, y, sprite (active, index).width, height) then
 			--~action.all;