Subversion Repositories jart

-- Author : Julian Andres Guarin Reyes.

-- Project : JART, Just Another Ray Tracer.

-- email : jguarin2002 at gmail.com, j.guarin at javeriana.edu.co

-- This code was entirely written by Julian Andres Guarin Reyes.

-- The following code is licensed under GNU Public License

-- http://www.gnu.org/licenses/gpl-3.0.txt.

 -- This file is part of JART (Just Another Ray Tracer).

    -- JART (Just Another Ray Tracer) is free software: you can redistribute it and/or modify

    -- it under the terms of the GNU General Public License as published by

    -- the Free Software Foundation, either version 3 of the License, or

    -- (at your option) any later version.

    -- JART (Just Another Ray Tracer) is distributed in the hope that it will be useful,

    -- but WITHOUT ANY WARRANTY; without even the implied warranty of

    -- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

    -- GNU General Public License for more details.

    -- You should have received a copy of the GNU General Public License

    -- along with JART (Just Another Ray Tracer).  If not, see <http://www.gnu.org/licenses/>.

-- The following HDL compares 2 32 bit numbers instantiating a comparator.   

-- vd is one operand and k the other.

-- i is the result 1 if vd is grater or equal than k.

-- The comparator instantiation is called intersection, cause this block function is to decide wheter or not a ray intersects a sphere making the vd and k, 

-- comparison.

library ieee;

use ieee.std_logic_1164.all;

entity bl01 is

        port (

                vd:     in std_logic_vector (31 downto 0);

                k :     in std_logic_vector (31 downto 0);

                i :     out std_logic

        );

end entity;

architecture rtl of bl01 is

        component compare_A15_16 is

        port

        (

                dataa           : in std_logic_vector(31 downto 0);

                datab           : in std_logic_vector(31 downto 0);

                AgeB            : out std_logic

        );

        end component;

begin

        intersection : compare_A15_16 port map ( dataa => vd, datab => k, AgeB => i);

end rtl;