trace :: S.Scene -> V.Vector R.Ray -> V.Vector EXR.PixelRGBF
trace s = (<$>) (maybe (EXR.PixelRGBF 0 0 0) (shade . snd)) . S.intersect s
trace :: S.Scene -> V.Vector R.Ray -> V.Vector EXR.PixelRGBF
trace s = (<$>) (maybe (EXR.PixelRGBF 0 0 0) (shade . snd)) . S.intersect s
trace s = (<$>) (maybe (EXR.PixelRGBF 0 0 0) (shade . snd)) . S.intersect s