-- Code pour TP3 : VHDL Séquentiel, comptage du temps

entity blinker is
	port(Clk100MHz, PB_0 : in bit;
	LED_0 : out bit);
end blinker;

architecture Behavioral of blinker is
	alias reset is PB_0; -- alias pour le signal de rinitialisation
	signal clk_out : bit := '0'; -- signal d'horloge aprs division

	-- Constante de division, ici pour une sortie  1Hz.
	constant clock_divisor : integer := 100000000;
begin
	-- Diviseur de frquence : divise la frquence du signal Clk100MHz par clock_div.
	clock_divider : process(Clk100MHz, reset)
	variable c : integer range 0 to clock_divisor - 1 := 0;
	begin
	if reset = '1' then
		c := 0;
		clk_out <= '0';
	elsif (Clk100MHz'event and Clk100MHz = '1') then
		if c < (clock_divisor - 1) / 2 then
			c := c + 1;
			clk_out <= '0';
		elsif c = (clock_divisor - 1) then
			c := 0;
			clk_out <= '0';
		else
			c := c + 1;
			clk_out <= '1';
		end if;
	end if;
	end process;
	-- Sortie sur la LED
	LED_0 <= clk_out;

end Behavioral;


entity feux is
port(clk, PB_0 : in bit;
	LED_3210, LED_7654 : out integer range 0 to 7);
end feux;

architecture rouge of feux is

begin
process(clk, PB_0)
-- variables
variable compteur : integer range 0 to 20;
variable etat : integer range 0 to 3;
begin
	if(PB_0 = '1') then
		compteur := 0;
		etat := 0;
	elsif(clk'event and clk='1') then
		case etat is
			when 0 => if (compteur < 8) then
				compteur := compteur + 1;
				else
					etat := 1;
				end if;
			when 1 => if (compteur < 10) then
				compteur := compteur + 1;
				else
					etat := 2;
				end if;
			when 2 => if (compteur < 18) then
				compteur := compteur + 1;
				else
					etat := 3;
				end if;
			when 3 => if (compteur < 20) then
				compteur := compteur + 1;
				else
					etat := 0;
					compteur := 0;
				end if;
			when others => etat := 0; compteur := 0;
		end case;
		end if;	
		
		case etat is 
			when 0 => LED_3210 <= 1; LED_7654 <= 4;
			when 1 => LED_3210 <= 2; LED_7654 <= 4;
			when 2 => LED_3210 <= 4; LED_7654 <= 1;
			when 3 => LED_3210 <= 4; LED_7654 <= 2;
		end case;
		end process;
end rouge;


entity feu_final is
	port(Clk100MHz, PB_0 : in bit;
	LED_3210, LED_7654 : out integer range 0 to 7);
end feu_final;

architecture Bhv of feu_final is

	component blinker is
	port(Clk100MHz, PB_0 : in bit;
		LED_0 : out bit);
	end component blinker;
	
	component feux is
	port(clk, PB_0 : in bit;
		LED_3210, LED_7654 : out integer range 0 to 7);
	end component feux;
	
signal clock : bit;

begin
	C1 : blinker port map(Clk100MHz, PB_0, clock);
	C2 : feux port map(clock, PB_0, LED_3210, LED_7654);
end Bhv;