-- twiddler512.vhd: 512 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 twiddler512 is
  
  port (
    twiddlesel : in  std_logic_vector(8 downto 0);
    twiddlere, twiddleim  : out std_logic_vector(7 downto 0));

end twiddler512;

architecture structural of twiddler512 is

  component twiddlerom512c
        PORT
        (
                address         : IN STD_LOGIC_VECTOR (8 DOWNTO 0);
                q               : OUT STD_LOGIC_VECTOR (7 DOWNTO 0)
        );
  end component;


  component twiddlerom512s
        PORT
        (
                address         : IN STD_LOGIC_VECTOR (8 DOWNTO 0);
                q               : OUT STD_LOGIC_VECTOR (7 DOWNTO 0)
        );
  end component;

  
begin  -- structural

  sinrom : twiddlerom512s port map (
    address => twiddlesel,
    q       => twiddleim);

  cosrom : twiddlerom512c port map (
    address => twiddlesel,
    q       => twiddlere);
  
end structural;