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

an imagecabal build && ./raytrace && eog out.png

Browse Source
This commit is contained in:
Nicole Dresselhaus 2014-10-23 18:54:03 +02:00
parent 9205c91cc7
commit 494c03f988
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Main.hs
View File

@ -84,7 +84,7 @@ render w h s index = case pcolls of
(Background (V3 br bg bb)) = sceneBackground s (Background (V3 br bg bb)) = sceneBackground s
pcolls = map fromJust $ filter isJust $ (intersect ray) <$> (sceneObjects s) pcolls = map fromJust $ filter isJust $ (intersect ray) <$> (sceneObjects s)
(Collision pos _ coll) = foldl1 min pcolls (Collision pos _ coll) = foldl1 min pcolls
ray = Ray (center cam) $ rotCam x y w h (eye cam) (up cam) (fovy cam) ray = Ray (eye cam) $ rotCam x y w h (center cam) (up cam) (fovy cam)
cam = sceneCamera s cam = sceneCamera s
y = fromIntegral $ index `mod` w y = fromIntegral $ index `mod` w
x = fromIntegral $ index `div` w x = fromIntegral $ index `div` w