syncGenerator

------ syncGenerator ------
procedure syncGenerator( signal syncCounter : inout integer;
 signal syncOut         : out std_logic;
 signal blankOut        : out std_logic;
 constant frontPorch    : in natural;
 constant backPorch     : in natural;
 constant dataLen       : in natural;
 constant syncWidth     : in natural) is

 begin
    if (syncCounter <= (frontPorch+backPorch+dataLen+syncWidth)) then
        syncCounter <= syncCounter + 1;
    else
        syncCounter <= 0;
    end if;

    -- området "backPorch" - dette område er "blank" med syncOut = 1
    if (syncCounter < backPorch) then
        blankOut    <= '1';
        syncOut     <= '1';
    -- området "DataLen" - dette område er "ikke blank" med syncOut = 1
    elsif (syncCounter > backPorch and syncCounter < (backPorch + dataLen)) then
        blankOut    <= '0';
        syncOut     <= '1';
    -- området "frontPorch" - dette område er "blank" med syncOut = 1
    elsif (syncCounter > (backPorch + dataLen) and
            syncCounter < (backPorch + dataLen + frontPorch)) then
        blankOut    <= '1';
        syncOut     <= '1';
    -- området "sync" - dette område er "blank" med syncOut = 0 (new line)
    elsif (syncCounter > (backPorch+dataLen+frontPorch) and
            syncCounter < (backPorch + datalen + frontPorch + syncWidth)) then
        blankOut    <= '1';
        syncOut     <= '0';
    end if;
end syncGenerator;