xhads/source/ui.adb

--~with core, attribute, skill, menu;
with core, ui;

use ui;

package body ui is

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

	type sprite_array is array (style, codex) of core.sprite;

                                             ------------------------------------------------------------------------------------------

	sprite : sprite_array;

                                             ------------------------------------------------------------------------------------------

	procedure configure is
		procedure load_ui (index : in style; folder_path : in string) is
		begin
			for this in codex
			loop
				sprite (index, this) := core.load_sprite ("./sprite/ui/" & folder_path & core.lowercase (codex'image (this)) & ".png", 1, 1);
			end loop;
		end load_ui;
	begin
		load_ui (default, "default/");
		load_ui (steam,   "steam/");
		--~load_ui (yd,      "yd/");
		--
		active := default;
	end configure;

                                             ------------------------------------------------------------------------------------------

	procedure draw (index : in codex; x, y : in integer) is
	begin
		core.draw (sprite (active, index), x, y);
	end draw;

                                             ------------------------------------------------------------------------------------------

	procedure crop (index : in codex; x, y, u, v, width, height : in integer) is
	begin
		core.crop (sprite (active, index), x, y, u, v, width, height);
	end crop;

                                             ------------------------------------------------------------------------------------------

	procedure draw_horizontally (index : in codex; x, y, width : in integer) is
		base : constant integer := sprite (active, index).width;
	begin
		for move in 0 .. width / base - 1
		loop
			draw (index, x + move * base, y);
		end loop;
		--
		crop (index, x + (width / base) * base, y, 0, 0, width mod base, sprite (active, index).height);
	end draw_horizontally;

                                             ------------------------------------------------------------------------------------------

	procedure draw_vertically (index : in codex; x, y, height : in integer) is
		base : constant integer := sprite (active, index).height;
	begin
		for move in 0 .. height / base - 1
		loop
			draw (index, x, y + move * base);
		end loop;
		--
		crop (index, x, y + (height / base) * base, 0, 0, sprite (active, index).width, height mod base);
	end draw_vertically;

                                             ------------------------------------------------------------------------------------------

	procedure draw_background (index : in codex; x, y, width, height : in integer) is
		base_width  : integer := sprite (active, index).width;
		base_height : integer := sprite (active, index).height;
		crop_width  : integer := width  mod base_width;
		crop_height : integer := height mod base_height;
	begin
		for move_y in 0 .. height / base_height - 1
		loop
			for move_x in 0 .. width / base_width - 1
			loop
				draw (index, x + move_x * base_width, y + move_y * base_height);
			end loop;
			--
			crop (index, x + width - crop_width, y + move_y * base_height, 0, 0, crop_width, base_height);
		end loop;
		--
		for move_x in 0 .. width / base_width - 1
		loop
			crop (index, x + move_x * base_width, y + height - crop_height, 0, 0, base_width, crop_height);
		end loop;
		--
		crop (index, x + width - crop_width, y + height - crop_height, 0, 0, crop_width, crop_height);
	end draw_background;

                                             ------------------------------------------------------------------------------------------

	procedure draw_frame (x, y, width, height : in integer) is
		offset_x : constant integer := sprite (active, frame_middle).width;
		offset_y : constant integer := sprite (active, frame_middle).height;
	begin
		if width  < 2 * offset_x or height < 2 * offset_y then
			crop (frame_upper_left,  x,             y,              0,                    0,                     width / 2, height / 2);
			crop (frame_upper_right, x + width / 2, y,              offset_x - width / 2, 0,                     width / 2, height / 2);
			crop (frame_lower_left,  x,             y + height / 2, 0,                    offset_y - height / 2, width / 2, height / 2);
			crop (frame_lower_right, x + width / 2, y + height / 2, offset_x - width / 2, offset_y - height / 2, width / 2, height / 2);
			return;
		end if;
		draw_background (frame_middle, x + offset_x, y + offset_y, width - 2 * offset_x, height - 2 * offset_y);
		--
		draw_horizontally (frame_upper, x + offset_x,         y,                     width  - 2 * offset_x);
		draw_horizontally (frame_lower, x + offset_x,         y + height - offset_y, width  - 2 * offset_x);
		draw_vertically   (frame_left,  x,                    y + offset_y,          height - 2 * offset_y);
		draw_vertically   (frame_right, x + width - offset_x, y + offset_y,          height - 2 * offset_y);
		--
		draw (frame_upper_left,  x,                                                    y);
		draw (frame_upper_right, x + width - sprite (active, frame_upper_right).width, y);
		draw (frame_lower_left,  x,                                                    y + height - sprite (active, frame_lower_left).height);
		draw (frame_lower_right, x + width - sprite (active, frame_lower_right).width, y + height - sprite (active, frame_lower_right).height);
	end draw_frame;

                                             ------------------------------------------------------------------------------------------

	procedure draw_title_bar (x, y, width : in integer; title : in string) is
		middle_width : constant integer := width - sprite (active, title_bar_left).width - sprite (active, title_bar_right).width;
	begin
		draw (title_bar_left,  x,                                                        y - sprite (active, title_bar_left).height);
		draw (title_bar_right, x + middle_width + sprite (active, title_bar_left).width, y - sprite (active, title_bar_right).height);
		--
		draw_horizontally (title_bar_middle, x + sprite (active, title_bar_left).width, y - sprite (active, title_bar_middle).height, middle_width);
		--
		core.write (title, x + sprite (active, title_bar_left).width - 12, y - sprite (active, title_bar_middle).height + 24, 16#CCCCCC#);
	end draw_title_bar;

                                             ------------------------------------------------------------------------------------------

	procedure draw_menu (x, y, width, height : in integer; background : in boolean) is
		offset : constant integer := sprite (active, none).width;
	begin
		if width  < sprite (active, corner_upper_left).width   + sprite (active, corner_upper_right).width
		or width  < sprite (active, corner_lower_left).width   + sprite (active, corner_lower_right).width
		or height < sprite (active, corner_upper_left).height  + sprite (active, corner_lower_left).height
		or height < sprite (active, corner_upper_right).height + sprite (active, corner_lower_right).height
			then return;
		end if;
		--
		if background then
			draw_background (main_background, x + offset, y + offset, width - 2 * offset, height - 2 * offset);
		end if;
		--
		declare
			upper : constant integer := width  - sprite (active, corner_upper_left).width   - sprite (active, corner_upper_right).width;
			lower : constant integer := width  - sprite (active, corner_lower_left).width   - sprite (active, corner_lower_right).width;
			left  : constant integer := height - sprite (active, corner_upper_left).height  - sprite (active, corner_lower_left).height;
			right : constant integer := height - sprite (active, corner_upper_right).height - sprite (active, corner_lower_right).height;
		begin
			draw_horizontally (border_upper, x + sprite (active, corner_upper_left).width,    y,                                                 upper);
			draw_horizontally (border_lower, x + sprite (active, corner_lower_left).width,    y + height - sprite (active, border_lower).height, lower);
			draw_vertically   (border_left,  x,                                               y + sprite (active, corner_upper_left).height,     left);
			draw_vertically   (border_right, x + width - sprite (active, border_right).width, y + sprite (active, corner_upper_right).height,    right);
		end;
		--
		draw (corner_upper_left,  x,                                                     y);
		draw (corner_upper_right, x + width - sprite (active, corner_upper_right).width, y);
		draw (corner_lower_left,  x,                                                     y + height - sprite (active, corner_lower_left).height);
		draw (corner_lower_right, x + width - sprite (active, corner_lower_right).width, y + height - sprite (active, corner_lower_right).height);
	end draw_menu;

                                             ------------------------------------------------------------------------------------------

	procedure draw_tiny_menu (x, y, width, height : in integer; background : in boolean) is
		offset : constant integer := sprite (active, none).width;
	begin
		if width  < sprite (active, tiny_corner_upper_left).width   + sprite (active, tiny_corner_upper_right).width
		or width  < sprite (active, tiny_corner_lower_left).width   + sprite (active, tiny_corner_lower_right).width
		or height < sprite (active, tiny_corner_upper_left).height  + sprite (active, tiny_corner_lower_left).height
		or height < sprite (active, tiny_corner_upper_right).height + sprite (active, tiny_corner_lower_right).height
			then return;
		end if;
		--
		if background then
			draw_background (main_background, x + offset, y + offset, width - 2 * offset, height - 2 * offset);
		end if;
		--
		declare
			upper : constant integer := width  - sprite (active, tiny_corner_upper_left).width   - sprite (active, tiny_corner_upper_right).width;
			lower : constant integer := width  - sprite (active, tiny_corner_lower_left).width   - sprite (active, tiny_corner_lower_right).width;
			left  : constant integer := height - sprite (active, tiny_corner_upper_left).height  - sprite (active, tiny_corner_lower_left).height;
			right : constant integer := height - sprite (active, tiny_corner_upper_right).height - sprite (active, tiny_corner_lower_right).height;
		begin
			draw_horizontally (tiny_border_upper, x + sprite (active, tiny_corner_upper_left).width,    y,                                                      upper);
			draw_horizontally (tiny_border_lower, x + sprite (active, tiny_corner_lower_left).width,    y + height - sprite (active, tiny_border_lower).height, lower);
			draw_vertically   (tiny_border_left,  x,                                                    y + sprite (active, tiny_corner_upper_left).height,     left);
			draw_vertically   (tiny_border_right, x + width - sprite (active, tiny_border_right).width, y + sprite (active, tiny_corner_upper_right).height,    right);
		end;
		--
		draw (tiny_corner_upper_left,  x,                                                          y);
		draw (tiny_corner_upper_right, x + width - sprite (active, tiny_corner_upper_right).width, y);
		draw (tiny_corner_lower_left,  x,                                                          y + height - sprite (active, tiny_corner_lower_left).height);
		draw (tiny_corner_lower_right, x + width - sprite (active, tiny_corner_lower_right).width, y + height - sprite (active, tiny_corner_lower_right).height);
	end draw_tiny_menu;

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

end ui;