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/>.library ieee;
 
-- Zu synthesises the z and x components of the unitary vectors along an image vertical and/or horizontal line respectively. 
-- For the jart project Zu must be used with the following values:
-- When synthesising X , VALSTART must be 34, when synthesising Z, VALSTART must be 9. 	
 
 
library ieee;	
use ieee.std_logic_1164.all;
use ieee.std_logic_signed.all;
 
 
entity zu is 
	generic
	(
		VALSTART		: integer := 9 
		TOP				: integer := 1024;
	);
	port (
 
		clk, rst, ena 	: in std_logic; -- The usual control signals
		clr				: in std_logic;
		zpos			: out integer range -TOP to TOP-1;
		zneg			: out integer range -TOP to TOP-1;	
	);
 
end entity;
 
architecture rtl of zu is
 
begin
 
	process (clk,rst,ena,clr)
		variable pivot	: integer range 0 to 31;
		variable z 	: integer range  -1024 to 1023;
	begin
 
		if rst='0' then
 
			zpos<=VALSTART;
			zneg<=-VALSTART;
			z:=VALSTART;
			pivot:=0;
 
		elsif rising_edge(clk) and ena='1' then
 
			if clr='1' then
				z:=VALSTART;
				pivot:=0;
			elsif pivot = 0 then 
				z:=z+3;
				pivot:=1;
			else 
				z:=z+2;
				pivot:=0;
			end if;
 
			zpos <= z;
			zneg <=-z;
		end if;	
 
	end process;
 
end rtl;