-- | Recursive ray tracing implementation used by 'trace'.
trace' :: Scene -> Ray -> Int -> Colour
trace' _ _ 0 = mempty
trace' :: Scene -> Ray -> Int -> Colour
trace' _ _ 0 = mempty
trace' _ _ 0 = mempty