Drezil/htrace
1
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

comment

Browse Source
This commit is contained in:
Nicole Dresselhaus 2014-12-04 01:08:04 +01:00
parent 66f728f2ba
commit b3749c3f53
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Scene/Renderer.hs
View File

@ -205,8 +205,8 @@ intersect r@(Ray ro rd) m@(M (Mesh s _ v f vn fn b)) = case catMaybes . elems $
det2 = det2v ^. _x >= 0 && det2v ^. _y >= 0 det2 = det2v ^. _x >= 0 && det2v ^. _y >= 0
&& det2v ^. _x + det2v ^. _y <= 1 && det2v ^. _x + det2v ^. _y <= 1
vns = normalize $ vns = normalize $
--(0.5 - sqrt ((sqr (det2v ^. _x) + sqr (det2v ^. _y))/2)) *^ (vnorm IM.! w1) --(0.5 - sqrt ((sqr (det2v ^. _x) + sqr (det2v ^. _y))/2)) *^ (vnorm IM.! w1) -- << this one should be correct
(1 - det2v ^. _x - det2v ^. _y) *^ (vnorm IM.! w1) (1 - det2v ^. _x - det2v ^. _y) *^ (vnorm IM.! w1) -- << this one works better..
+ ((det2v ^. _x)/2) *^ (vnorm IM.! w2) + ((det2v ^. _x)/2) *^ (vnorm IM.! w2)
+ ((det2v ^. _y)/2) *^ (vnorm IM.! w3) + ((det2v ^. _y)/2) *^ (vnorm IM.! w3)
sqr = \x -> x * x sqr = \x -> x * x