library ieee;
use ieee.std_logic_1164.all;

entity hexto7seg4 is 
port ( hex_digit4 : in std_logic_vector(3 downto 0);
	   segment4 :out std_logic_vector(6 downto 0)
	 );

end hexto7seg4;

architecture hexto7seg_a of hexto7seg4 is

begin

process(hex_digit4)

begin

case hex_digit4 is

	when "0000" => segment4 <= "1000000" ;
	when "0001" => segment4 <= "1111001" ;
	when "0010" => segment4 <= "0100100" ;
	when "0011" => segment4 <= "0110000" ;
	when "0100" => segment4 <= "0011001" ;
	when "0101" => segment4 <= "0010010" ;
	when "0110" => segment4 <= "0000010" ;
	when "0111" => segment4 <= "1111000" ;
	when "1000" => segment4 <= "0000000" ;
	when "1001" => segment4 <= "0010000" ;
	when "1010" => segment4 <= "0001000" ;
	when "1011" => segment4 <= "0000011" ;
	when "1100" => segment4 <= "1000110" ;
	when "1101" => segment4 <= "0100001" ;
	when "1110" => segment4 <= "0000110" ;
	when "1111" => segment4 <= "0001110" ;
	when others => segment4 <= "1000000" ;
end case ; 
end process;
end hexto7seg_a;