added README

README.md

@@ -0,0 +1,3 @@
+# htrace - a raytracer in Haskell
+
+This is a little raytracer that i write/wrote for the lecture computergraphics in the winter 14/15.

src/Scene/Renderer.hs

@@ -56,6 +56,7 @@ diffuse (Collision pos n _ obj) s (Light lpos color int) =
                                             else
                                                 ill
         where
+            --        angle of light               *     (color * material)
             ill = (*) (dot n $ normalize lightdir) <$> ((*) <$> color ^* i <*> materialDiffuse mat)
             mat = getMaterial obj
             blocked = raytrace (Ray pos lightdir) s