--~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;