-- twiddler8.vhd: 8-bit twiddle factor generator
-- Dan R. K. Ports <drkp@mit.edu>
-- 6.111 final project, 2003/12/05

library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_arith.all;
use ieee.std_logic_signed.all;

entity twiddler8 is
  
  port (
    twiddlesel : in  std_logic_vector(8 downto 0);
    twiddlere, twiddleim  : out std_logic_vector(7 downto 0));

end twiddler8;

architecture structural of twiddler8 is

  component twiddlerom8c
        PORT
        (
                address         : IN STD_LOGIC_VECTOR (2 DOWNTO 0);
                q               : OUT STD_LOGIC_VECTOR (7 DOWNTO 0)
        );
  end component;


  component twiddlerom8s
        PORT
        (
                address         : IN STD_LOGIC_VECTOR (2 DOWNTO 0);
                q               : OUT STD_LOGIC_VECTOR (7 DOWNTO 0)
        );
  end component;

  
begin  -- structural

  sinrom : twiddlerom8s port map (
    address => twiddlesel(2 downto 0),
    q       => twiddleim);

  cosrom : twiddlerom8c port map (
    address => twiddlesel(2 downto 0),
    q       => twiddlere);
  
end structural;