diff options
Diffstat (limited to 'raytracer.hs')
| -rw-r--r-- | raytracer.hs | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/raytracer.hs b/raytracer.hs index 899b922..f33a87f 100644 --- a/raytracer.hs +++ b/raytracer.hs @@ -21,8 +21,8 @@ oversampling = 2 -- each pixel is 2x2 rays ov_alphaoffset = ((alpha2 - alpha1) / (w-1)) / oversampling ov_betaoffset = ((beta2 - beta1) / (h-1)) / oversampling -ov_alphaoffsets = take oversampling [0,ov_alphaoffset..] -ov_betaoffsets = take oversampling [0,ov_betaoffset..] +ov_alphaoffsets = take (round oversampling) [0,ov_alphaoffset..] +ov_betaoffsets = take (round oversampling) [0,ov_betaoffset..] imgheader = "P3 " ++ (show w) ++ " " ++ (show h) ++ " 255\n" @@ -68,8 +68,8 @@ pixel_to_ppm (r,g,b) = show r ++ " " ++ show g ++ " " ++ show b ++ "\n" -- from one pixel alpha beta, get a list of oversampled pixels --oversample (a,b) = (cartProd ov_alphaoffsets ov_betaoffsets) --- allpixels = map (uncurry pixel_color) (cartProdTranspose betas alphas) +allpixels = map (uncurry pixel_color) (cartProdTranspose betas alphas) ---image = imgheader ++ (foldr (++) "" (map pixel_to_ppm allpixels)) +image = imgheader ++ (foldr (++) "" (map pixel_to_ppm allpixels)) ---main = writeFile "foo.ppm" image +main = writeFile "foo.ppm" image |