jort-1.0.0: Ray.hs

module Ray where

import Scenes
import Basics
import Camera
import Vectors
import Trace
import Debug.Trace

--rt time = render (sceneCone) cam1  (pi/2) (pi/4) 400 200

rt time = Debug.Trace.trace (show $ animScene time) $
	  render (animScene time) cam1  (pi/2) (pi/4) 400 200


--main = print $ testRT

--testRT = traceRay Scenes.scene1 (pi * 0.5) (pi * 0.5) 1 1