samples :: Render -> [(Double, Double, Double, Double)]
samples r@(Render (w, h)) = [(mkSample r (fromIntegral x) (fromIntegral y)) | y <- [0..h - 1], x <- [0..w - 1]]
samples :: Render -> [(Double, Double, Double, Double)]
samples r@(Render (w, h)) = [(mkSample r (fromIntegral x) (fromIntegral y)) | y <- [0..h - 1], x <- [0..w - 1]]
samples r@(Render (w, h)) = [(mkSample r (fromIntegral x) (fromIntegral y)) | y <- [0..h - 1], x <- [0..w - 1]]