--DISPLAY

library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.STD_LOGIC_ARITH.ALL;
use IEEE.STD_LOGIC_UNSIGNED.ALL;


entity DISPLAY is
    port(
        CLK_i : in STD_LOGIC;
        RST_i : in STD_LOGIC;														-- ostrzega że reset nie jest używany, ale tutaj i tak nie może być użyte, więc nie trzeba przejmować się tym ostrzeżeniem za bardzo; można ew. zakomentować tę linijkę - wtedy będzie już cutmiut zielono, przynajmniej w syntezie
        SW : in STD_LOGIC_vector (7 downto 0);
        BTN : in STD_LOGIC_vector (3 downto 0);
        AN : out STD_LOGIC_vector (3 downto 0);
        SEG : out STD_LOGIC_vector (7 downto 0)
    );
end DISPLAY;

architecture Behavioral of DISPLAY is

    signal BTN_ktory : STD_LOGIC_vector (3 downto 0) := "0000";
    signal DGT_teraz : STD_LOGIC_vector (31 downto 0) := "11111111111111111111111111111111";
    signal CLK_1kHz : STD_LOGIC;

   component dzielnik_czt is
    port (
          CLK_i: in  STD_LOGIC;
        RST_i  : in  STD_LOGIC;
        led7 : out STD_LOGIC
        );
    end component;

    component wyswietlacz
        port (CLK_i : in  STD_LOGIC;
           RST_i : in  STD_LOGIC;
           DGT_i : in  STD_LOGIC_VECTOR (31 downto 0);
           AN : out  STD_LOGIC_VECTOR (3 downto 0);
           SEG : out  STD_LOGIC_VECTOR (7 downto 0));
   end component;


    function zamiana(SW: STD_LOGIC_VECTOR (3 downto 0)) return STD_LOGIC_VECTOR is
        begin
        case SW is
              when "0000" => return "0000001"; -- 0
              when "0001" => return "1001111"; -- 1
              when "0010" => return "0010010"; -- 2
              when "0011" => return "0000110"; -- 3
              when "0100" => return "1001100"; -- 4
              when "0101" => return "0100100"; -- 5
              when "0110" => return "0100000"; -- 6
              when "0111" => return "0001111"; -- 7
              when "1000" => return "0000000"; -- 8
              when "1001" => return "0000100"; -- 9
              when "1010" => return "0000010"; -- a
              when "1011" => return "1100000"; -- b
              when "1100" => return "0110001"; -- C
              when "1101" => return "1000010"; -- d
              when "1110" => return "0110000"; -- E
              when "1111" => return "0111000"; -- F
				  when others => return "1111111"; -- wygaszenie						-- z jakichś powodów nawet gdy są wszystkie możliwe wartości, to narzeka, że nie ma linijki "when others", a właściwie to się buntuje
        end case;
    end function zamiana;


    begin
    dzielonko: dzielnik_czt port map(
                                      CLK_i => CLK_i,
                             RST_i => '0',
                             led7 => CLK_1kHz);

    wyswietlanko: wyswietlacz port map(
                                      CLK_i => CLK_1kHz,
                             RST_i => '0',
                             DGT_i => DGT_teraz,
                             AN => AN,
                             SEG => SEG);

    ustawianie : process(CLK_i)
      begin
        if(rising_edge(CLK_i)) then
            BTN_ktory <= BTN;            --wyswietlanie wybranej liczby
                DGT_teraz(0) <= not SW(4);   --dodawanie kropek
                DGT_teraz(8) <= not SW(5);
                DGT_teraz(16) <= not SW(6);
                DGT_teraz(24) <= not SW(7);


            if(BTN_ktory = "1110") then
                DGT_teraz(7 downto 1) <= zamiana(SW(3 downto 0));     		  -- DGT_teraz jako całość ma 32 bity; "szuflada" z informacją, które segmenty mają być
																									  -- pokazane na ostatnim wyświetlaczu (wybóra ostatniego batona, 1110) musi być 7-bitowa
            elsif(BTN_ktory = "1101") then                						  -- (tak jak to jest zapisane w funkcji) i być przechowywana we wskazanym miejscu komody
                DGT_teraz(15 downto 9) <= zamiana(SW(3 downto 0));    		  -- o nazwie "DG_teraz" - trzeba wskazać w której części 32 bitowego wektora ma być 7-bitowy
																									  -- wektor (tak na prawdę ta szuflada jest 8-bitowa, ale jeden bit jest już zajęty przez skarpetę
            elsif(BTN_ktory = "1011") then                						  -- o nazwie kropka na wyświetlaczu i przypisany w wierszach 84-87, więc bity te pomijamy
                DGT_teraz(23 downto 17) <= zamiana(SW(3 downto 0));    		  -- podczas "wkładania" zawartość switchy tylko do szufladek)

            elsif(BTN_ktory = "0111") then											  -- czyli np. DGT_teraz(15 downto 9) <= ... zamiast samego DGT_teraz <= ...
                DGT_teraz(31 downto 25) <= zamiana(SW(3 downto 0));

            else DGT_teraz<= DGT_teraz;

            end if;
        end if;

    end process;
-- puste szuflady:
--			31-24				dla wyświetlacza				0111 (AN3)
--			23-16				dla wyświetlacza				1011 (AN2)
--			15-8				dla wyświetlacza				1101 (AN1)
--			 7-0				dla wyświetlacza				1110 (AN0)
--
--
-- wolne miejsca w szufladzie, gdy leżą w nich śmierdzonce skarpety (wolne, tzn przeznaczone dla segmentów):
--			31-25 (przesunięcie ostatniej pozycji o +1 w górę, bo nie możemy jej zająć, długość szufladki skraca się o 1)
--			23-17 (16+1)
--			15-9  (8+1)
--			 7-1	(0+1)
end Behavioral;