xhads/source/material.adb

-- Copyright (c) 2024 - Ognjen 'xolatile' Milan Robovic
--
-- GNU General Public Licence (version 3 or later)

with core, ui;

package body material is

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

	procedure draw_points (data : in points  := (others => (0, 0));
	                       x    : in integer := 0;
	                       y    : in integer := 0) is
		move_x : integer := x;
	begin
		for index in enumeration loop
			if data (index).value > 0 then
				ui.draw_icon     (icon (index), -(description (index).name), move_x, y);
				ui.draw_text_box (move_x, y + core.icon, core.icon, core.icon);
				ui.write         (data (index).value'image, move_x, y + core.icon + 8, (255, 255, 255, 255), 15, true);
				--
				move_x := move_x + core.icon;
			end if;
		end loop;
	end draw_points;

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

end material;