bracket lower_threshold upper_threshold x
| x < lower_threshold = 0
| x > upper_threshold = 255
- | otherwise = truncate (r * 255)
+ | otherwise = truncate (r * 255)
where
numerator = x - lower_threshold
denominator = upper_threshold - lower_threshold
truncate_rgb (r, g, b) =
(r', g', b')
where
- r' = truncate (r * 255)
- g' = truncate (g * 255)
- b' = truncate (b * 255)
+ r' = truncate (r * 255) :: Word8
+ g' = truncate (g * 255) :: Word8
+ b' = truncate (b * 255) :: Word8
write_values_to_bmp :: FilePath -> Values2D -> IO ()