See also this perl submission for icfp contest 2000. Admittedly it's not the same, it's a simplified (fast) ray tracing task which does not consider rays that are diffusely reflected more than once or that are reflected at least once before diffusely reflected.