-- Inspiré de http://www.fpga4fun.com/PWM_DAC_2.html

library IEEE;
use IEEE.STD_LOGIC_1164.all;
use IEEE.NUMERIC_STD.ALL;

entity PWM is
    port (
             clk : in std_logic;
             data : in std_logic_vector (7 downto 0) := "00000000";
             pulse : out std_logic
         );
end PWM;

architecture Behavioral of PWM is
    signal  accuI : integer;
    signal  dataI : integer;
begin

    dataI <= to_integer(unsigned(data));

    process(clk, data)
    begin
        if rising_edge(clk) then
            accuI  <=  accuI mod 256 + dataI + 1;
        end if;
    end process;

    pulse <= '1' when accuI >= 256 else '0';
end Behavioral;