Fixed fresnel blend missing costo factor for diffuse part, resulting in too much light being reflected.

waldheinz · waldheinz · commit dfcf53032f39 · 2013-03-11T09:50:54.000+01:00
diff --git a/src/Graphics/Bling/Reflection/Microfacet.hs b/src/Graphics/Bling/Reflection/Microfacet.hs
@@ -73,7 +73,8 @@ mkFresnelBlend rd rs ra dist depth = mkBxDF [Reflection, Glossy] e s p where
             else white
          
          -- diffuse
-         diff = sScale (a * rd * (white - rs)) $ (28 / 23 * pi) *
+         diff = sScale (a * rd * (white - rs)) $
+               (costo * 28 / 23 * pi) *
                (1 - ((1 - 0.5 * costi) ** 5)) *
                (1 - ((1 - 0.5 * costo) ** 5))
             
